Develope/ASP

카운터소스

친절한 웬디양~ㅎㅎ 2010. 1. 13. 15:45
반응형

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>&nbsp;</p>

현재 : <%=application("now_visit")%>

오늘 : <%=application("today_visit")%>

전체 : <%=application("count")%>

 

</font></center>
</body>
</html>

반응형