Question

asp（网页计数器）够防止自我刷新的网站访问

以下是asp（网页计数器）文件夹里面的代码，请高手帮忙在里面添加些代码，
能够防止自我刷新的网站访问，谢谢！
<%
CountFile=Server.MapPath("txtcounter.txt")
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
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Write"document.write("&counter&")"
'为了在页面正确显示计数器的值，调用VBScript函数Document.write
Out.Close
%>

Answer 1

CountFile=Server.MapPath("txtcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
'通过使用Session来验证用户是否已经被计数。
If Session("user_is_recorded")<>"true" Then
    Session("user_is_recorded")="true"
    SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
    Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
    Application.lock
    counter= counter + 1
    Out.WriteLine(counter)
    Application.unlock
End If
Response.Write"document.write("&counter&")"
'为了在页面正确显示计数器的值，调用VBScript函数Document.write
Out.Close

追问

谢谢，这个可以用，但是刷新之后，网页上的访问人数就没有了，请问这个怎么解决？希望教下，谢谢！

追答

把最后一个Out.Close放到End If 前一行。
不然在Sesstion有值时Out.Close会被执行两次

追问

弄好了，谢谢！