|
|
|
|
 |
|
채영이 / 2000-11-03 / 오후 1:21:40 / 203.255.3.190
조회수 : 128
|
| [질문] 위에거 추가내용
|
> 게시판 asa파일과
> 카운터 asa파일내용이 틀려서 그렇습니다.
> 우리 회사 홈페이지 카운터를 보니까
> 전혀 다른 내용이더라구욤
> -----회사 global.asa파일 내용 ---------
>
> Sub Application_OnStart
>
> Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
> VisitCountFileName = "e:\woojung\visit1.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
>
> if left(request.servervariables("REMOTE_ADDR"),9) <> "211.39.8." then
> 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
> end if
> End Sub
>
> Sub Session_OnEnd
> if left(request.servervariables("REMOTE_ADDR"),9) <> "211.39.8." then
> Application.lock
> Application("now_visit") = Application("now_visit") - 1 '현재접속인원 체크용
> Application.unlock
> end if
>
> End Sub
>
>
-----------------------------------------------------------
카운트용 global.asa는 게시판용 global.asa에 필요한 내용에
카운트에 필요한 내용이 첨가된것입니다.
즉 카운트용 global.asa가 있으면 게시판용 global.asa는 없어도 됩니다.
그리고 게시판을 구현하는 방법이 여러가지듯이
카운트를 구현하는 방법도 당연히 여러가지입니다.
세상에 한가지 방식만이 존재하는건 아니지요.
위의 소스는 파일을 이용하여 단순히 방문객의 숫자만을 저장하는 카운트입니다.
대신 제가 만든건 방문객의 숫자와 그 방문 분포를 보여주는 소스입니다.
그럼...
|
|
|
|