Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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:
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:
alguem pode me ajudar??? ou naum ????
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,