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 page
MM_authorizedUsers=""
MM_authFailedURL="erro_perm.asp"
MM_grantAccess=false
If 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 If
End If
If 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__MMColParam
Usuarios__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
Usuarios__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Usuarios
Dim Usuarios_numRows
Set Usuarios = Server.CreateObject("ADODB.Recordset")
Usuarios.ActiveConnection = MM_Usuarios_STRING
Usuarios.Source = "SELECT * FROM Usuarios WHERE ID = " + Replace(Usuarios__MMColParam, "'", "''") + ""
Usuarios.CursorType = 0
Usuarios.CursorLocation = 2
Usuarios.LockType = 1
Usuarios.Open()
Usuarios_numRows = 0
%>
Pergunta
Luka13th
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 page MM_authorizedUsers="" MM_authFailedURL="erro_perm.asp" MM_grantAccess=false If 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 If End If If 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__MMColParam Usuarios__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Usuarios__MMColParam = Request.QueryString("ID") End If %> <% Dim Usuarios Dim Usuarios_numRows Set Usuarios = Server.CreateObject("ADODB.Recordset") Usuarios.ActiveConnection = MM_Usuarios_STRING Usuarios.Source = "SELECT * FROM Usuarios WHERE ID = " + Replace(Usuarios__MMColParam, "'", "''") + "" Usuarios.CursorType = 0 Usuarios.CursorLocation = 2 Usuarios.LockType = 1 Usuarios.Open() Usuarios_numRows = 0 %>Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.