Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

Simples sistema de indicação

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Simples sistema de indicação, você pode inserir este pequeno sistema de indicar página.

 

 

pagina onde tem a indicação:

<html><head>
</head><body>
<a href="#" onClick="window.open('indicação.asp?pagina=<%="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")%>','indique','height=250,width=250,left=50,top=50')">Indique esta página(este link deve estar na sua página)</a>
</body></html>

indicação.asp

<html><head>
</head><body>
<%
Function IsValidEmail(strEmail)
	Dim bIsValid
	bIsValid = True
	
	If Len(strEmail) < 5 Then
		bIsValid = False
	Else
		If Instr(1, strEmail, " ") <> 0 Then
			bIsValid = False
		Else
			If InStr(1, strEmail, "@", 1) < 2 Then
				bIsValid = False
			Else
				If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
					bIsValid = False
				End If
			End If
		End If
	End If
	IsValidEmail = bIsValid
End Function

if Not IsEmpty(Request.QueryString("acao")) Then
	rmt_nome = Trim(Request.QueryString("rmt_nome"))
	rmt_email = Trim(Request.QueryString("rmt_email"))
	dest_nome = Trim(Request.QueryString("dest_nome"))
	dest_email = Trim(Request.QueryString("dest_email"))
	pagina = Request.QueryString("pagina")
	If (IsEmpty(rmt_nome) OR rmt_nome = "" OR IsEmpty(rmt_email) OR rmt_email = "" OR IsEmpty(dest_nome) OR dest_nome = "" OR IsEmpty(dest_email) OR dest_email = "" OR IsEmpty(pagina)) OR pagina = "" Then
		%>
		<b style="color:#FF0000">Todos campos devem <br>ser preenchidos</b><br><br>
		Clique <a href="java script:history.back()">aqui</a> para Voltar
		<%
		Response.End
	End If
	If Not (IsValidEmail(rmt_email) OR IsValidEmail(dest_email)) Then
		%>
		<b style="color:#FF0000">Endereço de<br>e-mail inválido.</b><br><br>
		Clique <a href="java script:history.back()">aqui</a> para Voltar
		<%
		Response.End
	End If		
	str_mensagem = "Oi " & dest_nome & ",<br>Acessei este site e achei interessante este conteúdo interessante:<br><a href=" & pagina & ">" & pagina & "</a>"
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From = rmt_nome & "<" & rmt_email & ">"
	objCDOMail.To = dest_email
		objCDOMail.Importance = 1
		objCDOMail.BodyFormat = 0
		objCDOMail.MailFormat = 0
	objCDOMail.Subject = "Site Indicado por " & rmt_nome
	objCDOMail.Body = str_mensagem
	objCDOMail.Send
	%>
	Mensagem enviada com sucesso para <br><b><%=dest_nome%>(<%=dest_email%>)!</b><br><br>
	<a href="java script:window.close()">Clique aqui para fechar</a>
<%	
End IF

if IsEmpty(Request.QueryString("acao")) Then
	%>
	  <form action="<%=Request.ServerVariables("URL")%>" method="get">
	  <input type="hidden" name="pagina" value="<%=Request.QueryString("pagina")%>">
	  <input type="hidden" name="acao" value="envia">
	  <b>Preencha os campos para <br>indicar essa página a um amigo</b><br>
	  <fieldset>
	  <legend>Seus dados</legend>
	  Nome: <input type="text" size="20" name="rmt_nome"><br>
	  E-mail: <input type="text" size="20" name="rmt_email"><br>
	  </fieldset>
	  <br>
	  <fieldset>
	  <legend>Dados do seu amigo</legend>
	  Nome: <input type="text" size="20" name="dest_nome"><br>
	  E-mail: <input type="text" size="20" name="dest_email"><br>
	  </fieldset>
	  <input type="submit" value="Enviar">   <a href="java script:window.close()">Clique aqui para fechar</a>

	  </form>	  
<%
End If
%>
</body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito