asp簡單文本計數器

　　<% 
Set fs = CreateObject("ScriptingFileSystemObject")
Wfile=servermappath("") & "cgibinwwwcncn/asp/asphtmltxt"
on error resume next
Set a = fsOpenTextFile(Wfile)
hits = Clng(aReadLine)
hits = hits +
aclose

　　if error then
hits =
end if

　　Set a = fsCreateTextFile(WfileTrue)
aWriteLine(hits)
aClose
%>
 

　　Number of hits: <% =hits %>

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

From:http://tw.wingwit.com/Article/program/net/201311/14287.html