"yes" thenApplication("n")=Application("n")+1set txt=fs.CreateTextFile(counter_file)txt.Writeline(Application("n"))txt.Closeend ifEnd SubApplication.Lock'ÔÝʱËø¶¨Call Jsq()Application.UnLoc
¾©ICP±¸05065586ºÅ
±¾³§Ê¼½¨ÓÚ1985Ä꣬λÓڹ㶫·ðɽÊÐÈýË®ÇøÄÏ°¶,½¨³§ÒÔÀ´×ñÑ¿Æѧ¹æÂÉ£¬¿ªÍؽøÈ¡£¬ÍçÇ¿Æ´²«£¬¾Ê®¼¸ÄêµÄŬÁ¦£¬Ê¹±¾³§²úÆ·õÒÉíÓÚ±¾µØ»úеÖÆÔìÐÐÒµÖ®ÁÖ,ÊÇÉú²ú†ò¿Ú»úµÄרҵ³§¼Ò£¬ÓÐÒ»ÅúרҵÈ˲ĴÓʲúÆ·Éè¼ÆºÍ²úÆ·ÏúÊÛÍø£¬ÒÔÖÆÔì†ò¿Ú»úΪÖ÷¡£Ö÷Òª²úÆ·
¹«Ë¾×ÊÁÏÐÅÏ¢Åû¶¹«Ë¾ÖÎÀí¹«Ë¾ÒµÎñÁªÏµÎÒÃÇÉîÛÚµçÐÅÒÑ¿ªÍ¨ÉîÛÚÕ¾»ð³µÕýÍíµã¡¢¿ªÐÐʱ¼ä¡¢ÊÛƱÓà¶î¡¢ÊÐÄÚÊÛƱµãµØÖ·µÈÐÅÏ¢£¬·þÎñµç»°£º96508877¡£ 1ºÅ²É¹º¹«¸æ 40ºÅ²É¹º¹«¸æ 2007-37ºÅÕб깫¸æ 2007-36Õб깫¸æ 2007-34ºÅÕб깫¸æÌú·¶¯³µ×é±£½à·þÎñ