꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	<!-- 회원 로그인 --> <tr> <td width="100%" class="Text"> <div align="center"> <center> <table border="0" width="800" cellspacing="0" cellpadding="0"> <tr> <td width="100%" class="Text"><%=session("name")%>(<%=session("EnartId")%>)님 방문을 환영 합니다. <a href="../index_1.asp"> [로그 아웃]</a> / [개인정보 관리]</td> </tr> </table></center></div></td></tr> 여기서 어떻게 세션을 닫고 로그아웃하게 할 수 있나요? 고수님의 답변을 이 초보가 기다리겟습니다. [global.asa] <SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Application_OnStart '----새로추가 Set FileObject = Server.CreateObject("Scripting.FileSystemObject") VisitCountFileName = Server.MapPath("\visitnum")+"\visit.txt" Set Out = FileObject.OpenTextFile(VisitCountFileName,1,FALSE,FALSE) Application("visit")=Out.ReadLine Application("VisitCountFileName")=VisitCountFileName End Sub Sub Application_OnEnd Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"),TRUE,FALSE) Application.Lock Out.WriteLine(Application("visit")) Application.UnLock End sub Sub Session_OnStart '----새로추가 Application.lock Application("visit")= Application("visit") + 1 Application.unlock Session.Timeout = 20 If Application("visit") MOD 5 = 0 Then Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set Out = FileObject.CreateTextFile(Application("VisitCountFileName"),TRUE,FALSE) Application.lock Out.WriteLine(Application("visit")) Application.unlock End If End Sub Sub Session_OnEnd End Sub Sub FrontPage_StartSession On Error Resume Next if Len(Application("FrontPage_VRoot")) > 0 then Exit Sub ' discover the VRoot for the current page; ' walk back up VPath until we find global.asa Vroot = Request.ServerVariables("PATH_INFO") strG1 = "global.asa" strG2 = "Global.asa" iCount = 0 do while Len(Vroot) > 1 idx = InStrRev(Vroot, "/") if idx > 0 then Vroot = Left(Vroot,idx) else ' error; assume root web Vroot = "/" end if if FrontPage_FileExists(Server.MapPath(Vroot & strG1)) then exit do if FrontPage_FileExists(Server.MapPath(Vroot & strG2)) then exit do if Right(Vroot,1) = "/" then Vroot = Left(Vroot,Len(Vroot)-1) iCount = iCount + 1 if iCount > 100 then ' error; assume root web Vroot = "/" exit do end if loop ' map all URL= attributes in _ConnectionString variables Application.Lock if Len(Application("FrontPage_VRoot")) = 0 then Application("FrontPage_VRoot") = Vroot UrlVarArray = Application("FrontPage_UrlVars") for i = 0 to UBound(UrlVarArray) if Len(UrlVarArray(i)) > 0 then FrontPage_MapUrl(UrlVarArray(i)) next end if Application.Unlock End Sub Sub FrontPage_MapUrl(AppVarName) ' convert URL attribute in conn string to absolute file location strVal = Application(AppVarName) strKey = "URL=" idxStart = InStr(strVal, strKey) If idxStart = 0 Then Exit Sub strBefore = Left(strVal, idxStart - 1) idxStart = idxStart + Len(strKey) idxEnd = InStr(idxStart, strVal, ";") If idxEnd = 0 Then strAfter = "" strURL = Mid(strVal, idxStart) Else strAfter = ";" & Mid(strVal, idxEnd + 1) strURL = Mid(strVal, idxStart, idxEnd - idxStart) End If strOut = strBefore & Server.MapPath(Application("FrontPage_VRoot") & strURL) & strAfter Application(AppVarName) = strOut End Sub Function FrontPage_FileExists(fspath) On Error Resume Next FrontPage_FileExists = False set fs = CreateObject("Scripting.FileSystemObject") Err.Clear set istream = fs.OpenTextFile(fspath) if Err.Number = 0 then FrontPage_FileExists = True istream.Close end if set istream = Nothing set fs = Nothing End Function </SCRIPT> win2000(pro)에서 local로 실행중인데 어떻게 세션을 주어야 할 지 잘 기억이 안나고 잘 모르겠네요. 답변 좀 부탁합니다.

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *