ASP Access实现网站计数器(访问量)

2018-09-06 11:13

阅读:446

  <%
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
%>


评论


亲,登录后才可以留言!