InícioProcurar
Últimos assuntos
Nosso Banner
Gostaria de Parceria?
Se você quer ser nosso parceiro, pegue nosso banner abaixo e cole em seu fórum!
Clique - Crie parceria
Para parceria, é necessário seu registro no VisualArts!
Se você quer ser nosso parceiro, pegue nosso banner abaixo e cole em seu fórum!
Clique - Crie parceria
Para parceria, é necessário seu registro no VisualArts!
Sistema Para Indicar Um Site, Otimo!
2 participantes
:: Web Design :: Tutoriais Web :: Asp.net
Página 1 de 1
Sistema Para Indicar Um Site, Otimo!
por Paùlo Henriqe - Qui Jul 02, 2009 1:04 pm
script em ASP para indicar site, muito bom, não usa banco de dados e simples sem muita frescura como os outros.
- Código:
<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="javascript: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="javascript:history.back()">aqui</a> para Voltar
<%
Response.End
End If
str_mensagem = "Oi " & dest_nome & ",<br>Acessei esse site e achei interessante:<a href=" & pagina & ">" & pagina & "</a>"
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = rmt_nome & "<" & rmt_email & ">"
objCDOMail.To = dest_email
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="javascript: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="javascript:window.close()">Clique aqui para fechar</a>
</form>
<%
End If
%>
</body></html>
Paùlo Henriqe -- Administrador
-
Posts : 614
Localização : Dourados MS
Inscrição : 13/01/2009 -
Igor_Ruiz- Sub-Administrador
-
Posts : 1089
Localização : São Paulo
Inscrição : 21/01/2009 -
Tópicos semelhantes» Simples Sistema de Login
» Sistema de Banner Rotativo
» Sistema de Pop-Up
» Sistema de Loading
» Sistema de Newsletter em ASP
» Sistema de Banner Rotativo
» Sistema de Pop-Up
» Sistema de Loading
» Sistema de Newsletter em ASP
:: Web Design :: Tutoriais Web :: Asp.net
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|
» 1000 Brushes para Download
» [Fonte]Game Logos
» Ranks-Habbundo
» [Fonte]Coca-Cola
» [Fonte] Battlestar (Galactica)
» [Fonte]Team Spirit
» [Fonte] Aardvark Cafe (Hard Rock Café)
» [Fonte] Allstar