服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - ASP Access实现网站计数器(访问量)

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

2019-09-17 13:21asp教程网 ASP教程

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

延伸 · 阅读

精彩推荐