Subversion Repositories DevTools

Rev

Rev 1499 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1499 Rev 3920
Line 92... Line 92...
92 
			Call OpenInWindow ( "index.asp" )
 92 
			Call OpenInWindow ( "index.asp" )
93 
		End If
 93 
		End If
94
94
95
95
96 
	End If
 96 
	End If
97
- 
 
98 
End If
 97 
End If
99 
 
 98 
 
- 
 
 99 
' Attempt to kill of old ASPSESSIONID cookies
- 
 
 100 
'   Appears that we get one every time we login
- 
 
 101 
'   Soluton: Kill them all before we login
- 
 
 102 
'
- 
 
 103 
If instr(Request.ServerVariables("HTTP_COOKIE"), "ASPSESSIONID") > 0 Then
- 
 
 104 
 
- 
 
 105 
    Dim Allcookies,i
- 
 
 106 
 
- 
 
 107 
    AllCookies = Split(Request.ServerVariables("HTTP_COOKIE"),";")
- 
 
 108 
    For i = 1 to UBound(AllCookies)
- 
 
 109 
 
- 
 
 110 
        If instr(AllCookies(i), "ASPSESSIONID") > 0 Then
- 
 
 111 
            Response.AddHeader "Set-Cookie", Left(AllCookies(i),instr(AllCookies(i),"=") -1) & "=0; path=/;secure;httponly"
- 
 
 112 
        End if
- 
 
 113 
 
- 
 
 114 
    Next
- 
 
 115 
End If
- 
 
 116 
 
- 
 
 117 
 
100 
Call AccessManagerMessage( Request("message") )
 118 
Call AccessManagerMessage( Request("message") )
101 
'----------------------------------------------
 119 
'----------------------------------------------
102 
%>
 120 
%>
103 
<html>
 121 
<html>
104 
<head>
 122 
<head>