<%
On Error Resume Next
Dim intCount303
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\counter303.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
intCount303 = 0
'?t?@?C???a?÷?Y?ƒÊ?A?‘?e?e???I?l?d?C?Y???Y?t?@?C???d?N???[?Y
Else
intCount303 = objIn.ReadLine
objIn.Close
End If
'?J?E???^?l?d???A
intCount303 = intCount303 + 1
'?J?E???^?[?\?|?p
'?÷????????
F = Len(intCount303)
'?\?|???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 & intCount303
'?\?|???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 intCount303
'?t?@?C???d?N???[?Y
objOut.Close
%>
‰º’Ã’¬¤H‰ï‚ÌŠé‹Æî•ñ
‚ ‚È‚½‚Í
l–Ú‚Ì‚¨‹q—l‚Å‚·B
‘ã•\ŽÒ ŽíŽ¡ºG
ŠÝ’n §649-01
˜a‰ÌŽRŒ§ŠC‘ŒS‰º’Ã’¬¬”¨‚P‚P‚U‚U
TELF 073-492-0414
FAXF 073-492-0414
Í”|‰ÊŽÀ
Š®n‚Ý‚©‚ñAˆÉ—\Š¹A´Œ©
ƒLƒEƒCƒtƒ‹[ƒcAƒoƒŒƒ“ƒVƒA‰·ŽºƒAƒ“ƒR[ƒ‹
Ì‚©‚ç‹›‚©‚·Aœ•²Aƒiƒ^ƒl””‚È‚Ç—L‹@”ì—¿‚ðŽ{‚µA”NX‚Ó‚¦‚Ä‚¢‚é”_–ò‚ðŒ¸‚ç‚µAÅ’l‚É‚µ‚Ä
ƒRƒN‚Ì‚ ‚é‚Ý‚©‚ñ‚ðÍ”|‚µ‚Ä‚¢‚Ü‚·B
”_ì‹Æ‚͂‚炢‚Å‚·‚ªA‘¾—z‚ÌŒõ‚ðŒø—¦‚æ‚—‚Ñ‚é’iX”¨‚ª‚¨‚¢‚µ‚¢‚Ý‚©‚ñ‚Ì‚Å‚«‚éðŒ‚Å‚·B
‚¨‚·‚·‚ß
- ‚±‚̂悤‚Ɉç‚Ä‚½‚Ý‚©‚ñ‚ð‚¨‘î‚Ü‚ÅŽè‘I‰Ê‚Å‚¨“Í‚¯‚¢‚½‚µ‚Ü‚·B
| ´@Œ©@ ‚P‚Okg |
‘——¿ž‚Ý 4,500‰~ |
| ƒfƒRƒ|ƒ“ ‚Tkg |
‘——¿ž‚Ý 4,000‰~ |
| ‚¨Žæˆµ‚¢ŠúŠÔ |
‚RŒŽ‚P‚O“ú ` ‚SŒŽ‚Q‚O“ú |
| ‚Ý‚©‚ñ‚ÌŠÊ‹li‚PŠÊ300g“ü‚èj |
‘——¿ž‚Ý 3,500‰~ |
| ‚¨Žæˆµ‚¢ŠúŠÔ |
”N’† |
- –”A“ìA•§ŽèŠ¹‚È‚ÇAV•iŽí‚Ì‚Ý‚©‚ñ‚àˆÓ—~“I‚É‚Æ‚è‚‚ñ‚Å‚¨‚è‚Ü‚·B
- ‚²˜A—‚¨‚Ü‚¿‚µ‚Ä‚¨‚è‚Ü‚·B
¦ã‹L‹àŠz‚ÍAÁ”ïÅ‘——¿ž‚Ý
‘ãˆøŽè”—¿‚Í•Ê“r’ljÁ
‚e‚`‚w’•¶‚Ö
¤H‰ï‚ÌŠé‹Æî•ñ‚Ö