Access | statistics | online | The program is a little bit difficult, because he is sending each picture separately, so it's not as big as a CGI-generated picture. And the pictures can be reused, so the rate is high speed. It just doesn't go without JavaScript.
Program Original code:
<%
Imgurl= "http://xxx.xxx.xxx/xxxx/"; ' Picture path
Imgname= "xxx" ' Picture name
Cnt=0
Dnt=0
S=request.servervariables ("path_translated")
CName = Left (S,instrrev (S, "\", Len (s)) & "Chy.cnt"
Dname = Left (S,instrrev (S, "\", Len (s)) & "Dchy.cnt"
Set objFSO = Server.CreateObject ("Scripting.FileSystemObject")
Set objcountfile = objFSO.OpenTextFile (cname,1,true)
If not Objcountfile.atendofstream Then cnt=clng (Objcountfile.readall)
Objcountfile.close
Set objcountfile=nothing
Cnt=cnt+1
Set Objcountfile=objfso.createtextfile (cname,true)
Objcountfile.write CNT
Objcountfile.close
Set objcountfile=nothing
If Application ("Dntime") <=cint (Hour (Time ())) Then
Set objcountfile = objFSO.OpenTextFile (dname,1,true)
If not Objcountfile.atendofstream Then dnt=clng (Objcountfile.readall)
Objcountfile.close
Set objcountfile=nothing
End If
Application ("Dntime") =cint (Hour (Time ()))
Dnt=dnt+1
Set Objcountfile=objfso.createtextfile (dname,true)
Objcountfile.write dnt
Objcountfile.close
Set objcountfile=nothing
Set objFSO = Nothing
Response.Write "document.write (' 99?7?10???"
For I=1 to Len (CNT)
Response.Write "Next
Response.Write "
?????"
For I=1 to 4-len (DNT)
Response.Write "Next
For I=1 to Len (DNT)
Response.Write "Next
T= (CInt (Date ()) *24+cint (Hour (Time ())) *60+cint (Minute (Time ()))
K=0
I=1
Y=0
Do While application ("Zxip" &i) <> ""
If Application ("Zxip" &i) =request.servervariables ("REMOTE_ADDR") Then
Application ("ZXSJ" &i) =t
Y=1
End If
If T-application ("ZXSJ" &i) >9 or T<application ("ZXSJ" &i) Then
K=k+1
Else
If K>0 Then
Application.Lock
Application ("Zxip" &i-k) =application ("Zxip" &i)
Application ("ZXSJ" &i-k) =application ("ZXSJ" &i)
Application.UnLock
End If
End If
If K>0 Then
Application.Lock
Application ("Zxip" &i) = ""
Application.UnLock
End If
I=i+1
Loop
If Y=0 Then
Application ("Zxip" &i) =request.servervariables ("REMOTE_ADDR")
Application ("ZXSJ" &i) =t
Else
I=i-1
End If
Response.Write "?????"
If Len (i) =1 then Response.Write "For J=1 to Len (i)
Response.Write "Next
Response.Write "');" %>
