您是第
<%whichfile=server.mappath("jishu.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to countlen
response.write ""
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%> 位访问者
![](img/"&mid(visitors,i,1)&".gif)
"
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%> 位访问者