<% On Error Resume Next Dim intCount601 Dim strFileName Dim A Dim B Dim C Dim D Dim E Dim F Dim G Dim H Dim I '?t?@?C???d?w?e strFileName = "c:\inetpub\wwwroot\simotu\page01\count\counter601.txt" '?t?@?C???d?€?i?E?e?I?u?W?F?N?g?d?i?Ê Set objFile = Server.CreateObject("Scripting.FileSystemObject") '?t?@?C???I?a?e?d?Q?A?E?e?I?u?W?F?N?g?d?i?Ê Set objIn = objFile.OpenTextFile(strFileName) '?t?@?C???a?÷?Y?ƒÊ?E?‘?e???I?J?E???^?d0?E?Z?b?g If Err.Number > 0 Then intCount601 = 0 '?t?@?C???a?÷?Y?ƒÊ?A?‘?e?e???I?l?d?C?Y???Y?t?@?C???d?N???[?Y Else intCount601 = objIn.ReadLine objIn.Close End If '?J?E???^?l?d???A intCount601 = intCount601 + 1 '?J?E???^?[?\?|?p '?÷???????? F = Len(intCount601) '?\?|???a?e0?T?u???X?I?v?Z G = 5 - F 'O?d?v???X for i = 1 to G H = H & "0" next '?J?E???^?[?I?E?I0?d?v???X H = H & intCount601 '?\?|???I?????d???? E = MID(H,1,1) '?T?? D = MID(H,2,1) '?S?? C = MID(H,3,1) '?R?? B = MID(H,4,1) '?Q?? A = MID(H,5,1) '?P?? '?t?@?C???d?€?i?E?e?I?u?W?F?N?g?d?i?Ê Set objOut = objFile.CreateTextFile(strFileName) '?J?E???^?l?d?t?@?C???E???á???Y objOut.WriteLine intCount601 '?t?@?C???d?N???[?Y objOut.Close %> ‰º’Ã’¬¤H‰ï‚ÌŠé‹Æî•ñ


‚ ‚È‚½‚Íl–Ú‚Ì‚¨‹q—l‚Å‚·B







  • ‘ã•\ŽÒ–¼    ‹´’Ü“¹•v
  • Š Ý ’n    ˜a‰ÌŽRŒ§ŠC‘ŒS‰º’Ã’¬’† ‚R‚W‚T

    •                   TELF 073-492-1169
                  FAXF 073-492-2965




  • ‰c‹ÆŽžŠÔ     ‚WF‚O‚O‚`‚l`‚TF‚O‚O‚o‚l
  • ‹x     “ú    @@“ú—j, j“ú
  • ’•¶‚ÍA@‚e‚`‚w‚Å‚¨Šè‚¢‚µ‚Ü‚·B

    —ʔ̓X‚ÆŒ_–ñ”Ì”„‚µ‚Ä‚¢‚Ü‚·A‚½‚¾‚¢‚Ü’¼”Ì‚Ì’‡ŠÔ‚ð•åW‚µ‚Ä‚¢‚Ü‚·B
    ‹»–¡‚Ì‚ ‚é•û‚ÍA‚²˜A—‰º‚³‚¢B

    ƒTƒ“ƒXƒCiŠ”j…kƒvƒ‰ƒ“ƒg”Ì”„‘ã—“X


    …kƒvƒ‰ƒ“ƒg‚ÅÍ”|‚Å‚«‚é앨

    ƒgƒ}ƒgAƒLƒ…ƒEƒŠAƒ‚ƒƒwƒCƒ„AƒlƒMAƒ~ƒcƒoAƒNƒEƒVƒ“’ƒAƒNƒŒƒ\ƒ“AƒoƒWƒ‹“™B

    ”Ì”„@i‚«‚イ‚è‚Ì‘¼‚Í‹Gß•i–Ú‚Å‚·j

    …kÍ”|‚Ì‚«‚イ‚èAƒAƒ{ƒJƒhAƒ`ƒFƒŠƒ‚ƒ„Aƒvƒ‰ƒ€AŠ¹‹k—ÞŠeŽí Žæˆµ‚Á‚Ä‚¨‚è‚Ü‚·B
    ¤H‰ï‚ÌŠé‹Æî•ñ‚Ö