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 ,为什么这个就是文本文件里的数值,谁帮我说一下,我没学过 VB Application.UnLock %></font>个客人</td>