#12002/2/27 9:24:34
<%
count=0
set objconn=server.createobject("ADODB.connection")
strconn="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("数据库名.mdb")
objconn.Open strconn
strquery=" SELECT * from count"
set objRs=objconn.execute(strquery)
count=objRs("count")
strquery="UPDATE count SET count=" & count+1
objconn.execute(strquery)
objRs.close
set objRs=nothing
objconn.close
set objconn=nothing
Response.write("count="&count)
%>
