访问人次：

<% dim visitors whichfile=server.mappath("counter\counter.txt") set fs=createobject("Scripting.FileSystemNeskyObject") set thisfile=fs.opentextfile(whichfile) visitors=thisfile.readline thisfile.close CountLen=len(visitors) response.write "" '最小长度是6位 for i=1 to 6-countLen response.write "" next for i=1 to countlen response.write "" next response.write "" visitors=visitors+1 set out=fs.createtextfile(whichfile) out.writeLine(visitors) out.close set fs=nothing %>