网页中:您是第几位访客的代码是什么?

这是计数器的代码，可以从网上搜一下，有不同的解决方法。
<%
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&")"
Out.Close
%>
然后在同一个文件夹下建立一个txtcounter.txt的文本文件，在里面填上数字，随便什么都行，就从填入的这个数据开始计数