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

%>