<%
On Error Resume Next
Dim intCount301
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\counter301.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
intCount301 = 0
'?t?@?C???a?÷?Y?ƒÊ?A?‘?e?e???I?l?d?C?Y???Y?t?@?C???d?N???[?Y
Else
intCount301 = objIn.ReadLine
objIn.Close
End If
'?J?E???^?l?d???A
intCount301 = intCount301 + 1
'?J?E???^?[?\?|?p
'?÷????????
F = Len(intCount301)
'?\?|???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 & intCount301
'?\?|???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 intCount301
'?t?@?C???d?N???[?Y
objOut.Close
%>
‰º’Ã’¬¤H‰ï‚ÌŠé‹Æî•ñ
‚ ‚È‚½‚Í
l–Ú‚Ì‚¨‹q—l‚Å‚·B
‘ã•\Žæ’÷–ð@@Žð–{Œ«Ž¡
Žæˆµ•i–Ú@@@‘SŽð—ÞA‘–{‰Æx‰Í‰®A
@@@@@@@ŠÛà_‚©‚Ü‚Ú‚±A•ó”~A
‚»‚Ì‘¼H•iA‰ÙŽqƒMƒtƒg
Š Ý ’n @ ˜a‰ÌŽRŒ§ŠC‘ŒS‰º’Ã’¬‰º’ÂV‚W‚P|‚P‚R
@@@ TELF 073-492-0105
@@@ FAXF 073-492-0032
‰c‹ÆŽžŠÔ ‚WF‚O‚O`‚Q‚OF‚O‚O
‹x “ú –ˆT“ú—j“ú
‰º’Ã’¬“à‚Ì’·•ÛŽ›‚Í‹IB“¿ì‰Æ‚Ì•ì’ñŽ›‚ÅA’·•Û‚Q”Ni‚P‚O‚O‚O”Nj‚ÉŒš—§‚³‚ꂽŒÃ‚³B
“¯Ž›‚Í‘å–åA–{“°A‘½•ó“ƒ‚ª‘•ó‚ÉŽw’肳‚ê‚Ä‚¨‚èA‚»‚Ì’†‚æ‚蓯Ž›‚Ì‘å–å‚ð–Á•¿–¼‚Æ‚µ‚Ä”qŽó‚¢‚½‚µ‚Ü‚µ‚½B
®Aƒ‰ƒxƒ‹‚Í“¯Ž›‘å‘m³AŽ÷‰pŠC˜VŽt‚Ì‘‚É‚æ‚é‚à‚Ì‚Å‚·B
Žð‚Ì‘¢‚è‚Í–{ø‘¢‚ƉÀï‚Ì‚QŽí—Þ‚ÅA–{ø‘¢‚ÍŽð–{—ˆ‚Ì–¡‚ð’Ç‹‚µA“œ—Þ“Y‰Á‚ð‚¢‚Á‚³‚¢‚¹‚¸A‚Ì‚Ý‚ ‚«‚µ‚È‚¢A‚·‚Á‚«‚è‚Æ‚µ‚½hŒû‚ÉŽdã‚°‚Ä‚¢‚Ü‚·B
| |
 ‘å–å–{ø‘¢ |
1.8 L |
2,000‰~ |
| ‘å–å–{ø‘¢ |
720mL |
1,000‰~ |
| ‘å–å‰Àï |
1.8 L |
1,600‰~ |
Žæˆµ•i–Ú
‘SŽð—Þ@‘–{‰Æx‰Í‰®
ŠÛà_‚©‚Ü‚Ú‚±@•ó”~@‚»‚Ì‘¼H•iA‰ÙŽqƒMƒtƒg
‚e‚`‚w—\–ñ‚Ö
¤H‰ï‚ÌŠé‹Æî•ñ‚Ö