 |
|
|
|
|
|
|
|
|
|
|||
 |
 |
 |
 |
|
||||||||
 |
 |
 |
 |
 |
|
|||||||
 |
|
|||||||||||
 |
 |
 |
|
|||||||||
 |
 |
 |
|
|||||||||
 |
|
|||||||||||
|
|
||||||||||||
 |
|
|||||||||||
|
|
||||||||||||
 |
 |
|
||||||||||
 |
|
|||||||||||
 |
|
|||||||||||
 |
|
|||||||||||
 |
|
|||||||||||
 |
 |
|
||||||||||
 |
 |
 |
 |
 |
|
|||||||
|
 |
|
||||||||||
<%
on error resume next
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath ("/counter/") & "\hits.txt"
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%>
<%
L = Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Response.Write " |
||||||||||||
![](counter/images/")
"
Next
%>