% dim countfile countfile=server.mappath("./") & "\count.txt" set fs=server.createobject("scripting.filesystemobject") if fs.fileexists(countfile) then set intxtstream=fs.opentextfile(countfile,1,false,0) visitorcounter=intxtstream.readline intxtstream.close else visitorcounter=0 end if set outtxtstream=fs.createtextfile(countfile,true,false) application.lock visitorcounter=visitorcounter+1 outtxtstream.writeline(visitorcounter) application.unlock outtxtstream.close %>
|
|
|
|
地址:中国北京西城区德外黄寺大街24号 |
|
<%=visitorcounter%> |