一个完美的计数器（怎样防止用户刷新页面时加1）_ASP安全加密_ASP教程
日期：2008-09-27 浏览次数：20899 次
大家好！
今天我想谈谈一个网页的计数器问题，有些网站的计数器在用户刷新一次页面时，记数值会加1，这样的计数器是不健全的。如果你的网站搞一些有奖活动，例如，"如果你是第100000个用户你将得到本站提供的奖品"。
所以，下面给出一个计数器的原码，同时你要在这个ASP文件下新建一个counter.txt文件，用于存放记数值。
<%
function counts(counterfile)
dim objfso,objts
application.lock '锁定对象
set objfso=server.createobject("scripting.filesystemobject")
set objts=objfso.opentextfile(server.mappath(counterfile),1,true)
if not objts.atendofstream then '检查是否到达文件结尾
counts=clng(objts.readline)
end if
counts=counts+1
objts.close
set objts=objfso.opentextfile(server.mappath(counterfile),2,true)
objts.writeline(counts)
objts.close
application.unlock '解除锁定
end function
if session("counter")=empty then
session("counter")=counts("counter.txt")
end if
%>
<HTML>
<body>
您是第<%=session("counter")%>位访客
</body>
</HTML>
这样一个完美的计数器就做成了。
今天我想谈谈一个网页的计数器问题，有些网站的计数器在用户刷新一次页面时，记数值会加1，这样的计数器是不健全的。如果你的网站搞一些有奖活动，例如，"如果你是第100000个用户你将得到本站提供的奖品"。
所以，下面给出一个计数器的原码，同时你要在这个ASP文件下新建一个counter.txt文件，用于存放记数值。
<%
function counts(counterfile)
dim objfso,objts
application.lock '锁定对象
set objfso=server.createobject("scripting.filesystemobject")
set objts=objfso.opentextfile(server.mappath(counterfile),1,true)
if not objts.atendofstream then '检查是否到达文件结尾
counts=clng(objts.readline)
end if
counts=counts+1
objts.close
set objts=objfso.opentextfile(server.mappath(counterfile),2,true)
objts.writeline(counts)
objts.close
application.unlock '解除锁定
end function
if session("counter")=empty then
session("counter")=counts("counter.txt")
end if
%>
<HTML>
<body>
您是第<%=session("counter")%>位访客
</body>
</HTML>
这样一个完美的计数器就做成了。
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
