간단하게 만들어본 카운터예제입니다. Session방식이 아니라서 페이지가 로딩될때마다 카운터가 막 올라갑니다.
다음번에는 global.asa에서 사이트에 접근하는 Session을 체크하는 방식으로 수정해서 올리겠습니다.
소스는 잘 실행됩니다.
<HTML>
<HEAD>
<TITLE>카운터예제</TITLE>
</HEAD>
<BODY>
<%
Dim objFSO, objFile, FilePath
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const FileName = "\counter.txt"
Filepath = Server.MapPath(Filename)
'파일시스템 객체를 생성한다.
Set objFSO = CreateObject("Scripting.FileSystemObject")
'파일이 존재하면
If objFSO.FileExists(Filepath) Then
Set objFile = objFSO.OpenTextFile(FilePath, ForReading, False, TristateUseDefault)
cnt = objFile.ReadLine '파일의 라인을 읽어서 값을 cnt 에 대입한다
objFile.Close
End If
Set objFile = objFSO.CreateTextFile(FilePath, true )
cnt = cnt + 1
objFile.Write cnt
objFile.Close
Set objFSO = nothing
%>
<h2><%=cnt%></h2>
</BODY>
</HTML>