sugerland:asp问题:如何改能让此计数器刷新时不增加?

来源：百度文库编辑：高考问答时间：2024/05/01 08:42:39

代码是这样的:
head部分
<%
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
%>
body部分:
您是第<%=Counts("Counter.txt")%>位来宾！
我试了一下
你这个还是不行啊!

在根目录加个Glogal.asa

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
Session.Timeout = 20
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>

一般是这样的。

asp问题:如何改能让此计数器刷新时不增加? ASP计数器问题 ASP-页面刷新问题 asp刷新框架问题 asp的刷新问题 asp计数器求助高手：asp计数器问题． ASP问题求助：如何禁止网页被恶意刷新？ PHP中计数器如何实现防刷新机制 asp页面刷新问题,急!!!