main.txt

《动态网页设计基础教程》,胡杰,科学出版社

<%	
'Dim Visitors
WhichFile=Server.mappath("count.txt")

'创建一个FileSystemObject的实例
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'启动count.txt文件，并且读取记录在文件中的Visitors
Set thisfile=fs.OpenTextFile(WhichFile,,TRUE)
session("Visitors")=thisfile.ReadLine
Thisfile.close
If IsEmpty(session("Connected")) Then
'将计数器加1
session("Visitors")=session("Visitors")+1
application.lock
application("people")=application("people") & session(name) & ","
application.unlock
End If
Session("connected")=True
'将计数器写入count.txt文件之中
Set out=fs. CreateTextFile(WhichFile)
Out.WriteLine(session("Visitors"))
Out.close
Set fs=nothing
%>

<CENTER><H2>欢迎进入Myweb网站</h2>
<HR>
您是本站第<%=session("visitors")%>位贵宾</center>
<p>