<%
dim conn,connstr,DBPath
DBPath=Server.Mappath("data.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
conn.Open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from 计数器"
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
rs("访问总数")=0
end if
rs("访问总数")=rs("访问总数") + 1
rs("最后访问时间")=now
rs.update
response.write("访问" & rs("访问总数") & "次；")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
