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:
Carregando comentários...