vulmarjunior Postado Novembro 7, 2003 Denunciar Share Postado Novembro 7, 2003 Tenho uma página de login que gostaria que ao invés de chamar uma página comum asp ou html chamasse uma ChromeslessWindow, o codigo pra chamr é essa Chromesless apartir de um link tem que conter isso na pag:<script src="pz_chromeless_2.1.js" id="chromeless"></script><script language="JavaScript" type="text/JavaScript"><!--function openChromeslessWindow(openUrl, winName, wWidth, wHeight, wPosx, wPosy, wTIT, windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel, bCenter, sFontFamily, sFontSize, sFontColor){ openchromeless(openUrl,winName, wWidth, wHeight, wPosx, wPosy, wTIT, wTIT , windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel, bCenter, sFontFamily, sFontSize, sFontColor);}//--></script><a href="#" onClick="openChromeslessWindow('index.html','pontocom',800,600,null,null,'Pontocm - Soluções em Informática', '#000066', '#000099', '#FFFFFF', '#FFFFFF' ,true,'Arial, Helvetica, sans-serif', '1','#FFFFFF')">dfasdfasdf </a> Só que eu quero que essa função seja chamada apartir desse documento qando o login for bem sucedido: segue abaixo a pagina de login<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/conection.asp" --><%' *** Validate request to log in to this site.MM_LoginAction = Request.ServerVariables("URL")If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryStringMM_valUsername=CStr(Request.Form("usuario"))If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="clientes.asp" MM_redirectLoginFailed="erro.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_pontocom_STRING MM_rsUser.Source = "SELECT login, senha" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed)End If%> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Decio Postado Novembro 7, 2003 Denunciar Share Postado Novembro 7, 2003 Desculpe se não entendi direito, mas e se você depois que validar o login , redirecionar o usuario para uma página que no seu evento "load" abriria este link.daria certo isto? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
vulmarjunior
Tenho uma página de login que gostaria que ao invés de chamar uma página comum asp ou html chamasse uma ChromeslessWindow, o codigo pra chamr é essa Chromesless apartir de um link tem que conter isso na pag:
<script src="pz_chromeless_2.1.js" id="chromeless"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function openChromeslessWindow(openUrl, winName, wWidth, wHeight, wPosx, wPosy, wTIT,
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
bCenter, sFontFamily, sFontSize, sFontColor){
openchromeless(openUrl,winName, wWidth, wHeight, wPosx, wPosy, wTIT, wTIT ,
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
bCenter, sFontFamily, sFontSize, sFontColor);
}
//-->
</script>
<a href="#" onClick="openChromeslessWindow('index.html','pontocom',800,600,null,null,'Pontocm - Soluções em Informática', '#000066', '#000099', '#FFFFFF', '#FFFFFF' ,true,'Arial, Helvetica, sans-serif', '1','#FFFFFF')">dfasdfasdf
</a>
Só que eu quero que essa função seja chamada apartir desse documento qando o login for bem sucedido: segue abaixo a pagina de login
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conection.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("usuario"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="clientes.asp"
MM_redirectLoginFailed="erro.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_pontocom_STRING
MM_rsUser.Source = "SELECT login, senha"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
Link para o comentário
Compartilhar em outros sites
1 resposta 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.