<%
'******************************************************************************************************
'asp文本記數(shù)器
'Powered by myhon
'Date：2006-05-15
'counter.asp：統(tǒng)計(jì)點(diǎn)擊次數(shù)
'counter.cnt：實(shí)際是一個(gè)文本文件，保存點(diǎn)擊的次數(shù)
'使用方法：在需要進(jìn)行記數(shù)的頁(yè)面中加入：<script language="javascript" src="counter.asp"></script>
'注意counter.asp，couner.cnt兩個(gè)文件引用的路徑要正確
'******************************************************************************************************

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