Çë°ïÎÒ½²Ï£Á£Ó£ÐÀïÃæµÄº¯Êý

Ϊ°®Öֲˣ¡

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²ÅÊǺ¯Êý¡£ÄǸö¹ý³ÌÀïµÄ´úÂëÓ¦¸ÃÊǶÁÈ¡Îı¾ÎļþµÄ´úÂë¡£