先手动创建一个rstj.txt文件，然后在此文件输入一个数字，再在rstj.txt文件的同目录下
创建一个.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%>位访问贵站的朋友

本文固定链接: http://blog.duoday.com/2006/127.html | 奇风's Blog