|
|  不值得为过去伤心
|
|
|
|
|
|
<%dim visitors
countfile=server.mappath("count.txt")
Set fs = CreateObject ("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
visitors=visitors + 1
response.write ""
for i=1 to 5-len(visitors)
response.write "0"
next
response.write visitors & ""
Set thisfile = fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing%>
|
|
|
|
| |
| |
| |
|
| |
| |
|
|
|
【