Question

网页计数器问题！！！

<%
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
%>

您是第<%=session("counter")%>位访客

Answer 1

存在你自己机器的统计数，20秒更新一次有什么用呢， 你可以直接每次增加100万～

如果你真想20秒更新一次，那么你可以考虑这样做。首先是编写一个counter.asp，内容就是你补充的那一段，然后在别的文件里面20秒调用一次，代码如下：

<iframe name=count_frm style='display:none'></iframe>
<script type=text/javascript>
function up_counter(){
count_frm.location.href='counter.asp';
setTimeout('up_counter();', 20000);//20秒执行一次
}
up_counter();
</script>

Answer 2

ASP 没有定时运行的。。。