21/11/2005, 08:53
|
| | | Fecha de Ingreso: noviembre-2002 Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años, 1 mes Puntos: 4 | |
Caducidad de la cookie al día siguiente Hola, muy buenas. Envío una cookie al auntentificar a un cliente que caduca a los 20 minutos. Sin embargo, he intentado que si el cliente es uno en concreto le caduque al día siguiente y no a los 20 minutos, aunque cierre el explorador.
Código:
Private Sub creaTicket(ByVal nombre As String, ByVal rol As String, ByVal expiraMin As Integer)
FormsAuthentication.Initialize()
' Caducidad del ticket al día siguiente,
' sólo si se hace desde una IP y es para el usuario "privilegiado".
If Request.ServerVariables("HTTP_CLIENT_IP") = "XXX.XXX.XXX.XXX" And nombre = "privilegiado" Then
expiraMin = Today.AddDays(1).Subtract(Now).Minutes
End If
' Se crea el ticket con el rol que le corresponda
Dim ticket As New FormsAuthenticationTicket(1, _
nombre, _
DateTime.Now, _
DateTime.Now.AddMinutes(expiraMin), _
True, rol, _
FormsAuthentication.FormsCookiePath)
' Se encripta el ticket
Dim encTicket As String = FormsAuthentication.Encrypt(ticket)
' Se crea la cookie con el ticket encriptado
Dim cookie As New HttpCookie(FormsAuthentication.FormsCookieName, encTicket)
' Caducidad de la cookie al día siguiente,
' sólo si se hace desde una IP y es para el usuario "privilegiado".
If Request.ServerVariables("HTTP_CLIENT_IP") = "XXX.XXX.XXX.XXX" And nombre = "privilegiado" Then
cookie.Expires = Today.AddDays(1)
End If
' Se envía la cookie
Response.Cookies.Add(cookie)
End Sub
Gracias y un saludo.
__________________ ¡¡NO A LA GUERRA!!
Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |