<%
On Error Resume Next
Dim intCount302
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\counter302.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
intCount302 = 0
'?t?@?C???a?÷?Y?ƒÊ?A?‘?e?e???I?l?d?C?Y???Y?t?@?C???d?N???[?Y
Else
intCount302 = objIn.ReadLine
objIn.Close
End If
'?J?E???^?l?d???A
intCount302 = intCount302 + 1
'?J?E???^?[?\?|?p
'?÷????????
F = Len(intCount302)
'?\?|???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 & intCount302
'?\?|???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 intCount302
'?t?@?C???d?N???[?Y
objOut.Close
%>
‰º’Ã’¬¤H‰ï‚ÌŠé‹Æî•ñ
‚ ‚È‚½‚Í
l–Ú‚Ì‚¨‹q—l‚Å‚·B
‘ã•\ŽÒ@@ ‹{ ”ö ¸
‹Æ–±“à—e@“y–ØHŽ–ˆêŽ®
@@@@ ŒšÝ‹Æ‹–‰Â”Ô†
˜a‰ÌŽRŒ§’mŽ–‹–‰Â i“Á|‚Vj‘æ‚T‚R‚O‚W†
‚P‹‰“y–ØŽ{HŠÇ—‹ZŽm
‚P‹‰Œš’zŽ{HŠÇ—‹ZŽm
Š Ý ’n §649-01
˜a‰ÌŽRŒ§ŠC‘ŒS‰º’Ã’¬‰º‚R‚P‚W
TELF 073-492-2323
FAXF 073-492-4350
‚i‚q‰Á–΋½‰w‰ºŽÔ“k•à‚W•ª
‰c‹ÆŽžŠÔ Œß‘O‚WŽž`ŒßŒã‚TŽž
‹x “ú –ˆ“ú—j“ú
‚±‚ñ‚É‚¿‚ÍB‰º‹ã‘g‚Å‚·B
’nŒ³‚ÌŠF—l‚É‚ÍA‚¢‚Â‚à‚¨¢˜b‚É‚È‚è—L“‚²‚´‚¢‚Ü‚·B
Ž„‹¤‚Å‚ÍA‚µ‚Å‚àŠF—l‚Ì‚¨–ð‚É—§‚Ä‚ê‚΂Ǝv‚¢Av‘¬A’š”J‚ðS‚ª‚¯A‚±‚ê
‚©‚ç‚à“w—Í‚µ‚ÄAŠF—l‚É–ž‘«‚µ‚Ä’¸‚¯‚é—lŠæ’£‚Á‚Äs‚«‚½‚¢‚ÆŽv‚¢‚Ü‚·B
¡Œã‚Æ‚à‚¨ˆø‚«—§‚Ä‚Ì’öA‹X‚µ‚‚¨Šè‚¢\‚µã‚°‚Ü‚·B
¤H‰ï‚ÌŠé‹Æî•ñ‚Ö