 |
 |
|
| ||
|
| ||
| ||
|
|
||
|
| ||
|
| ||
|
|
<%
on error resume next
file=server.MapPath(".\counter\counter.txt")
set fileacc=server.CreateObject("Scripting.FileSystemObject")
set myFile=fileacc.OpenTextFile(file)
visitors=myFile.readline
myFile.close
visitors=visitors+1
set myFile=fileacc.CreateTextFile(file)
myFile.WriteLine(visitors)
myFile.close
strlength=len(visitors)
for i=1 to 8-strlength
Response.Write" "
next
for i=1 to strlength
Response.Write " |
|||
|