ASP Access实现网站计数器（访问量）

1. <%  
2. set conn=server.createobject("adodb.connection")  
3. connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("cou.mdb") //cou是数据库名  
4. conn.open connstr  
5. if session("visited")<>"yes" then  
6. application.Lock()  
7. conn.execute("update counter set hits=hits+1 where kid=1") //counter是数据库里面用于存储数据的表名  
8. application.UnLock()  
9. session("visited")="yes"  
10. end if  
11. set rs=conn.execute("select * from kuo where kid=1")  
12. if rs.eof and rs.bof then  
13. counters=0  
14. else  
15. counters=rs("hits")  
16. end if  
17. rs.close  
18. conn.close  
19. set rs=nothing  
20. set conn=nothing  
21. %>