BuscaPé, líder em comparação de preços na América Latina
Desenvolvimento de sites , portais ,logomarcas e trabalhos gráficos. Downloads de Apostilas de html, , dreamweaver , flash , php , asp , programas, scripts asp , php , cgi , javascript , coldfusion e muitos outros

Saiba onde tem o melhor preço antes de comprar

Indique


Leituras: 4224 -




Criado por: Carlos Alessandro Ribeiro / [::..rOcKLoCo..::]

Galera, nesse artigo irei ensinar como se fazer um sistema de "Indicação de Site". É um sistema bem simples, que utiliza o CDONTS para o envio dos e-mails. Espero que gostem, e que seja útil à todos. Abraços e até a próxima!

Legendas:
HTML
ASP
Comentário HTML
Comentário ASP

 

Primeiramente iremos criar a página com os campos:
indique.htm

<!--inicio form indique-->
<form action="indicar.asp" name="enquete" method="post">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Seu
nome: <br>
<input type="text" name="nome_ind" size="23" maxlength="50" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid">
<br>
Seu e-mail:<br>
<input type="text" name="email_ind" size="23" maxlength="50" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid">
<br>
Nome do seu amigo:<br>
<input type="text" name="nome_amigo" size="23" maxlength="50" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid">
<br>
E-mail do seu amigo:<br>
<input type="text" name="email_amigo" size="23" maxlength="50" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid">
<br>
Mensagem:<br>
<textarea name="msg" cols="22" rows="5" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px"></textarea>
</font></div>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> <br>
<input type="submit" name="Submit" value="Indicar" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid">
<input type="reset" name="Submit2" value="Limpar" style="font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: normal; color: #000000; background-color: #CCCCCC; border: 1px #000000 solid">
</font>
</div>
</form>
<!--final form indique-->

 

Agora iremos criar a página que recebe as informações e envia para o e-mail:
indicar.asp

<%
'aqui fazemos nós pegaremos as informações
'enviadas do browser através do request.form
nome_ind = request.Form("nome_ind")
email_ind = request("email_ind")
nome_amigo = request("nome_amigo")
email_amigo = request("email_amigo")
msg = request("msg")

'aqui mandamos ele substituir
'quebras de linhas no textarea
'por br para pular as linhas
msg = replace(msg, chr(13), "<br>")

'aqui criaremos o codigo HTML
'para ser enviado ao email
mensagem = "<html><head><title>Indique - Por: [::..rOcKLoCo..::]</title></head>"
mensagem = mensagem & "<body bgcolor='#FFFFFF'>"
mensagem = mensagem & "Olá <b>" & nome_amigo & "</b>, "
mensagem = mensagem & "seu amigo <b>" & nome_ind & "</b> "
mensagem = mensagem & "lhe indicou o site:<p>"
mensagem = mensagem & "<a href='http://www.seusite.com.br/'>http://www.seusite.com.br/</a><p>"
mensagem = mensagem & msg
mensagem = mensagem & "</body></html>"

'aqui iremos verificar se algum campo
'ficou em branco
if nome_ind = "" OR email_ind = "" OR nome_amigo = "" OR email_amigo = "" OR msg = "" then
'se estiver algum campo em branco
'ele mostrará a msg de erro
%>
<center><font size="2" face="verdana">Favor preencha todos os campos corretamente.</font>
<p>
<a href="javascript:history.go(-1)"><font size="2" face="verdana">Voltar</font></a>
</center>
<%
response.end

'ou então criará o objeto CDONTS
'para enviar as informações enviadas
else

'aqui nós iremos definir a variável objeto do CDONTS
Set indicar = Server.CreateObject("CDONTS.NewMail")

'agora iremos atribuir os métodos de envio
'o método variavel.From define quem
'está enviando o email

indicar.From = email_ind

'o método variavel.To define para quem
'será enviado o email
indicar.To = email_amigo

'variavel.Subject define-se o assunto do email
indicar.Subject = "Seu amigo " & nome_amigo & " lhe indicou nosso site."

'método variavel.Body será o corpo do email
'onde será postadas os texto, imagens, tags HTML
'e até mesmo ASP para tornar um email mais dinâmico
indicar.Body = mensagem

'variavel.Importance define a importancia
'em q o email deve ser enviado, nesse caso
'o valor 1 atribui importancia normal
indicar.Importance = 1

'variavel.BodyFormat define
'o formato do email
'valor 0 define o formato HTML
indicar.BodyFormat = 0

'A propriedade MailFormat defini qual o tipo
'de codificação MIME a ser usado,
'onde com o valor 0 indica que
'o MIME interprete o HTML,
'no caso se usarmos o valor
'1 o MIME interpretará a mensagem como texto.
indicar.MailFormat = 0

'aqui mandamos enviar o email
indicar.Send
%>
<center>
<font size="2" face="verdana">Obrigado por ter indicado seu amigo! Nós da(o) SEU SITE agradecemos.<p>
<a href="javascript:history.go(-1)">Voltar para Home</a>
</center>
<%
'aqui mandamos limpar a variavel
Set indicar = Nothing
end if
%>

Bom gente nesse artigo é só, façam bom proveito e até o próximo artigo.

Faça o downloads dos arquivos aqui

Qualquer dúvida mande-me um e-mail ou uma mensagem no icq.
Email: rock.loco@bol.com.br
URL: http://www.webeart.hpg.ig.com.br/
Icq: 142647986 Adicionar