count.asp

来自「这是一个Flash制作的综合搜索引擎实例！ 上面加了个Flash计数器！下载后有」· ASP 代码 · 共 14 行

<%
Dim count
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
file_path=Server.MapPath("count.txt")
Set CounterFile=Fs.OpenTextFile(file_path)
OldCounterValue=CounterFile.ReadLine
NewCounterValue=OldCounterValue+1
Response.Write("count="&NewCounterValue)
CounterFile.Close
Set CounterFile=Fs.OpenTextFile(file_path,2)
CounterFile.WriteLine(NewCounterValue)
CounterFile.Close
%>