<%
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 %>
人数在您的文件将增加到每一次您的网页访问最后一行在此脚本可以让您将显示的点击次数在您的回复页面
