global.asa 소스입니다
<script language="vbscript" runat="server">
Sub Application_OnStart
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
VisitCountFileName =server.MapPath("abc")&"\visit.txt"
Set Out = FileObject.OpenTextFile(VisitCountFileName,1,FALSE,FALSE)
Application("count")=Out.ReadLine
Application("VisitCountFileName")=VisitCountFileName
Application("now_visit") = 0
End Sub
Sub Application_OnEnd
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"),TRUE)
Application.Lock
Out.WriteLine(Application("count"))
Application.UnLock
End sub
Sub Session_OnStart
Application.lock
Application("count")= Application("count")+1
Application("now_visit") = Application("now_visit") + 1 '현재접속인원 체크용
Application.unlock
Session.Timeout = 20
If Application("count") MOD 10 = 0 Then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"),TRUE)
Application.lock
Out.WriteLine(Application("count"))
Out.Close
Application.unlock
End If
if Application("today") <> left(now,10) then '날짜가 다음날이 되었다면....today count....
Application.lock
Application("today") = left(now,10)
Application("today_visit") = 1
Application.unlock
else '아직 오늘이라면...
Application.lock
Application("today_visit") = Application("today_visit") + 1
Application.unlock
end if
End Sub
Sub Session_OnEnd
Application.lock
Application("now_visit") = Application("now_visit") - 1 '현재접속인원 체크용
Application.unlock
End Sub
</script>
main.asp 소스
<html>
<body>
<center><font face="돋움" size="3">
<p> </p>
현재 : <%=application("now_visit")%>
오늘 : <%=application("today_visit")%>
전체 : <%=application("count")%>
</font></center>
</body>
</html>