9_14.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 21 行

<%
TxtFile=Server.MapPath("count.txt")
'先创建一个文件系统对象实例FS
set FSO=Server.CreateObject("Scripting.FileSystemObject")
'读取计数值
Set ThisFile=FSO.OpenTextFile(TxtFile)
Visitors=ThisFile.ReadLine
ThisFile.CLose
If IsEmpty(Session("Connected")) Then
 								 '将计数加1
  Visitors=Visitors+1
End If
Session("Connected")=True 		'表示已经刷新过一次。
'将计数值重新保存到文件Count.txt中
Set Out = fsO.CreateTextFile(TxtFile)
out.WriteLine(Visitors)
Out.CLose
set fsO=nothing
%>
您是第<%=Visitors%>次访问本站