---

新建一个空的文本文件count.txt用来储存计数器值，然后打开count.txt输入默认值0，再把下面代码保存为count.asp，与count.txt放在同一目录下。
<%
count = Application("ASP_Directory")&Server.MapPath("count.txt")
Set cou = Server.CreateObject("Scripting.FileSystemObject")
Set out = cou.OpenTextFile(count,1,False,False)
Counter = out.ReadLine
out.close
If Session("in") <> "in" Then
Session("in") = "in"
Set out = cou.CreateTextFile(count,True,False)
Application.Lock
Counter = counter + 1 '计数器加1
out.WriteLine(counter) '写入加1后计数器的值

Application.UnLock
out.Close
End If
Response.Write "你是第"& counter &"位访问本站的客人"
%>