<% Dim CountFile CountFile=Server.MapPath("count.txt") Set FS=Server.CreateObject("Scripting.FileSystemObject") if Fs.FileExists(CountFile) then set InTxtStream=FS.OpenTextFile(CountFile,1,False,0) VisitorCounter=InTxtStream.ReadLine InTxtStream.Close else VisitorCounter=0 end if set OutTxtStream=FS.CreateTextFile(CountFile,True,False) Application.Lock visitorCounter=VisitorCounter+1 OutTxtStream.WriteLine(VisitorCounter) Application.Unlock OutTxtStream.Close %> <%="你是第"&visitorcounter&"位访客"%>