如何实现点击数的计算？

counter.htm

＜a href=counter.asp?save=123&url=http://127.0.0.1/＞http://127.0.0.1＜/a＞ 共点击次数：＜script src=view.asp?save=123＞＜/script＞ counter.asp＜% path=\”d:data\” file=request(\”save\”) url=request(\”url\”) Set fs = CreateObject(\”Scripting.FileSystemObject\”) if fs.FileExists(path & file & \”.txt\”) then Set thisfile = fs.OpenTextFile(path & file & \”.txt\”, 1, False) number=thisfile.readline + 1 thisfile.Close Set outfile=fs.CreateTextFile(path & file & \”.txt\”) outfile.WriteLine number outfile.close set fs=nothing else number=1 Set outfile=fs.CreateTextFile(path & file & \”.txt\”) outfile.WriteLine number outfile.close set fs=nothing

end if response.redirect url %＞ view.asp＜% path=\”d:data\” file=request(\”save\”) Set fs = CreateObject(\”Scripting.FileSystemObject\”) if fs.FileExists(path & file & \”.txt\”) then Set thisfile = fs.OpenTextFile(path & file & \”.txt\”, 1, False) number=thisfile.readline thisfile.Close set fs=nothing else number=0 end if response.contenttype = \”application/x-&#106avascript\” response.write \”document.write(\”\”\” & number & \”\”\”);\” %＞

[1]