<% Set fs = CreateObject("Scripting.FileSystemObject") Set file = fs.OpenTextFile(Server.MapPath("counter/count.txt"), 1, 0, 0) tCount = file.ReadLine file.Close Set fs = CreateObject("Scripting.FileSystemObject") Set file = fs.CreateTextFile(Server.MapPath("counter/count.txt"), True) tCount = tCount + 1 file.Write tCount file.Close %>
<% 'Response.write(tCount) for i = 1 to 7 '몇자리 카운터이냐에 따라서.... select case Mid(tCount,i,1) case "1" response.write "
"
case "2"
response.write "
"
case "3"
response.write "
"
case "4"
response.write "
"
case "5"
response.write "
"
case "6"
response.write "
"
case "7"
response.write "
"
case "8"
response.write "
"
case "9"
response.write "
"
case "0"
response.write "
"
End select
Next
%>
|
|
|
|
|
10F,
SEJONG BLD, DANGJU-DONG, CHONGRO-KU, SEOUL, KOREA
TEL : 739-0161~3 FAX 739-0164