<% dim visitors2 whichfile=server.mappath("counter.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile) visitors2=thisfile.readline thisfile.close %> document.write('您是本站第<%=visitors2%> 位访客'); <% Set out=fs.CreateTextFile(whichfile) out.WriteLine(visitors2) out.close set fs=nothing %>