<% 
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("") & "cgi-binwww.111cn.cn/asp/asp.html.txt"
on error resume next

if error then
hits = 1
end if

Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
%>
 

Number of hits: <% =hits %>

人數在您的文件將增加到每一次您的網頁訪問。最后一行在此腳本可以讓您將顯示的點擊次數在您的回復頁面。