<%
dim intvisitors,visitors,whichfile,fs,thisfile,countlen,out,i
whichfile=server.mappath("counter/counter.txt")
set fs=createobject("scripting.filesystemobject")
set thisfile=fs.opentextfile(whichfile)
intvisitors=thisfile.readline
thisfile.close
set thisfile=nothing
visitors=int(intvisitors)
countlen=len(visitors)
for i=2 to countlen
response.write "
![](counter/images/"&mid(visitors,i,1)&".gif)
"
next
Application.Lock
intvisitors=intvisitors+1
Application.Unlock
'response.Write intvisitors
set out=fs.createtextfile(whichfile)
out.writeline(intvisitors)
out.close
set out=nothing
set fs=nothing
%>
温泉
