2002 © 梅兰芳纪念馆版权所有 电话：010-66183598 联系我们：info@meilanfang.com.cn 京ICP备06022928 <% dim visitors whichfile=server.mappath("count.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 %>
![](count"&"/"&mid(visitors,i,1)&".gif)
"
next
visitors=visitors+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitors)
out.close
set fs=nothing
%>