count.asp

这是一个Flash制作的综合搜索引擎实例！ 上面加了个Flash计数器！下载后有Fla源文件

<%
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
%>