 |
电话：010-65584590
86323390 传真：010-65584590 E-mail:bestcolor@vip.163.com
<%
'第一次打开网页
if Session("bz")<>"yes" Then
'取文件中的访问数
Set Fo = CreateObject("Scripting.FileSystemObject")
Set F = Fo.OpenTextFile(Server.MapPath("rs.txt"),1)
rs = CLng(F.ReadLine)
F.Close
'把访问数加1后再写入文件
Set F = Fo.OpenTextFile(Server.MapPath("rs.txt"),2)
F.WriteLine(rs+1)
F.Close
'做上已加1的标志，再返回时不再加1
Session("bz") = "yes"
'不是第一次打开网页
else
Set Fo = CreateObject("Scripting.FileSystemObject")
Set F = Fo.OpenTextFile(Server.MapPath("rs.txt"),1)
rs = CLng(F.ReadLine)-1
F.Close
End if
%>
你是第<%=rs + 1%>位访客！ 公司地址：北京市朝阳区四惠东通惠家园惠生园8号楼3单元203室 京ICP备06029576号 |
F |
