<% CountFile=Server.MapPath("count.txt") '文件cont.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禁止别的用户更改计数器的值 counter= counter +1 '计数器的值增加1 Out.WriteLine(counter) '把新的计数器值写入文件 Application.unlock '使用方法Application.unlock后,允许别的用户更改计数器的值 Response.Write(counter) '把计数器的值传送到浏览器,以红(red)色显示给用户 Out.Close '关闭文件 %>
这是一个网页计数器代码 我如何修改让他能20秒加一次访问量 下面这段也是一个,怎么样去上面结合起来 <% 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 %>