|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |
|