Capturar Url

bossal_jr · Março 19, 2005

Seguinte pessoal, gostaria de colocar no meu site uma opção para o usuário enviar a notícia para um amigo. Fiz o código, só que ao invés de chegar no e-mail do amigo a url da notícia, chega a url do formulário. Eis o código que captura a url

ASP

<%endereco = request.servervariables("script_name") & Request.ServerVariables("HTTP_REFERER")%><a href="env_form.asp" onclick="NewWindow(this.href,'name','360','330','yes');return false">Mande essa matéria para um amigo</a>

Será que alguém poderia me ajudar, acho que é um erro simples :P

Mário Monteiro · Março 19, 2005

você usa servervariables pra pegar o endereço e no link não usa maisacho que basta usarendereco = request.servervariables("URL")

bossal_jr · Março 19, 2005

tentei o que você disse, mas continua dando o mesmo erro! :( o detalhe dos códigos:env_link.asp

ASP

<%endereco = request.servervariables("URL")%><a href="env_form.asp" onclick="NewWindow(this.href,'name','360','330','yes');return false">Mande essa matéria para um amigo</a>

env_enviar.asp

ASP

<%ip = request.Form("ip")remetente_nome = replace(request.Form("remetente_nome"),"'","''")remetente_email = replace(request.Form("remetente_email"),"'","''")destinatario_nome = replace(request.Form("destinatario_nome"),"'","''")destinatario_email = replace(request.Form("destinatario_email"),"'","''")texto = replace(request.Form("texto"),"'","''")texto = Replace(texto, Chr(13)+Chr(10)," ")endereco = request.servervariables("URL")Set Mail = Server.CreateObject("CDONTS.NewMail")htmlemail = htmlemail & ""htmlemail = htmlemail & "<body>Esta mensagem foi enviada a você sugerindo que visite o endereço a seguir:"htmlemail = htmlemail & "<a href=""http://"&endereco&""">"&endereco&"</a>"htmlemail = htmlemail & "Comentário:"htmlemail = htmlemail & ""&texto&""htmlemail = htmlemail & "------------------------------------------ "htmlemail = htmlemail & "IP: "&ip&" "htmlemail = htmlemail & "------------------------------------------ "htmlemail = htmlemail & "Este e-mail foi enviado através do website <a href=""""></a> "htmlemail = htmlemail & "Em caso de dúvidas, entre em contato: <a href=""mailto:""></a>"htmlemail = htmlemail & ""Mail.To = destinatario_emailMail.From = remetente_emailMail.Subject = "Mensagem enviada por "&remetente_nomeMail.Body = htmlemailMail.MailFormat = 0Mail.Bodyformat = 0On Error Resume NextMail.Send%> <html><head><title>Armazém de Arte</title><STYLE>.formulario { COLOR:#000000;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE><STYLE>.erro { BACKGROUND:#F7F3C5;COLOR:#FA0C00;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE></head><body leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" topmargin="0" scroll="auto"><%If Err <> 0 Then Response.Write "Erro encontrado: " & Err.Descriptionelse%> <center><% = request.Form("remetente_nome") %> seu e-mail foi enviado com sucesso para <% = request.Form("destinatario_nome") %> <a href="java script:self.close()">Fechar</a></center> <%end if%></body></html>

env_form.asp

ASP

<title></title><%ip = Request.serverVariables("REMOTE_ADDR")%><script type="text/javascript" src="../js/fValConfig.js"></script><script type="text/javascript" src="../js/fValidate.js"></script><form name="form1" method="post" action="env_enviar.asp" onSubmit="return validateForm(this,0,1,1,0);"><table border="0" cellspacing="0" cellpadding="0"><tr><td colspan="3"> Envie para um Amigo</td></tr><tr><td colspan="3" background="../images/bg_salvavidas.gif"></td></tr><tr><td height="15" colspan="3"></td></tr><tr><td class="pretong">Seu Nome:</td><td width="10"></td><td> <input name="remetente_nome" type="text" id="rementente_nome" size="30" maxlength="50" class="formulario" alt="blank" onBlur="clearStyle(this);" emsg="Digite o Nome"></td></tr><tr><td class="pretong">Seu E-mail:</td><td width="10"></td><td> <input name="remetente_email" type="text" id="remetente_email" size="30" maxlength="50" class="formulario" alt="email" onBlur="clearStyle(this);" emsg="Digite o Email corretamente"></td></tr><tr><td height="15" colspan="3"></td></tr><tr><td colspan="3" class="pretong">Enviar para:</td></tr><tr><td height="10" colspan="3"></td></tr><tr><td class="pretong">Nome:</td><td width="10"></td><td> <input name="destinatario_nome" type="text" id="destinatario_nome" size="30" maxlength="50" class="formulario" alt="blank" onBlur="clearStyle(this);" emsg="Digite o Nome"> </td></tr><tr><td class="pretong">E-mail:</td><td width="10"></td><td> <input name="destinatario_email" type="text" id="destinatario_email" size="30" maxlength="50" class="formulario" alt="email" onBlur="clearStyle(this);" emsg="Digite o Email corretamente"></td></tr><tr><td height="10" colspan="3"></td></tr><tr><td class="pretong">Comentários:</td><td width="10"></td><td> <textarea name="texto" cols="25" rows="4" id="textarea" class="formulario"></textarea></td></tr><tr><td colspan="3"> </td></tr><tr><td colspan="3"><input name="ip" type="hidden" id="ip" value="<%=ip%>"> <input type="submit" name="Submit" value="ENVIAR" style="border-style:solid; border-width:1; "></td></tr></table></form>

dá uma olhada

Mário Monteiro · Março 19, 2005

acho que entendi sua duvida...e não é do jeito que falei tente assimarmazene como você estava fazendo mesmo mas use uma session<%session("endereco") = request.servervariables("script_name") & Request.ServerVariables("HTTP_REFERER")%><a href="env_form.asp" onclick="NewWindow(this.href,'name','360','330','yes');return false">Mande essa matéria para um amigo</a>e na outra page você pega a partir da session

bossal_jr · Março 19, 2005

amigo fiz o que você mandou e mesmo assim não consigo capturar a url certa. A mensagem que chegou no email foi com a url desse jeito agora:/env_enviar.asphttp://www.xxxxxx.com.br/env_form.asp :( onde será que está o problema?

Alex Hernandes · Março 19, 2005

ASP

<%

ip = request.Form("ip")

remetente_nome = replace(request.Form("remetente_nome"),"'","''")

remetente_email = replace(request.Form("remetente_email"),"'","''")

destinatario_nome = replace(request.Form("destinatario_nome"),"'","''")

destinatario_email = replace(request.Form("destinatario_email"),"'","''")

texto = replace(request.Form("texto"),"'","''")

texto = Replace(texto, Chr(13)+Chr(10)," ")

endereco = Session("endereco")

Set Mail = Server.CreateObject("CDONTS.NewMail")

htmlemail = htmlemail & ""

htmlemail = htmlemail & "<body>Esta mensagem foi enviada a você sugerindo que visite o endereço a seguir:"

htmlemail = htmlemail & "<a href=""http://"&endereco&""">"&endereco&"</a>"

htmlemail = htmlemail & "Comentário:"

htmlemail = htmlemail & ""&texto&""

htmlemail = htmlemail & "------------------------------------------ "

htmlemail = htmlemail & "IP: "&ip&" "

htmlemail = htmlemail & "------------------------------------------ "

htmlemail = htmlemail & "Este e-mail foi enviado através do website <a href=""""></a> "

htmlemail = htmlemail & "Em caso de dúvidas, entre em contato: <a href=""mailto:""></a>"

htmlemail = htmlemail & ""

Mail.To = destinatario_email

Mail.From = remetente_email

Mail.Subject = "Mensagem enviada por "&remetente_nome

Mail.Body = htmlemail

Mail.MailFormat = 0

Mail.Bodyformat = 0

On Error Resume Next

Mail.Send

%>

<html>

<head>

<title>Armazém de Arte</title>

<STYLE>.formulario { COLOR:#000000;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE>

<STYLE>.erro { BACKGROUND:#F7F3C5;COLOR:#FA0C00;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE>

</head>

<%

If Err <> 0 Then

Response.Write "Erro encontrado: " & Err.Description

else

%>

<center><% = request.Form("remetente_nome") %> seu e-mail foi enviado com sucesso para <% = request.Form("destinatario_nome") %> <a href="java script:self.close()">Fechar</a></center>

<%

end if

%>

</body>

</html>

bossal_jr · Março 19, 2005

é o seguinte: fiz a alteração na código como você fez. Coloquei o include na página principal do site. A url chegou no email apenas /index.asp, faltou o www.xxxxx.com/ e quando coloquei o include na página onde o usuário lê a notícia e posteriormente clica no link para poder enviala ocorreu o problema anterior a url veio /ler_noticia.asphttp://www.xxxxxxx.com.br/

Mário Monteiro · Março 21, 2005

session("endereco") = Request.ServerVariables("HTTP_REFERER")acho que é so isso...

bossal_jr · Março 21, 2005

fiz essa alteração e mesmo assim não funcionou.o código está assim agora:

env_link.asp

ASP

() = () & ()<a = =>Mande essa matéria para um amigo</a>

env_enviar.asp

ASP

 = () = ((),

Desse forma quando eu coloquei o inclue env_link.asp na página principal e está chegando o no e-mail a url certa, só que faltando o www.xxxx.com está vindo só o index.asp mas quando eu coloco esse include na parte de ler notícias ele está voltando a url dessa maneira: /ler_noticia.asphttp://www.xxxxxx.com.br/se alguém tiver um código de indicar notícia para um amigo mais simples e fácil de implementar me enviem aew por favor :)

Mário Monteiro · Março 21, 2005

você não fez a ultima alteração que sugeri...session("endereco") = Request.ServerVariables("HTTP_REFERER")

bossal_jr · Março 21, 2005

fiz a alteração que você sugeriu mas mesmo assim não funcionou :P A mensagem chega na caixa de e-mail, mas vem sem nenhum link

Mário Monteiro · Março 21, 2005

acho que sei o que é, ehehehtenta colocar o HTTP REFERER na outra page

bossal_jr · Março 21, 2005

eu fiz issoolha os códigos:

env_link.asp

ASP

() = ()<a = =>Mande essa matéria para um amigo</a>

env_enviar.asp

ASP

 = () = ((),

Mário Monteiro · Março 21, 2005

ente assim

env_link.asp

ASP

<a href="env_form.asp" onclick="NewWindow(this.href,'name','360','330','yes');return false">Mande essa matéria para um amigo</a>

env_enviar.asp

ASP

<%ip = request.Form("ip")remetente_nome = replace(request.Form("remetente_nome"),"'","''")remetente_email = replace(request.Form("remetente_email"),"'","''")destinatario_nome = replace(request.Form("destinatario_nome"),"'","''")destinatario_email = replace(request.Form("destinatario_email"),"'","''")texto = replace(request.Form("texto"),"'","''")texto = Replace(texto, Chr(13)+Chr(10),"<br>")endereco = Request.ServerVariables("HTTP_REFERER")Set Mail = Server.CreateObject("CDONTS.NewMail")htmlemail = htmlemail & "<font face=Tahoma size=2><strong>"htmlemail = htmlemail & "<body><p>Esta mensagem foi enviada a você sugerindo que visite o endereço a seguir:</p>"htmlemail = htmlemail & "<p><a href=""http://"&endereco&""">"&endereco&"</a></p>"htmlemail = htmlemail & "<p>Comentário:</p>"htmlemail = htmlemail & "<p>"&texto&"</p>"htmlemail = htmlemail & "<p>------------------------------------------<br></p>"htmlemail = htmlemail & "<p>IP: "&ip&"<br></p>"htmlemail = htmlemail & "<p>------------------------------------------<br></p>"htmlemail = htmlemail & "<p>Este e-mail foi enviado através do website <a href=""http://www.xxxxx.com.br"">www.xxxx.com</a><br></p>"htmlemail = htmlemail & "<p>Em caso de dúvidas, entre em contato: <a href=""mailto:jornal@oxxxx.com"">jornal@xxxx.com</a></p>"htmlemail = htmlemail & "</font></strong>"Mail.To = destinatario_emailMail.From = remetente_emailMail.Subject = "Mensagem enviada por "&remetente_nomeMail.Body = htmlemailMail.MailFormat = 0Mail.Bodyformat = 0On Error Resume NextMail.Send%> <html><head><title></title><STYLE>.formulario { COLOR:#000000;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE><STYLE>.erro { BACKGROUND:#F7F3C5;COLOR:#FA0C00;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE></head><body leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" topmargin="0" scroll="auto"><%If Err <> 0 Then  Response.Write "Erro encontrado: " & Err.Descriptionelse%><BR><BR><center><b><font face="Tahoma" size="2"><% = request.Form("remetente_nome") %> seu e-mail foi enviado com sucesso para <% = request.Form("destinatario_nome") %><br><br><a href="java script:self.close()">Fechar</a></font></b></center><br><br><%end if%></body></html>

bossal_jr · Março 21, 2005

fiz essa mudança e ele enviou a url do formulário :P Acho que o erro é simples...

Mário Monteiro · Março 21, 2005

cara fa o seguinte...so pra ficar claro o que você querpoe aqui o passo a passo da coisa... sem codigosó tipo assimpagina 1 clica no link vai pra paguina 2nesta você faz tal coisa e talai você diz o endereço de qual pagina você querdeixa claro tb se a pagina do formulario é a que tem o link pra enviar ou não

bossal_jr · Março 21, 2005

É o seguinte: quero colocar no meu site uma opção para que o usuário indique uma notícia para um amigo. Esse código tem três partes: env_link.asp , env_enviar.asp e env_form.asp Na parte de ler notícias coloquei um include do env_link.asp quando a pessoa clica abre uma página com o formulário. Quero que capture a url completa da notícia e envie para o e-mail do amigo do usuário que leu a notícia. Deu pra entender? :)

Mário Monteiro · Março 21, 2005

ta cara agora acho que simbem a pagina do form abre a partir da pagina de noticias, certo??então nesta page do form que você deve por aquele codigosession("endereco") = Request.ServerVariables("HTTP_REFERER")e na ultima pageque é a env_enviar.asp (eu acho)você pega o valor da session e joga na variavel endereçoendereco = session("endereco")tenta agora e seja o que o altissimo quiser...

bossal_jr · Março 21, 2005

funcionou!!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif valeu aew cara! você é f***! abraços!

Mário Monteiro · Março 21, 2005

funcionou!!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif valeu aew cara! você é f***! abraços!

ufa já estava ficando preocupado, ehehhe

mas é isso ai faça como eu acredite NELE e tudo é possivel...

Arquivado

Capturar Url

Recommended Posts

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alex Hernandes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

bossal_jr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179