|
您是第
<%
Dim CountFile
CouintFile=Server.MapPath("./") & "\visitors.txt"
'定义文件存取对象
Set FS=Server.CreateObject("Scripting.FileSystemObject")
'判断文件是否存在
if FS.FileExists(CouintFile) then
'设定读取数据的信道
Set InTxtStream=FS.OpenTextFile(CouintFile,1,false,0)
'将访问计数器的数值读取出来
VisitorCounter=InTxtStream.ReadLine
'关闭打开的信道
InTxtStream.Close
else
'文件未建立
VisitorCounter=0
end if
'设定数据写入的信道
Set OutTxtStream=FS.CreateTextFile(CouintFile,True,false)
Application.Lock
VisitorCounter=VisitorCounter+1
OutTxtStream.WriteLine(VisitorCounter)
Application.Unlock
OutTxtStream.Close
'Response.Write "欢迎光临!
"
Response.Write VisitorCounter
%>
位访客
|
