% 'p¼Æ¾¹ Set conn = Server.CreateObject("Scripting.FileSystemObject") file_path = Server.MapPath("counter.txt") Set rs = conn.OpenTextFile(file_path) Application("counter") = rs.ReadLine rs.Close Application.Lock if SESSION("comeCheck")<>1 then Application("counter") = Application("counter") + 1 end if SESSION("comeCheck") = 1 Application.UnLock Set rs = conn.CreateTextFile(file_path, True) rs.WriteLine(Application("counter")) Set conn = Nothing %>
|
|
|
|
¾Ç°|²¤¶
±Ð¾Ç·Ó¤ù ¯à¶q¾÷ ¶R®Ñ
¦Ñ®vºô¯¸
½Í¤k¤H·¤ôºô¯¸
¦w¯«¦ì
¤å©÷¦ì
ªA°È«H½c |
|
|
|||
§Ų́C¤Ñ³£¦b®a¡AµM«á¨ì¤F¦¤W¥Xªù¤u§@¡A±ß¤W¦^¨ì®a¦Y±ßÀ\¡AºÎı.
¥ð®§. ©Ò¥H¡u®a¡v¬O§Ú̪ºÁ×·´ä¡A®aªº¥~Æ[¬O©Ð¤l¡A´N¬O¶§¦v¡A¥L»\¦b¦a²y¤W¡A¤Ó¶§¨tùØ¡A¦t©z¤¤¡A©Ò¥H³o©Ð¤l¤ºªº¤H¡A³o¨Ç¤Hªº¦å²G¡A²ÓM¨ü¨ì¦a²yºÏ³õªº¼vÅT¡A¤Ó¶§¿ç®gªº¼vÅT¡A¤Ó¶§ªº¦ì¸mªº¼vÅT¡A¤E¤j¦æ¬P¤Î¤ë²y¦ì¸mªº¼vÅT¡A¥H¤Î¦t©z¿ç®g·Lªiªº¼vÅT¡A½Ñ¦h¦nÃa¼vÅT¥[½Ñ«Î¤º¤Hªº¨¤W. |
|||
|
|||
|
±q»·¥jªº¥ñ¿ª¤óµe¤K¨ö¶}©lµo®i,
¾ú¸g«á¥N¥ý¸t¥ý½åªº©Ó¶Ç,µo´,
¥h»G¦sµ×¦Ü¤µ©|¦³½Ñ¦h¾ÇªÌ¦P§Ú¤@¼Ë,
Ä~Äò¦A¬ã¨s¥LÀ³¥Î¥¦,
¦]¦¹¤]µo®i«Ü¦h¬£§O¨Ã¦s©ó¥@,
¦p¤E¬P, ¤T¤¸, ¤T¦X, ¤E®c, ¤K¦v...
µ¥µ¥, ·s¬£§O¤]
³°Äò³Q¾Ç¦³¿W¨ì¤§³B¤§¤H¤h¥t¥ßªù¤á¦Û³Ð¬£§O, ¦U¬£·¤ô¾Ç©Ò¶Ç±Â¤º®e¤£¤@,
°ß¦³¬Ý¤s¶ÕÅrÀY¬O¬Û¦P,
¦]ÅrÀY¬O¹q¤l¾Çì²z©Ò¥H¤£·|ÅÜ, ¨ä¥L²z®ð´N¤£¤@¼Ë,
¦U¤j®vÌ¥H¦Û¤vªº¤@®M²z½×¨Ó¸ÑÄÀ¥L,
¦ý´N°ß¦³ð§º©ú´Â·¤ô²z½×¯àÅý¤HÀ´¥B®e©ö¾Ç,
¯àÅé·|. ·¨´I¶£¦Ñ®v¬O¤@¦ì³Ì·|±Ð,
³ÌªÖ±Ð¾Ç¥Íªº¦n¦Ñ®v,
¥Ñ¥L±Ð¹Lªº¾Ç¥Í§¡¯à¯¸¥X¨Ó«OÃÒ. |
¡@