9_15.asp

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

<%
TxtFile=Server.MapPath("count.txt")
'先创建一个文件系统对象实例FSO
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 '表示已经刷新过一次
CountLen=Len(Visitors) '获得计数结果的长度
'将每个数字转化成相应的图片显示格式，数字图片放在Images文件夹下
For i=1 to countLen
 num=num & "<Img Src=Images/" & Mid(Visitors,i,1) & ".gif></img>"
Next
'将计数值重新保存到文件Count.txt中
Set Out = FSO.CreateTextFile(TxtFile)
out.WriteLine(Visitors)
Out.CLose
set FSO=nothing
%>
您是第<%=Num%>次访问本站