|
|
|
|
 |
|
채널이 / 2000-11-03 / 오전 9:40:34 / 211.55.55.121
조회수 : 141
|
| [질문] 위에거 추가내용
|
게시판 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
|
|
|
|