<%
dim visitors
whichfile=server.mappath("count\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 "![](count\")
"
next
visitors=visitors+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitors)
out.close
set fs=nothing
%>
Copyright © 2003, 宜兴市双发化工有限公司 All Rights Reserved.
Designed by GSNT 苏ICP备05015417号
Designed by GSNT 苏ICP备05015417号