<%
' 카운터의 자릿수 결정
const size = 6
' 화일 제어를 위해 화일시스템 객체를 선언
Set fs = CreateObject("Scripting.FileSystemObject")
' 해당 화일의 절대 경로를 상대 경로로 변환
' 쉽게 말하면 서버상의 절대 경로를 웹상의 상대경로로 바꾸는 것
file = Server.MapPath("count.dat")
' 화일을 읽기 전용으로 오픈(없을 경우 생성)
Set counter = fs.OpenTextFile(file, 1, true)
' 화일이 빈 화일인지 검사후
if counter.AtEndOfStream then
' 빈 화일이면 카운트 변수에 1을 준다.
cnt = 1
else
' 카운트를 한 사용자 인지 판단후에 안 했을 경우 카운트 증가 시킴.
if session("countflag")=false then
cnt = counter.ReadAll + 1
' 세션 변수를 카운트 했음으로 바꾼다.
session("countflag") = true
else
cnt = counter.ReadAll
end if
end if
' 화일을 닫는 다.
counter.Close
' 화일을 쓰기 위해 화일객체를 생성
' (모든 내용을 없에고 새로운 내용으로 OverWrite한다)
Set counter = fs.CreateTextFile(file, true)
' 카운트 변수의 내용을 오픈된 화일에 저장
counter.Write(cnt)
' 화일을 닫는 다.
counter.Close
' 카운터의 자릿수에서 카운터 변수의 자릿수를 뺀 만큼을 0으로 채워 준다.
for i=1 to size-len(cnt)
zero = zero & "0"
next
cnt = zero & cnt
' 자릿수에 해당 되는 숫자를 문자로 변환 시켜서 출력 시켜 준다.
' 화일 이름은 해당숫자.gif 이다.
for i=1 to size
digit = mid(cnt, i, 1)
Response.Write "![](./images/digit/") "
next
%>
|