Não uso nenhum destes requests citados acima. Abaixo segue o fonte da pagina de login, executaLogin e a página principal que deveria receber as sessões da página de executalogin: Pagina de login: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
if( session("IDIOMA") = "" )then
session("IDIOMA") = "PT-BR"
end if
if( request("hidResolucao") <> "")then
session("resolucao") = request("hidResolucao")
end if
if( request("verBrowser") <> "")then
session("verBroser") = request("verBrowser")
end if
%>
<% if(session("IDIOMA") = "PT-BR") then %>
<!--#include file="idiomas/portugues.asp"-->
<%else%>
<!--#include file="idiomas/espanhol.asp" -->
<!--#include file="idiomas/ingles.asp" -->
<% end if %>
<%
Session("FILTRO_PCOL_DTINI") = ""
Session("FILTRO_PCOL_DTFIM") = ""
Session("FILTRO_PCOL_ACEIT") = ""
Session("FILTRO_PCOL_RECUS") = ""
Session("FILTRO_PCOL_NENVI") = "N"
Session("FILTRO_PCOL_INICI") = "S"
Session("ECOMMERCE_OPERADOR_LOGADO") = ""
%>
<html>
<head>
<title><%=str00001%></title>
<link rel="stylesheet" href="css/estilos.css" >
</head>
<body class="fundo00 margem00 bInicio br1 bl1 bb1"><!--bgcFundo-->
<form name="frmLogin" id="frmLogin" action="executaLogin.asp" method="post" onsubmit="confirmar( event );" >
<%if( cInt( Session("resolucao") ) >= 1024 )then%>
<br></br>
<%end if%>
<br><br>
<table align="center" border=0 cellspacing="0" class="fundo00" width="100%" >
<tr><%for i=0 to 19%><td width="5%"></td><%next%></tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<tr>
<td colspan="06" class="txt08" > </td>
<td colspan="08" class="txt08 cffffff negrito tac bLogin br1 bt1 bl1 fundo02" ><%=str00002%></td>
<td colspan="06" class="txt08" ></td>
</tr>
<tr>
<td colspan="06" class="txt08" > </td>
<td colspan="08" class="txt08 bLogin bl1 br1" > </td>
<td colspan="06" class="txt08" > </td>
</tr>
<tr>
<td colspan="06" class="txt08" > </td>
<td colspan="01" class="txt08 bLogin bl1" > </td>
<td colspan="02" class="txt08" > <%=str00003%></td>
<td colspan="04" class="txt08" ><input type="text" name="txt0000" id="txt0000" class="txt08" style="width:100%;" value="<%=request("param00")%>" onkeydown="verTeclaPressionada(event,this.id);" /></td>
<td colspan="01" class="txt08 bLogin br1" > </td>
</tr>
<tr>
<td colspan="06" class="txt08" > </td>
<td colspan="01" class="txt08 bLogin bl1" > </td>
<td colspan="02" class="txt08" > <%=str00004%> <span id='spnSenhaOperador'></span></td>
<td colspan="04" class="txt08" ><input type="password" codigo="1adodsfo" name="txt0001" id="txt0001" class="txt08" style="width:100%;" onkeydown="verTeclaPressionada(event,this.id);" /></td>
<td colspan="01" class="txt08 bLogin br1" > </td>
</tr>
<tr id='trOperador' style="display:<%If Request("txtOperador") = "" Then Response.Write("none") Else Response.write("block") End If%>">
<td colspan="06" class="txt08" > </td>
<td colspan="01" class="txt08 bLogin bl1" > </td>
<td colspan="02" class="txt08" > Operador</td>
<td colspan="04" class="txt08" ><input type="text" name="txtOperador" id="txtOperador" value="<%=Request("txtOperador")%>" class="txt08" style="width:100%;" onkeydown="verTeclaPressionada(event,this.id);" maxlength="12" title='Entre com o código do Operador para acessar.'/></td>
<td colspan="01" class="txt08 bLogin br1" > </td>
</tr>
<tr>
<td colspan="06" class="txt08" > </td>
<td colspan="08" class="txt08 bLogin bl1 br1" > </td>
<td colspan="06" class="txt08" > </td>
</tr>
<tr>
<td colspan="06" class="txt08" > </td>
<td colspan="01" class="txt08 bLogin bl1" > </td>
<td colspan="03" class="txt08" ><input type="submit" name="btn000" id="btn000" class="txt08 cffffff negrito fundo03" style="width:100%;" value="<%=str00006%>" /></td>
<td colspan="03" class="txt08" ><input type="button" name="btn001" id="btn001" class="txt08 cffffff negrito fundo03" style="width:100%;" value="<%=str00005%>" onclick="opcoes(); " /></td>
<td colspan="01" class="txt08 bLogin br1" > </td>
</tr>
<tr>
<td colspan="06" class="txt08" > </td>
<td colspan="08" class="txt08 bLogin bl1 br1 bb1" > </td>
<td colspan="06" class="txt08" > </td>
</tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<%if( cInt( Session("resolucao") ) >= 1024 )then%>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<%end if%>
</table>
<input type="hidden" name="hidResolucao" id="hidResolucao" value="<%=request("hidResolucao")%>" />
<input type="hidden" name="verBrowser" id="verBrowser" value="<%=session("verBrowser")%>" />
</form>
<script language="JavaScript" type="text/javascript" src="js/funcoes.js" ></script>
<script language="JavaScript" type="text/javascript" >
var blnOperadorAcionado = false;
function verTeclaPressionada( ev, obj ) {
if( ev.ctrlKey && ev.shiftKey && keyCodeFF(ev) == 79 ) {
if( !blnOperadorAcionado ) {
document.getElementById("trOperador").style.display = "block";
document.getElementById("spnSenhaOperador").innerHTML = "(operador)";
try{document.getElementById(obj).focus();}catch(e){document.getElementById("txt0001").focus();}
blnOperadorAcionado = true;
} else {
document.getElementById("trOperador").style.display = "none";
document.getElementById("spnSenhaOperador").innerHTML = "";
try{document.getElementById(obj).focus();}catch(e){document.getElementById("txt0001").focus();}
document.getElementById("txtOperador").value = "";
blnOperadorAcionado = false;
}
}
}
</script>
<%if( session("ECOMMERCE_LOGIN") = "SITE_ECOMMERCE_LOGADO" )then %>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaPrincipal.asp?hidResolucao="+screen.width+"verBrowser="+getBrowser();
</script>
<%else%>
<script language="JavaScript" type="text/javascript" >
var verBrowser = getBrowser();
var janelaOpcoes = null;
var janelaTrocaSenha = null;
var str00008 = "<%=str00008%>";
var str00017 = "<%=str00017%>";
var str00018 = "<%=str00018%>";
var param00 = "<%=request("param00")%>";
<%if( session("paginaInicial_senhaExpirou") = "true" )then%>
var senhaExpirou = true;
<%else%>
var senhaExpirou = false;
<%end if%>
</script>
<script language="JavaScript" type="text/javascript" src="js/paginaInicial.js" ></script>
<%end if%>
</body>
</html>
-------------------------------------------------------fim da página de login-----------------------------------------
Página ExecutaLogin:
<%@Language="VBScript" CodePage="1252"%>
<!--#include file="idiomas/portugues.asp"-->
<!--#include file="idiomas/espanhol.asp" -->
<!--#include file="idiomas/ingles.asp" -->
<!--#include virtual="asp/funcoes.asp"-->
<!-- Tela executaLogin.asp -->
<html>
<head>
<title><%=str00001%></title>
<link rel="stylesheet" href="Css/estilos.css">
</head>
<body class = "fundo00 margem00 bInicio br1 bl1 bb1">
<%
Dim senha, login, mensagem, tempo, descricao, cdOperador
login = Request("txt0000")
senha = Request("txt0001")
cdOperador = Request.Form("txtOperador")
If Request("hidResolucao" ) <> "" Then
Session("resolucao") = Request("hidResolucao" )
End If
Set oleObj = Server.CreateObject("Sup03600.rdmCtrlPedColetaHtml")
'Verifica se é para validar senha do operador ou usuário
If Not FblnVazio(cdOperador) Then
resultado = oleObj.getLoginOpe( login , senha, zerosEsquerda(cdOperador,12) )
Else
resultado = oleObj.getLogin( login , senha )
End If
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
Set params = Server.CreateObject("Microsoft.XMLDOM")
Set linha = Server.CreateObject("Microsoft.XMLDOM")
Set colunas = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.loadXML( resultado )
If xmlDoc.parseError.errorCode <> 0 Then
%>
<script language="JavaScript" type="text/javascript" >
alert("Ocorreu um erro no servidor, favor tentar novamente mais tarde:\n\n<%=Replace(Replace(Replace(xmlDoc.parseError.reason,chr(13),"\n"),"'","\'"),chr(10),"")%>");
history.back();
</script>
<%
Else
Set params = xmlDoc.getElementsByTagName("PARAM")
mensagem = params.item(0).getAttribute("Value")
If mensagem = "SENHA_INVALIDA" Then
%>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaInicial.asp?param00=<%=login%>&txtOperador=<%=cdOperador%>&hidResolucao="+screen.width;
alert("<%=str00019%>");
</script>
<%
ElseIf mensagem = "ACESSO_OPERADOR_INVALIDO" Then
%>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaInicial.asp?param00=<%=login%>&txtOperador=<%=cdOperador%>&hidResolucao="+screen.width;
alert("Operador não cadastrado ou sem permissão.");
</script>
<%
ElseIf mensagem = "DATA_EXPIROU" Then
Session("paginaInicial_senhaExpirou") = "true"
%>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaInicial.asp?param00=<%=login%>&txtOperador=<%=cdOperador%>&hidResolucao="+screen.width;
alert("<%=str00020%>");
</script>
<%
ElseIf mensagem = "DATA_EXPIRANDO" Then
tempo = params.item(1).getAttribute("Value")
If tempo <> "0" Then
tempo = Replace( str00021, "[@param00@]", tempo )
Else
tempo = str00035
End If
Set colunas = xmlDoc.getElementsByTagName("FIELD")
Set linha = xmlDoc.getElementsByTagName("ROW")
Set params = xmlDoc.getElementsByTagName("PARAM")
For i=0 To colunas.length-1
campo = colunas.item(i).getAttribute("attrname")
Session( campo ) = linha.item(0).getAttribute( campo )
Session( campo + "_DESCRICAO" ) = params.item( i+1 ).getAttribute( "Value" )
Next
Session("ECOMMERCE_LOGIN") = "SITE_ECOMMERCE_LOGADO"
Session("paginaPrincipal_tempoParaExpirar") = tempo
%>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaPrincipal.asp?hidResolucao="+screen.width;
</script>
<%
ElseIf mensagem = "LOGIN_NAO_CADASTRADO" Then
%>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaInicial.asp?param00=<%=login%>&txtOperador=<%=cdOperador%>&hidResolucao="+screen.width;
alert("<%=str00022%>"); //" Login não cadastrado";
</script>
<%
ElseIf mensagem = "ERRO_SERVIDOR" Then
%>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaInicial.asp?param00=<%=login%>&txtOperador=<%=cdOperador%>&hidResolucao="+screen.width;
alert("<%=str00023%>"); //" Problemas no servidor";
</script>
<%
ElseIf mensagem = "LOGIN_CORRETO" Then
Set colunas = xmlDoc.getElementsByTagName("FIELD")
Set linha = xmlDoc.getElementsByTagName("ROW")
Set params = xmlDoc.getElementsByTagName("PARAM")
For i=0 To colunas.length-1
campo = colunas.item(i).getAttribute("attrname")
Session( campo ) = linha.item(0).getAttribute( campo )
Session( campo + "_DESCRICAO" ) = getElementByName( campo, params )
Next
Session("ECOMMERCE_LOGIN") = "SITE_ECOMMERCE_LOGADO"
If Not FblnVazio(cdOperador) Then
Session("ECOMMERCE_OPERADOR_LOGADO") = zerosEsquerda(cdOperador,12)
End If
%>
<script language="JavaScript" type="text/javascript" >
top.frames("frmHome").location.href = "paginaPrincipal.asp?hidResolucao="+screen.width;
</script>
<%
End If
End If
Function getElementByName( ByVal name, ByRef colecao )
Dim retorno : retorno = ""
Dim j : j = 0
For j=0 To colecao.length-1
If name = colecao.item(j).getAttribute("Name") Then
retorno = colecao.item(j).getAttribute("Value")
Exit For
End If
Next
getElementByName = retorno
End Function
%>
</body>
</html>
-----------------------------------------------------Fim da página exectuaLogin------------------------------
Página principal:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="idiomas/portugues.asp"-->
<!--#include file="idiomas/espanhol.asp" -->
<!--#include file="idiomas/ingles.asp" -->
<!-- Tela paginaPrincipal.asp -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=str00001%></title>
<link rel="stylesheet" type="text/css" href="css/estilos.css" />
</head>
<body class = "margem00 fundo00 bInicio br1 bl1 bb1">
<%if( (session("ECOMMERCE_LOGIN") = "SITE_ECOMMERCE_LOGADO") and Session("IDIOMA") <> "" )then %>
<table align="center" border="0" cellspacing="0" class="fundo00" width="100%"> <!-- borda01-->
<tr><%for i=0 to 19%><td width="5%"></td><%next%></tr>
<tr>
<td colspan="15" class="txt08 tal negrito cffffff fundo01" > <%=str00001%> - <%=Application("nomeEmpresaContratante")%></td>
<td colspan="03" class="txt08 tac fundo01 bl1 bTopo" ><a href="" class="lk001 negrito" onclick="alterarSenha( event );" ><%=str00024%></a> </td>
<td colspan="02" class="txt08 tac fundo01 bl1 bTopo" ><a href="" class="lk001 negrito" onclick="sair( event );" ><%=str00025%></a> </td>
</tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_sup_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" background="imagens/cont_sup.gif" style="background-repeat:repeat;" ></td>
<td colspan="01" background="imagens/cont_sup_direito.gif" style="background-repeat:no-repeat;" ></td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" > </td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" > </td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" class="txt08 tac c828200" ><%=str00031%>: <%=session("NMRAZSOCFORN")%></td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" class="tac txt12" ><a href="alterarDados.asp" class="lk000" onclick=""><%=str00026%></a></td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" > </td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" > </td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" class="txt08 tac c828200" ><%=str00032%>: <%=session("NRINSJURFORN")%></td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" class="tac txt12" ><a href="pedCotacao_Antes.asp" class="lk000" onclick=""><%=str00027%></a></td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" > </td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" > </td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" class="txt08 tac c828200" ><%=str00033%>: <%=session("NRINSESTFORN")%></td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" class="tac txt12" ><a href="histCotacao_Geral_Antes.asp" class="lk000" onclick=""><%=str00028%></a></td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" > </td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" > </td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" class="txt08 tac c828200" ><%=str00034%>: <%=session("DTCADAFORN")%></td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" class="tac txt12" ><a href="leilaoReverso_Antes.asp" class="lk000" onclick=""><%=str00029%></a></td>
</tr>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" > </td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" > </td>
</tr>
<%
'Lendo arquivo de configuração principal
Dim fs, arquivo, controle
Dim blnContasAReceber : blnContasAReceber = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set arquivo = fs.OpenTextFile( Server.MapPath("emailConf.ini") )
While Not arquivo.AtEndOfStream
Select Case controle
Case "[CONTASARECEBER]" :
blnContasAReceber = arquivo.readLine
controle = ""
End Select
If Not arquivo.AtEndOfStream Then
controle = arquivo.readline
End If
Wend
arquivo.close
If blnContasAReceber = 1 Then
%>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_lateral_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" > </td>
<td colspan="01" background="imagens/cont_lateral_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" class="tac txt12" ><a href="../contasAReceber/contasAReceber.asp" class="lk000" onclick="">Contas a receber</a></td>
</tr>
<%End If%>
<tr>
<td colspan="01" > </td>
<td colspan="01" background="imagens/cont_inf_esquerdo.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="07" background="imagens/cont_inf.gif" style="background-repeat:repeat;" ></td>
<td colspan="01" background="imagens/cont_inf_direito.gif" style="background-repeat:no-repeat;" ></td>
<td colspan="10" > </td>
</tr>
<%if( cInt( Session("resolucao") ) >= 1024 )then%>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<tr><td colspan="20" > </td></tr>
<%end if%>
</table>
<script language="JavaScript" type="text/javascript" src="js/funcoes.js" ></script>
<script language="JavaScript" type="text/javascript" >
var verBrowser = getBrowser();
var str00008 = "<%=str00008%>";
var janelaAlterarSenha = null;
var janelaPerguntaTrocaSenha = null;
<%if( session("paginaPrincipal_tempoParaExpirar") <> "" )then%>
var senhaExpirando = true;
var mensagemSenhaExpirando = "<%=session("paginaPrincipal_tempoParaExpirar")%>";
<%session("paginaPrincipal_tempoParaExpirar") = "" %>
<%else%>
var senhaExpirando = false;
var mensagemSenhaExpirando = "";
<%end if%>
function sair( objEvento ){
if( verBrowser == "MSIE"){
objEvento.returnValue = false;
}else if( verBrowser == "FIREFOX"){
objEvento.preventDefault();
}
location.href = "logout.asp";
}
function alterarSenha( objEvento ){
if( verBrowser == "MSIE" )
objEvento.returnValue = false;
else if( verBrowser == "FIREFOX" )
objEvento.preventDefault();
try{
janelaAlterarSenha = window.open("alteraSenha.asp" ,"trocaSenha","center=1,width=300,height=150,statusbar=no,menubar=no,toolbar=no,left="+((screen.width-230)/2)+",top="+((screen.height-190)/2) );
janelaAlterarSenha.focus();
}
catch(e){
alert( str00008 );
}
}
window.onload = function(){
if( senhaExpirando ){
try{
janelaPerguntaTrocaSenha = window.open("perguntaTrocaSenha.asp?mensagemSenhaExpirando=" + mensagemSenhaExpirando ,"perguntaTrocaSenha","center=1,width=350,height=50,statusbar=no,menubar=no,toolbar=no,left="+((screen.width-230)/2)+",top="+((screen.height-190)/2) );
}
catch(e){
alert( str00008 );
}
}
}
window.onunload = function(){
try{janelaAlterarSenha.close(); }catch(e){}
try{janelaPerguntaTrocaSenha.close();}catch(e){}
}
</script>
<%else%>
<script language="JavaScript" type="text/javascript" >
alert("<%=application("sessaoExpirou")%>")
location.href = "logout.asp";
</script>
<%end if%>
</body>
</html> ------------------------------------------------Fim da página Principal-----------------------------------------------------
