<% 'counter.asp：统计点击次数 'counter.cnt：实际是一个文本文件，保存点击的次数 '使用方法：在需要进行记数的页面中加入： ' '注意counter.asp，couner.txt两个文件引用的路径要注意 dim path,myFile,read,write,cntNum path=server.mappath("counter.txt") read=1 write=2 Set myFso = Server.CreateObject("Scripting.FileSystemObject") set myFile = myFso.opentextfile(path,read) cntNum=myFile.ReadLine myFile.close cntNum=cntNum+1 set myFile = myFso.opentextfile(path,write,TRUE) myFile.write(cntNum) myFile.close set myFile=nothing set myFso=nothing %> document.write('<%=cntNum%>');