<%
Set files=Server.CreateObject("Scripting.FileSystemObject")
Set numtxt=files.OpenTextFile(Server.MapPath("Num.txt"))
nvisitors=numtxt.ReadLine
if clng(Application("Num"))<nvisitors then
Application("Num")=nvisitors+1
else
Application("Num")=Application("Num")+1
end if
numtxt.Close
Set numtxt=files.CreateTextFile(Server.MapPath("Num.txt"),True)
numtxt.WriteLine(Application("Num"))
numtxt.Close
NUM=len(nvisitors)
Application.Lock
for i=1 to
NUM
response.write "<img src='NUM/"&mid(nvisitors,i,1)&".gif'></img>"
Next
Application.UnLock
%>个客人
这是一个简单的图片计数器。