index.asp内容：
网站统计

<%
Function rstj()
 dim fso,f1,ts,s
 Const ForReading=1
 Set fso=CreateObject("Scripting.FileSystemObject")
 Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2)
 s=ts.Readline
 ts.close
 set fso=createobject("scripting.filesystemobject")
 set f1=fso.createtextfile(server.mappath("rstj.txt"),true,true)
 f1.writeline s+1
 f1.close
 Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2)
 s=ts.Readline
 rstj=s
 ts.close
End Function
%>

您是第<%=rstj%>位访问的朋友

rstj.txt 内容
0

这是一个简单的网页流量统计文件，如何修改成只有第一次访问它才加1，刷新不加？

[[it] 本帖最后由 skybolt 于 2008-9-11 20:11 编辑 [/it]]

网站统计
index.asp源代码修改如下，可以防止刷新。
<%
Function rstj()
 dim fso,f1,ts,s
 Const ForReading=1
 Set fso=CreateObject("Scripting.FileSystemObject")
 Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2)
 s=ts.Readline
 ts.close
 set fso=createobject("scripting.filesystemobject")
 set f1=fso.createtextfile(server.mappath("rstj.txt"),true,true)

 if session("visited")<>"yes" then  '判断是否为初次访问
 f1.writeline s+1      '是，则计数器加1
 session("visited")="yes"  '将此用户标记为已访问
 else  '不是
 f1.writeline s '仍然输出原来的数字  
 end if
 
 f1.close
 Set ts=fso.OpenTextFile(Server.MapPath("rstj.txt"),ForReading,true,-2)
 s=ts.Readline
 rstj=s
 ts.close
End Function
%>

您是第<%=rstj%>位访问的朋友

有时候真的不喜欢你这个版主，每次都不帮我修改源代码，浪费我很多时间。但是，他这种友善的提示还是能让我少走许多弯路。感谢！