您是第 <% Sub Numberpad() Set files=Server.CreateObject("Scripting.FileSystemObject") Set numtxt=files.OpenTextFile(Server.MapPath("num.txt")) Application("Num")=numtxt.ReadLine numtxt.Close Application("Num")=Application("Num")+1 Response.Write Application("Num") Set numtxt=files.CreateTextFile(Server.MapPath("Num.txt"),True) numtxt.WriteLine(Application("Num")) numtxt.Close End Sub Application.Lock Numberpad Application.UnLock %> 位来访者!