TREK © 2003-2008 All rights reserved.<% 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 %> 沪ICP备06013619号