꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

등록하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	HTML 사용
제목 *
내용 *	> 게시판 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 > > -----------------------------------------------------------

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *