Counter 5.easpcount.asp.
<%response.expires=0
Id=request.querystring ("id")
Sername=request.servervariables ("SERVER_NAME")
Scrname=request.servervariables ("Script_name")
Linkurl= "http://" & Sername & Left (Scrname, (Len (scrname) -9)) & "Easpcount.asp?id=" &id
infile = Server.MapPath ("counter.asp")
Set fs = CreateObject ("Scripting.FileSystemObject")
Set thisfile = fs. OpenTextFile (Infile,1,false)
Counter = 0
Do as not thisfile. AtEndOfStream
Thisline = Thisfile.readline
Redim Preserve input (counter)
Input (counter) = Thisline
Counter = counter + 1
Loop
Thisfile. Close
Number= (counter-1)/5
X=0
Set outfile = fs. CreateTextFile (infile)
Application.Lock
OutFile. WriteLine input (0)
For I=1 to number
OutFile. WriteLine input ((i-1) *5+1)
OutFile. WriteLine input ((i-1) *5+2)
OutFile. WriteLine input ((i-1) *5+3)
OutFile. WriteLine input ((i-1) *5+4)
If input ((i-1) *5+1) =id Then
X=i
OutFile. WriteLine input ((i-1) *5+5) +1
Else
OutFile. WriteLine input ((i-1) *5+5)
End If
Next
OutFile. Close
Application.UnLock
Set fs=nothing
If X=0 then Response.End
COUNT=CSTR (Input ((x-1) *5+5))
Countlen=len (count)
For I=1 to 6-countlen
Linkurl= "http://" &sername&left (Scrname, (Len (scrname) -13)) "/" & "0.gif"
%><%=linkurl%>
document.write (' ")
<%=linkurl%>
<%next
For I=1 to Countlen
Mdir=mid (count,i,1)
Linkurl= "http://" &sername&left (Scrname, (Len (scrname) -13)) "/" &mdir& ". gif"
%>
<%=linkurl%>
document.write (' ")
<% Next
%>
---------------------------------------------------
Writen by Aspboy and powered by http://easp.126.com
