ASP Access实现网站计数器

<%
set conn=server。createobject(“adodb。connection”)
connstr=”Provider=Microsoft。jet。oledb。4。0;data source=”&server。
mappath(“cou。mdb”) //cou是数据库名
conn。open connstr
if session(“visited”)<>”yes” then
application。
Lock()
conn。execute(“update counter set hits=hits+1 where kid=1”) //counter是数据库里面用于存储数据的表名
application。
UnLock()
session(“visited”)=”yes”
end if
set rs=conn。execute(“select * from kuo where kid=1”)
if rs。
eof and rs。bof then
counters=0
else
counters=rs(“hits”)
end if
rs。close
conn。
close
set rs=nothing
set conn=nothing
%>。