林洋热线:0513-83118888      E-mail:info@linyang.com     地址:江苏省启东市林洋路666号
Copyright 2008  江苏林洋电子有限公司版权所有
你是第 <% dim visitors whichfile=server.mappath("newcounter/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 %> 位来访者