Ir para conteúdo
Fórum Script Brasil
  • 0

Chamar Função Javascript


vulmarjunior

Pergunta

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&ccedil;&otilde;es em Inform&aacute;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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...