<%
       
    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
%>个客人
这是一个简单的图片计数器。