来源:网页教学网作者: 发布时间:2007-12-24 08:14:30

<%@ Language=VBScript %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("db1.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from table1", Conn, 1,3
Rs.addnew
rs.movelast
Rs("hits") =hits
Rs.update
%>
<%
set Rs = nothing
set Conn = nothing
%>
|
还没有关于此文章的相关评论!