共两个文件:
文件1 counter.asp
<%
dim path,myFile,read,write,cntNum
path=server.mappath("counter.cnt")
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%>');
-------------------------------------------------------------文件1结束
文件2 用记事本新建一个文件 内容是一个0 保存为 counter.cnt
'counter.asp:统计点击次数
'counter.cnt:实际是一个文本文件,保存点击的次数
'使用方法:在需要进行记数的页面中加入:<script language="javascript" src="counter.asp"></script>
'注意counter.asp,couner.cnt两个文件引用的路径要正确