counter.asp

counter.asp
2009年06月29日
　　
　　
　　http://www.w3.org/1999/xhtml">
　　
　　
　　无标题文档
　　
　　
　　const forReading=1,don't use createTextFile("counter.txt",true)
　　dim c
　　c=theFile.readLine
　　theFile.close
　　c=c+1
　　response.Write "你是第 "&c&" 个访问者"
　　set theFile=fso.openTextFile(path,2) 'const forWriting=2
　　theFile.writeLine(c)
　　theFile.close
　　set fso=nothing
　　%>