电话: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
 


异地招生!