源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

如何防止计数器刷新计数?

  • 时间:2020-11-15 02:57 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:如何防止计数器刷新计数?
[h2]如何防止计数器刷新计数?[/h2]<html> <head> <title>千花飞舞之真实的计数器</title>

</head> <body> <%dim tms,counter,countlen dim images(20) h1="<p> 千花飞舞计数器</font></p>" If IsEmpty(Session("hasbeenConnected")) then set rs=server.createobject("adodb.recordset") application.lock rs.open "update aspcount set countss=countss+1","dsn=userdbs",3,3 application.unlock Session("hasbeenConnected")=True End If set rs=server.createobject("adodb.recordset") rs.open "select * from aspcount","dsn=userdbs",3,3 rs.movefirst counter=rs(0) countlen=len(counter) tms="<h1><font color='#8000ff'>欢迎,您是第</font>"&&counter&&"<font color='#8000ff'>位来访者!</font></h1>" response.write(tms) for i=1 to countlen images(i)="<img src=" && mid(counter,i,1) && ".gif></img>" next response.write images(1)&&images(2)&&images(3)&&images(4)&&images(5)&&images(6)&&images(7) rs.Close %> </body></html>

 

[b][1][/b]
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部