<% Set FS = CreateObject("SCRIPTING.FILESYSTEMOBJECT") SET a=FS.OPENTEXTFILE(Server.MapPath("book_js.txt")) Application("book")=a.READLINE a.close Application("book")=cint(Application("book"))+1 %> <%Application("book")=Application("book")+1%> document.write("

你是第000<%=Application("book")%> 位访客

"); <% Set a = FS.CREATETEXTFILE(Server.MapPath("book_js.txt"), True) a.WRITELINE (Application("book")) a.Close Set a = Nothing Set FS = Nothing%>