Programando um sistema de notícias

Neste artigo vamos lhe mostrar como
programar um bom sistema de notícias e ainda
um sistema para enviar a notícia por e-mail.

Vamos ao que interessa!

Obs. Em azul
você encontra a parte em ASP e em verde
a parte em HTML↳HTML45 conteúdosA importância do HTML e CSS para quem trabalha com UI Design e Design SystemProduto & UX · dez 2024Como hostear seu site HTML gratuitamente com GitHub PagesDev (Back & Front) · jun 2025SQL Server – Como criar um versionamento de código das suas Stored Procedures em HTML e com comentários da alteraçãoData · nov 2020Ver tudo em Dev (Back & Front) →

Ficheiro: Default.asp

<%
‘ Este ficheiro pode ser considerado como dois, um primeiro
que ‘mostra os títulos e outro que mostra a notícia
‘ Vamos verificar se há alguma notícia selecionada 

 Set MinhaConexao=
CreateObject(“adodb.connection”)
 MinhaConexao.Open “DSN=News”
if not request.Querystring=”” then
‘ Se o “Query” não for nulo então criará a ligação
‘ Como tenho por hábito usar MDB links, em lugar das
DSN LESS
  SqlQuery=”Select TabNoticias.Data, TabNoticias.Antetitulo,
TabNoticias.Titulo, TabNoticias.Noticia FROM TabNoticias
where TabNoticias.ID=”&Request(“id”)
  Set Rs=MinhaConexao.Execute(SqlQuery)
‘Ligação feita
‘ Vamos criar agora uma constante para que o ASP saiba
o que ‘escrever na página, os cabeçalhos, ou a notícia.
Noticia=1
else
‘Caso o “Query” seja nulo
  SqlQuery=”Select TabNoticias.ID, TabNoticias.Data,
TabNoticias.Antetitulo, TabNoticias.Titulo, TabNoticias.Noticia
FROM TabNoticias ORDER BY TabNoticias.Data DESC”
  Set Rs=MinhaConexao.Execute(SqlQuery)  
End if
‘ Criamos agora uma função que cria as quebras de linha
e os parágrafos no texto
Function FormatStr(String)
         on
Error resume next
         String
= Replace(String, CHR(13), “”)
         String
= Replace(String, CHR(10) & CHR(10), “</P><P>&nbsp;&nbsp;&nbsp;”)
         String
= Replace(String, CHR(10), “<BR>&nbsp;&nbsp;&nbsp;”)
         FormatStr
= String
End Function
  %>
<Html>
<Head>
</head>
<body bgcolor=”#FFFFFF” text=”#003366″>
<%
if not Noticia=1 then
%>
<font face=”Verdana,
Arial, Helvetica, sans-serif” size=”4″ color=”#000099″>Notícias
</font>
<hr noshade width=”200″ size=”1″ align=”left” color=”#000099″>
<br>
<%
‘Criando um loop até que sejam criados links para todas
as notícias na Base de dados
  Do until Rs.EOF
  %>
     <a href=”default.asp?ID=<%=rs(“ID”)%>”><%=rs(“Titulo”)%></a>
     <font size=1>(<%=rs(“data”)%>)</font><br>
<%
   rs.MoveNext
   Loop
%>
</body>
</html>
<%
else 
%>
<font face=”Verdana, Arial,
Helvetica, sans-serif” size=”1″ color=”#003366″><%=rs(“Antetitulo”)%></font><br>
<font face=”Verdana, Arial,
Helvetica, sans-serif” size=”2″ color=”#000033″><b><%=rs(“Titulo”)%>
</b></font>
<p> <font size=”2″ face=”Verdana, Arial, Helvetica,
sans-serif” color=”#000066″><%=Formatstr(rs(“noticia”))%>
  </font>
<p align=right><font face=”Verdana, Arial,
Helvetica, sans-serif” size=”1″ color=”#000066″><i>(<%=day(rs(“data”))%>-<%=month(rs(“data”))%>-<%=year(rs(“data”))%>)</i></font></p>
<br>
<!–
Agora vem a parte do enviar a um amigo
–>
<b><font face=”Verdana, Arial, Helvetica, sans-serif”
size=”1″><a href=”amigo.asp?<%=Server.URLEncode(
Request.QueryString)%>”>Envie
esta not&iacute;cia a um amigo</a></font></b>
</body>
</html>
<%
End if
rs.close
MinhaConexao.Close
%>

Agora o ficheiro que vai recolher os dados da pessoa
que envia a notícia e a pessoa que irá
receber.

Ficheiro: amigo.asp

<html>
<head>
<title>Amigo</title>
<meta http-equiv=”Content-Type” content=”text/html;
charset=iso-8859-1″>
</head>
<body bgcolor=”#FFFFFF”>
<%
‘Vamos agora mostrar o Form, se este ainda não tiver
sido preenchido
If not request(“post”)=”1″ then
%>
<p>Qual o email do
destinat&aacute;rio:</p>
<form name=”form1″ action=”amigo.asp?post=1″ method=”post”>
  <p>
    <input type=”text” name=”email”>
    <input type=”hidden” name=”ID”
value=”<%=Request.QueryString%>“>
  </p>
  <p>Qual o seu nome:</p>
  <p>
    <input type=”text” name=”nome”>
    <br>
    <input type=”hidden” name=”post”
value=”1″>
  </p>
  <p>
    <input type=”submit” name=”Enviar”
value=” Enviar”>
  </p>
</form>
<p>&nbsp; </p>
<%
‘Se o Form já foi preenchido, recolhemos os dados e
enviamos a informação.
Else
‘Criamos o assunto
Assunto=”o seu amigo “& Request.form(“Nome”)&”
enviou-lhe esta notícia.”
‘Como preferi enviar a mensagem em formato HTML, vamos
criar uma variável cujo conteúdo não é nada mais que
uma página HTML
HTML = “<!DOCTYPE HTML PUBLIC “”-//IETF//DTD HTML//EN””>”
& NL
HTML = HTML & “<html>”
HTML = HTML & “<head>”
HTML = HTML & “<title>O seu email de “&
Request.form(“Nome”)& “</title>”
HTML = HTML & “</head>”
HTML = HTML & “<body bgcolor=”& chr(34) &”#FFFFFF”&
chr(34) &” text=”& chr(34) &”#330066″&
chr(34) &”>”
HTML = HTML & “<Font face=”& chr(34) &”Verdana”&
chr(34) &” size=”& chr(34) &”2″& chr(34)
&”>O seu amigo “& Request.form(“Nome”) &”,
achou que esta notícia iria lhe interessar. <BR>”

HTML = HTML & “Para ver a noticia, clique na URL
que segue, <BR>”
HTML = HTML & “<a href=”& chr(34) &”http://www.seuhost.com/diretorio/default.asp?”&
Request.Form(“ID”) & CHR(34) &” target=”&
chr(34) &”_blank”& chr(34) &”>http://www.seuhost.com/diretorio/default.asp?”&
Request.Form(“ID”)&”</a><BR>”
HTML = HTML & “Espermos que você goste da
notícia,”
HTML = HTML & ” volte sempre…<BR>”
HTML = HTML & “Atenciosamente, <BR>”
HTML = HTML & “Seu nome.</font><BR>”

HTML = HTML & “<BR></body>”
HTML = HTML & “</html>”
‘Chamamos a componente e enviamos o email
Set myMail = CreateObject(“CDONTS.NewMail”)
myMail.From = “Seu_email@SeuHost.com”
myMail.To = Request.Form(“Email”)
myMail.Subject = assunto
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send
Set myMail = Nothing
 %>
Seu email foi enviado com
sucesso.
<%
End if
%>
</body>
</html>

Um abraço a todos usuários
iMasters e boa programação. Qualquer cosia
que precisarem, estamos por aqui!