|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Sistema de indicação de sites
|
 |
|
|
|
Postada em 3/10/2003 por ^HEAVY-METAL^
Neste tutorial você irar aprender como montar um sistema de "Indique sua pagina " Com ele os visitantes do seu site poderão enviar um e-mail para amigos recomendando a visita da sua pagina. Alem de aprender melhor como o ASP funciona você esta incluindo no site uma excelente forma de marketing para sua pagina .Confira o quadro abaixo como funciona o exemplo.
O Arquivo HTML tem apenas um formulário que armazena os dados necessários para o envio do e-mail. Por sua vez, o código ASP lê as variáveis,cria uma mensagem através do objeto CDONTS ( que permite enviar e-mails) , define os campos da mensagem e envia o e-mail.Para atualizar esse código em seu site você precisara apenas copiar o arquivo indique .asp no seu servidor, acrescentar o formulário HTML nas paginas que deseja indicar, e trocar o valor do input pagina de acordo com a localização e nome do arquivo no seu servidor Web.
<html>
<head>
<title>CodigoLivre Exemplo Indique o Site</title>
</head>
<body>
<p>Nesta area aparece o conteudo da sua pagina
</p>
<hr>
<form action = " indique.asp" method="post">
<strong> Preencha os campos abaixo e indique a um amigo: </strong>
<br>Seu Nome:
<input type="text" name="remetente" size= "30">
<br>E-mail do seu amigo:
<input type = "text" name= "destinatario" size = "26">
<input type = hidden name="pagina"
value = "http://www.codigolivre.com.br/pagina.html">
<input type = submit value= "Indique este site a um amigo!">
</form>
</body>
</html>
<%
'confira as variáveis da mensagem
str_nome = trim(request.form("nome"))
str_remetente = trim(requesr.form("remetente"))
str_destinatario = trim(resquest.form("destinatario
str_assunto = " www.codigolivre.com.br"
endereco = request.form("pagina")
str_mensagem = "Acessei este site e achei interessante : < a href = "& endereco & "> " & endereco & "</a>"
'Envia a mensagem
set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = str_nome & "<" & str_remetente & ")"
mensagem.to = str_destinatario
mensagem.Subject = str_assunto
mensagem.bodyformat = 0
mensagem.mailformat = 0
mensagem.Body = str_mensagem
mensagem.Send
'Informa o que foi enviado
response.write " Dados da mensagem "
response.write "<br> Remetente: " & str_nome & " - " & str_remetente &
response.write " <br> Destinatário: " & str_destinatario
response.write "<br> Assunto: " & str_assunto
response.write "<br> Mensagem: " & str_mensagem
response.write "<br><h2> Mensagem enviada com sucesso</h2>
response.write "<br><strong><a href=" & endereco & " "> Clique aqui para voltar! </a></strong>"
%>
T+,
Cógido tirado de: http://www.estudehtml.com.br/dicas/asp/ftps.asp?ID=101
|
|
|
|
|
