Subversion Repositories DevTools

Rev

Rev 3959 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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