Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Luka13

Tempo de login

Recommended Posts

Tenho uma página de acesso restrito (funciona normal), mas gostaria que ela tivesse um tempo muito longo de permissão, antes que caia automaticamente.

 

É possível determinar o tempo que o usuário pode ficar numa página restrita? Ou então, é possível que o acesso permaneça e não caia, saindo somente quando ele clicar em logoff?

 

Minha página:

 

<%' *** Restrict Access To Page: Grant or deny access to this pageMM_authorizedUsers=""MM_authFailedURL="erro_perm.asp"MM_grantAccess=falseIf Session("MM_Username") <> "" Then  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _		 (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then	MM_grantAccess = true  End IfEnd IfIf Not MM_grantAccess Then  MM_qsChar = "?"  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"  MM_referrer = Request.ServerVariables("URL")  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)  Response.Redirect(MM_authFailedURL)End If%><!--#include file="Connections/Usuarios.asp" --><%Dim Usuarios__MMColParamUsuarios__MMColParam = "1"If (Request.QueryString("ID") <> "") Then   Usuarios__MMColParam = Request.QueryString("ID")End If%><%Dim UsuariosDim Usuarios_numRowsSet Usuarios = Server.CreateObject("ADODB.Recordset")Usuarios.ActiveConnection = MM_Usuarios_STRINGUsuarios.Source = "SELECT * FROM Usuarios WHERE ID = " + Replace(Usuarios__MMColParam, "'", "''") + ""Usuarios.CursorType = 0Usuarios.CursorLocation = 2Usuarios.LockType = 1Usuarios.Open()Usuarios_numRows = 0%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.