<%
dim visitors
whichfile=server.mappath("counter.txt")
set fs=createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
CountLen=len(visitors)
response.write "你是第
"
for i=1 to 6-countLen
response.write "
"
next
for i=1 to countlen
response.write "![](num/default.htm")
"
next
response.write "
位访问本站"
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeLine(visitors)
out.close
set fs=nothing
%>