Ir para conteúdo

Arquivado

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

xatria

- me onde ta o erro???

Por , em ASP Clássico

Recommended Posts

xatria    0

xatria
Postado

AAAeee alguem pode me ajudar!????

onde eu to errando

eu to fazendo um mural de recados mais eu keria fazer pra pessoa mandar msg, só poder mandar, se ela tiver logado no sistema, kuando ela se loga ele fais uma session = (login do usuairo)

mais ai ke ta !! kuando você clica pra mandar msg ele abre uma outra janelinha dai eu naum conigo usar esse session ai vai o codigo do formulario ke o cara tem ke tar logadp pra mandar msg

 

<%@Language="VBScript"%><%Option Explicit%><%Response.Expires = 0%><!-- #include file="inc/desabilita.txt" --><!-- #include file="inc/style.txt" --><!-- #include file="inc/conn.asp" --><% nick = request.Cookies("loginc")%><%  Dim varSq  Dim rsIncluir1  Dim rsUser1  varSq = "SELECT * "varSq = varSq & "FROM login WHERE login = '" & nick & "'"Set rsUser1 = Server.CreateObject("ADODB.Recordset")rsUser1.Open varSq, objConn	Dim i	Dim ii	Dim varCont	If Request.Form("txtDe") <> "" Then  Dim varSql  Dim rsIncluir  Dim varMensagem  Dim arrayCarinhas(14)  arrayCarinhas(0) = "(1)"  arrayCarinhas(1) = "(2)"  arrayCarinhas(2) = "(3)"  arrayCarinhas(3) = "(4)"  arrayCarinhas(4) = "(5)"  arrayCarinhas(5) = "(6)"  arrayCarinhas(6) = "(7)"  arrayCarinhas(7) = "(8)"  arrayCarinhas(8) = "(9)"  arrayCarinhas(9) = "(10)"  arrayCarinhas(10) = "(11)"  arrayCarinhas(11) = "(12)"  arrayCarinhas(12) = "(13)"  arrayCarinhas(13) = "(14)"  arrayCarinhas(14) = "(15)"    varSql = "SELECT * "  varSql = varSql & "FROM MuralRecados "    Set rsIncluir = Server.CreateObject("ADODB.Recordset")  rsIncluir.CursorType = 0  rsIncluir.CursorLocation = 2  rsIncluir.LockType = 3  rsIncluir.Open varSql, objConn      rsIncluir.AddNew  rsIncluir.Fields("DataInclusao") = Date()  rsIncluir.Fields("HoraInclusao") = hour(now()) +2 &":"& minute(now())  rsIncluir.Fields("De") = Request.Form("txtDe")  rsIncluir.Fields("Email") = Request.Form("txtEmail")  rsIncluir.Fields("Para") = Request.Form("txtPara")    varMensagem = Request.Form("areaMensagem")  For i = 0 to 14 	 varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=Imagens/Carinhas/" & i+1 & ".gif>")  Next    rsIncluir.Fields("Mensagem") = varMensagem  rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")  rsIncluir.Update	End If%><html>	<head>  <title>Mande sua MSG para o Site</title>  <script language="JavaScript">  <!-- 	 location.href.MuralRecados = ("Default.asp"); 	 <%If Request.Form("txtDe") <> "" Then%>    opener.location.reload();    window.close(); 	 <%End If%> 	  	 function Incluir(varForm){    if (varForm.txtDe.value == ""){   	 window.alert ("O campo De é de preenchimento obrigatório");   	 varForm.txtDe.focus();   	 return false;    }    if (varForm.txtEmail.value == ""){   	 window.alert ("O campo E-mail é de preenchimento obrigatório");   	 varForm.txtEmail.focus();   	 return false;    }    else{   	 if (varForm.txtEmail.value.search("@") == -1 || varForm.txtEmail.value.search("[.*]") == -1){      window.alert ("O e-mail não é válido");      varForm.txtEmail.focus();      return false;   	 }    }    if (varForm.txtPara.value == ""){   	 window.alert ("O campo Para é de preenchimento obrigatório");   	 varForm.txtPara.focus();   	 return false;    }    if (varForm.areaMensagem.value == ""){   	 window.alert ("O campo Mensagem é de preenchimento obrigatório");   	 varForm.areaMensagem.focus();   	 return false;    }    varForm.submit(); 	 } 	  	 function Carinhas(varForm, varCarinha){    var arrayCarinhas = new Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)")        varCarinha = varCarinha - 1;        varForm.areaMensagem.value = varForm.areaMensagem.value + " " + arrayCarinhas[varCarinha] + " "; 	 }  -->  </script>	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>	<body bgcolor="#999999" text="#FFFFFF" onLoad="JavaScript:document.formIncluir.txtDe.focus();">  <table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center"> 	 <tr>    <td>   	 <table border="0" align="center">        <form name="formIncluir" method="post" action="NovoRecado.asp">          <tr>             <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> De:               </font> </td>            <td> <input name="txtDe" type="text" class="3" value="<%rsUser1=("login")%>" size="35" maxlength="35" disabled>             </td>          </tr>          <tr>            <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> E-mail:               </font> </td>            <td> <input name="txtEmail" type="text" class="3" value="<%rsUser1=("email")%>" size="35" maxlength="35" disabled>             </td>          </tr>          <tr>             <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> Para:               </font> </td>            <td> <input type="text" name="txtPara" maxlength="35" size="35" class="3">             </td>          </tr>          <tr>             <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> Mensagem:               <br>              <br>              <br>              <br>              <br>              <br>              </font> </td>            <td> <textarea name="areaMensagem" class="3" cols="34" rows="5"></textarea>             </td>            <td width="5"> </td>            <td> <table cellpadding="0" cellspacing="0" border="0">                <%    For i = 1 to 3%>                <tr>                   <%For ii = 1 to 5%>                  <%varCont = varCont + 1%>                  <td><a href="#"><img src="Imagens/Carinhas/<%=varCont%>.gif" border="0" onClick="JavaScript:Carinhas(formIncluir, <%=varCont%>);"></a></td>                  <%If ii <> 5 Then%>                  <td width="5"> </td>                  <%End If%>                  <%Next%>                </tr>                <%If i <> 3 Then%>                <tr>                   <td height="5"> </td>                </tr>                <%End If%>                <%Next%>              </table></td>          </tr>          <tr>             <td> </td>            <td> <input type="button" name="btnColar" value="Colar" class="3" onClick="JavaScript:Incluir(formIncluir);">             </td>          </tr>        </form>      </table>    </td> 	 </tr>  </table>	</body></html>

 

alguem consegue me ajudar ai ??? :unsure: :unsure:

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

eae.... cara... eu não sei se to ficando velho, mas naum achei nada chamando session no seu script...mas ai vai...qdo você cria uma session, essa sessão pertence ao seu navegador... na janela atual, beleza.. se você for la, e abrir um navegador novo... no iniciar, programas, navegador e entrar no site, ele vai criar uma nova sessão.... mas se tiver uma janela, e abrir um popup via javascript ou vbscript, ele se torna como se fosse um filho da janela atual e compartilha todas as informações de session entre elas...se no seu caso isso naum esta acontecendo.. tenta postar as etapas q grava o session e a que puxa as informações, ok...fui,

Compartilhar este post

Link para o post
Compartilhar em outros sites

xatria    0

xatria
Postado

Ixi agora ke eu vi issu cara !!!

ó agora eu mudei aki e dei uma mexida o cogido mais mesmo assim naum funciono !!!! vo posta os codigos aki !!!!

 

codigo de kuando a pessoa loga

<!-- #include file="inc/conn.asp" --><%pagina = request("pagina")nick =  request("nick")senha = request("senha")if pagina = "" then  pagina = "default2.asp"end ifvarSql = "SELECT * "varSql = varSql & "FROM login WHERE login = '" & nick & "' AND senha = '" & senha & "'"Set rsUser = Server.CreateObject("ADODB.Recordset")rsUser.Open varSql, objConn	if rsUser.eof thenResponse.Redirect"default2.asp?msg=Nick ou Senha esta errado."elsesession("login")= rsUser("nome")Session("nick")= rsUser("login")Response.Redirect(pagina)end if%>

 

codigo dos request´s

 

<%ip = request.servervariableS("REMOTE_ADDR")login = Session("login")nick  = Session("nick")msg   = request("msg")if msg = "" then  msg = ""end ifnick = Session("nick")page = request("page")if page = "" then   page = "default3"end if%>

 

e agora o codigo da parte que envia a msg pro BD !! cara ele abre em pop up essa janela !!! a pessoa entra no mural de recados e kuando ela clica pra enviar msg dai apre um pop up com esse codigo

 

<%@Language="VBScript"%><%Option Explicit%><%Response.Expires = 0%><!-- #include file="inc/desabilita.txt" --><!-- #include file="inc/style.txt" --><!-- #include file="inc/conn.asp" --><!-- #include file="inc/request.txt" --><%  Dim varSq  Dim rsIncluir1  Dim rsUser1  varSq = "SELECT * "varSq = varSq & "FROM login WHERE login = '" & nick & "'"Set rsUser1 = Server.CreateObject("ADODB.Recordset")rsUser1.Open varSq, objConn	Dim i	Dim ii	Dim varCont	If Request.Form("txtDe") <> "" Then  Dim varSql  Dim rsIncluir  Dim varMensagem  Dim arrayCarinhas(14)  arrayCarinhas(0) = "(1)"  arrayCarinhas(1) = "(2)"  arrayCarinhas(2) = "(3)"  arrayCarinhas(3) = "(4)"  arrayCarinhas(4) = "(5)"  arrayCarinhas(5) = "(6)"  arrayCarinhas(6) = "(7)"  arrayCarinhas(7) = "(8)"  arrayCarinhas(8) = "(9)"  arrayCarinhas(9) = "(10)"  arrayCarinhas(10) = "(11)"  arrayCarinhas(11) = "(12)"  arrayCarinhas(12) = "(13)"  arrayCarinhas(13) = "(14)"  arrayCarinhas(14) = "(15)"    varSql = "SELECT * "  varSql = varSql & "FROM MuralRecados "    Set rsIncluir = Server.CreateObject("ADODB.Recordset")  rsIncluir.CursorType = 0  rsIncluir.CursorLocation = 2  rsIncluir.LockType = 3  rsIncluir.Open varSql, objConn      rsIncluir.AddNew  rsIncluir.Fields("DataInclusao") = Date()  rsIncluir.Fields("HoraInclusao") = hour(now()) +2 &":"& minute(now())  rsIncluir.Fields("De") = Request.Form("txtDe")  rsIncluir.Fields("Email") = Request.Form("txtEmail")  rsIncluir.Fields("Para") = Request.Form("txtPara")    varMensagem = Request.Form("areaMensagem")  For i = 0 to 14 	 varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=Imagens/Carinhas/" & i+1 & ".gif>")  Next    rsIncluir.Fields("Mensagem") = varMensagem  rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")  rsIncluir.Update	End If%><html>	<head>  <title>Mande sua MSG para o Site</title>  <script language="JavaScript">  <!-- 	 location.href.MuralRecados = ("Default.asp"); 	 <%If Request.Form("txtDe") <> "" Then%>    opener.location.reload();    window.close(); 	 <%End If%> 	  	 function Incluir(varForm){    if (varForm.txtDe.value == ""){   	 window.alert ("O campo De é de preenchimento obrigatório");   	 varForm.txtDe.focus();   	 return false;    }    if (varForm.txtEmail.value == ""){   	 window.alert ("O campo E-mail é de preenchimento obrigatório");   	 varForm.txtEmail.focus();   	 return false;    }    else{   	 if (varForm.txtEmail.value.search("@") == -1 || varForm.txtEmail.value.search("[.*]") == -1){      window.alert ("O e-mail não é válido");      varForm.txtEmail.focus();      return false;   	 }    }    if (varForm.txtPara.value == ""){   	 window.alert ("O campo Para é de preenchimento obrigatório");   	 varForm.txtPara.focus();   	 return false;    }    if (varForm.areaMensagem.value == ""){   	 window.alert ("O campo Mensagem é de preenchimento obrigatório");   	 varForm.areaMensagem.focus();   	 return false;    }    varForm.submit(); 	 } 	  	 function Carinhas(varForm, varCarinha){    var arrayCarinhas = new Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)")        varCarinha = varCarinha - 1;        varForm.areaMensagem.value = varForm.areaMensagem.value + " " + arrayCarinhas[varCarinha] + " "; 	 }  -->  </script>	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>	<body bgcolor="#999999" text="#FFFFFF" onLoad="JavaScript:document.formIncluir.txtDe.focus();">  <table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center"> 	 <tr>    <td>   	 <table border="0" align="center">        <form name="formIncluir" method="post" action="NovoRecado.asp">          <tr>             <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> De:               </font> </td>            <td> <input name="txtDe" type="text" class="3" value="<%rsUser1=("login")%>" size="35" maxlength="35" disabled>             </td>          </tr>          <tr>            <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> E-mail:               </font> </td>            <td> <input name="txtEmail" type="text" class="3" value="<%rsUser1=("email")%>" size="35" maxlength="35" disabled>             </td>          </tr>          <tr>             <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> Para:               </font> </td>            <td> <input type="text" name="txtPara" maxlength="35" size="35" class="3">             </td>          </tr>          <tr>             <td> <font size="2" face="Comic Sans MS, Arial" class="Texto2"> Mensagem:               <br>              <br>              <br>              <br>              <br>              <br>              </font> </td>            <td> <textarea name="areaMensagem" class="3" cols="34" rows="5"></textarea>             </td>            <td width="5"> </td>            <td> <table cellpadding="0" cellspacing="0" border="0">                <%    For i = 1 to 3%>                <tr>                   <%For ii = 1 to 5%>                  <%varCont = varCont + 1%>                  <td><a href="#"><img src="Imagens/Carinhas/<%=varCont%>.gif" border="0" onClick="JavaScript:Carinhas(formIncluir, <%=varCont%>);"></a></td>                  <%If ii <> 5 Then%>                  <td width="5"> </td>                  <%End If%>                  <%Next%>                </tr>                <%If i <> 3 Then%>                <tr>                   <td height="5"> </td>                </tr>                <%End If%>                <%Next%>              </table></td>          </tr>          <tr>             <td> </td>            <td> <input type="button" name="btnColar" value="Colar" class="3" onClick="JavaScript:Incluir(formIncluir);">             </td>          </tr>        </form>      </table>    </td> 	 </tr>  </table>	</body></html>

ve ai se consegue ver o erro meu !

valeu ! :lol:

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito