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 %></font>个客人</td>

这是一个过程的调用，并非函数Sub是过程Function才是函数。那个过程里的代码应该是读取文本文件的代码。