ASP教程之一个完善的计数器（如何避免用户刷新页...

显示全部楼层 · 发表于 2015-2-3 23:41:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.计数器|刷新|页面人人好！
明天我想谈谈一个网页的计数器成绩，有些网站的计数器在用户刷新一次页面时，记数值会加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>
如许一个完善的计数器就做成了。</p> 由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之一个完善的计数器（如何避免用户刷新页...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块