几个测试成功计数器代码.docVIP

大家好！ 今天我想谈谈一个网页的计数器问题，有些网站的计数器在用户刷新一次页面时，记数值会加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 这样一个完美的计数器就做成了。 文章整理：西部数码--专业提供域名注册、虚拟主机服务以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! % CountFile=Server.MapPath(counter.txt) 文件aspconter.txt是用来储存数字的文本文件，初始内容一般是0 Set FileObject=Server.CreateObject(Scripting.FileSystemObject) Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine 读取计数器文件中的值 Out.Close 关闭文件 SET FileObject=Server.CreateObject(Scripting.FileSystemObject) Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock 方法Application.lock禁止别的用户更改计数器的值 If Session(co)=then counter= counter + 1 Session(co)=aaa End if Out.WriteLine(counter) 把新的计数器值写入文件 Application.unlock 使用方法Application.unlock后，允许别的用户更改计数器的值 Response.Write(您是第) Response.Write(font?color=red) Response.Write(counter) 把计数器的值传送到浏览器，以红(red)色显示给用户 Response.Write(/font) Response.Write(位访问者) Out.Close 关闭文件 Set out=nothing Set FileObject=nothing % 没找到~ 上次格盘后没剩下多少代码了这是刚写的 你看看先%dim path,myFile,read,write,cntNum path=server.mappath(counter.txt) read=1 write=2 Set myFso = Server.CreateObject(Scripting.FileSystemObject) set myFile = myFso.opentextfile(path,read) cntNum=myFile.ReadLine myFile.close? ? ? ? ? ? If Session(co) = Then? 防刷新 判断是否已登陆? ? ? ? ? ? ? ? cntNum = cntNum+1? ? ? ? ? ? ? ? ? ? ? ? Session(co)=aaa?