Código RSS aprimorado usando ASP

• Pode 18, 2024

Aviso - Conteúdo legal do código à frente !!

Aqui está o que você precisa fazer. Verifique se você criou seu banco de dados, seja ele Access ou SQL. Depois de concluir, anote a cadeia de conexão e os nomes da tabela. Para este exercício, vou usar o seguinte:

ArticleID - Número automático - esse número será incorporado ao link (use int com seed para SQL e numeração automática para Access).
Data adicionada - Data e hora em que o artigo foi adicionado
Adicionado por - Autor do artigo
ShortDesc - Descrição simples, seja um artigo de notícias ou informações
ArticleContent - As informações de notícias reais para o artigo.

Agora, com esta versão, aplicaremos a formatação XML especial para garantir que, quando o RSS Reader receber os artigos de notícias, ele não falhará devido a caracteres especiais que o leitor não pode processar. O RSS com o formato XML é muito exigente quanto aos caracteres processados, mas garantiremos que ele não possa processar caracteres incorretos e a chamaremos de função applySpecialFormat.

Mais uma coisa a observar, se você deseja que os usuários visualizem o artigo quando clicarem no link do leitor, crie uma página que mostre o artigo e suas informações. Você provavelmente já tem isso, mas eu só queria ter certeza de ter dito isso por precaução. Para este exercício, eu usarei article_view.asp.

Agora, o código: (Salve o arquivo como articlesver2.rss no servidor da Web.)


<% Response.Buffer = true
Response.ContentType = "text/xml"
Function applySpecialFormat(strInput)
if len(strInput) > 0 then
strInput = Replace(strInput,"&", "&")
strInput = Replace(strInput,"'", "& apos;") 'REMOVE SPACE BETWEEN & apos;
strInput = Replace(strInput,"""", "& quot;") 'REMOVE SPACE BETWEEN & quot;
strInput = Replace(strInput, ">", "& gt;") 'REMOVE SPACE BETWEEN & gt;
strInput = Replace(strInput,"<","& lt;") 'REMOVE SPACE BETWEEN & lt;
else
strInput = ""
end if
applySpecialFormat = strInput
End Function
%>


RSS usando código ASP
//www.myserver.com
RSS Usando o código ASP para visualizar artigos novos e existentes de um banco de dados.
en-us
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS usando o logotipo do código ASP
//www.myserver.com

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString = "Provider=sqloledb;Data Source=DBSERVER;Initial Catalog=ARTICLEDB;User Id=sa;Password=sqlpassword;"
objConn.CursorLocation = 3
objConn.Open

Dim objRS, strSQL, strDesc
strSQL = "SELECT * FROM ArticleDB WHERE (AddedDate <= '" & Now() & "') order by AddedDate DESC"
objRS.Open strSQL, objConn

Do While Not objRS.EOF
strDesc = "Article by " & objRS("AddedBy") & " on " & _
objRS("AddedDate") & " PST
" & _
objRS("ArticleContent").Value %>


()

//www.myserver.com/article_view.asp?ArticleID=



asp@coffebreakblog.com (Christopher Combs)

DUPLO CLIQUE AQUI PARA ACESSAR O LINK DO DOWNLOAD DO ANEXO
Fonte do artigo


<%
objRS.MoveNext
Loop
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>



Agora, se você criou suas tabelas e adicionou informações ao seu banco de dados, pode testar o arquivo no seu RSS Reader. Eu uso um leitor gratuito de www.rssreader.com. Ele permite ver todas as opções que posso usar no feed RSS e informa se há algum erro ao processá-lo.

Falando em erros, se houver algum, basta colar o URL do arquivo RSS no seu navegador da Web e ele deve informar qual o número da linha em que o erro está, o que, por sua vez, permite corrigir o problema. Para ver as mensagens de erro, desative as "mensagens amigáveis" do ASP - consulte o artigo TechNet da Microsoft
Desativar mensagens amigáveis) A maioria dos erros que costumo encontrar são erros de sintaxe, o que significa que você precisa aplicar a formatação à saída do seu arquivo RSS.

É isso! Fique de olho para mais artigos sobre RSS e como ele pode ser uma ferramenta valiosa.