counter.asp

使用源码注意项： 1、Windows2000 Professional SP3、DELPHI 6.0、SQL Server2000的开发环境； 2、开发目录为：D:PieceRate

<%
'******************************************************************************************************
'asp文本记数器
'Powered by myhon
'Date：2006-05-15
'counter.asp：统计点击次数
'counter.cnt：实际是一个文本文件，保存点击的次数
'使用方法：在需要进行记数的页面中加入：<script language="javascript" src="counter.asp"></script>
'注意counter.asp，couner.cnt两个文件引用的路径要正确
'******************************************************************************************************

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%>');