这是count.asp里的 <% dim bc set bc=server.CreateObject("mswc.browsertype") %> <% countfil=server.mappath("my_counter.txt") set fileo=server.createobject("scripting.filesystemobject") set out=fileo.opentextfile(countfil,1,false,false) counter=out.readline out.close set fileo=server.createobject("scripting.filesystemobject") set out=fileo.createtextfile(countfil,true,false) application.lock counter=counter+1 out.writeline(counter) application.unlock Response.Write"document.write("&counter&")"