Código RSS mejorado usando ASP

• Mayo 17, 2024

Advertencia: ¡Contenido de código genial por delante!

Aquí está lo que tú necesitas hacer. Asegúrese de tener su base de datos creada ya sea Access o SQL. Una vez que haya hecho eso, anote la cadena de conexión y los nombres de las tablas. Para este ejercicio, voy a usar lo siguiente:

ID del artículo - Número automático: este número se incorporará al enlace. (Use int con semilla para SQL y número automático para acceso)
Fecha Agregada - Fecha y hora en que se agregó el artículo
Añadido por - Autor del artículo
Descripción breve - Descripción simple si se trata de noticias o información tipo de artículo
ArtículoContenido - La información actual de noticias para el artículo.

Ahora, con esta versión, aplicaremos el formato XML especial para asegurarnos de que cuando el Lector RSS reciba los artículos de noticias, no fallará debido a los caracteres especiales que el lector no puede procesar. RSS con el formato XML es muy exigente con respecto a qué caracteres se procesan, pero nos aseguraremos de que no pueda procesar ningún carácter incorrecto y lo llamaremos función applySpecialFormat.

Una cosa más a tener en cuenta, si desea que los usuarios vean el artículo cuando hacen clic en el enlace en su lector, asegúrese de crear una página que muestre el Artículo y su información. Probablemente ya tenga esto, pero solo quería asegurarme de decirlo por si acaso. Para este ejercicio, usaré article_view.asp.

Ahora para el código: (Guarde el archivo como articlesver2.rss en su servidor 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 utilizando el código ASP
//www.myserver.com
RSS Uso del código ASP para ver artículos nuevos y existentes de una base de datos.
en-us
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS utilizando el logotipo del 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)

DOBLE HAGA CLIC AQUÍ PARA ACCEDER AL ENLACE PARA DESCARGAR EL ACCESORIO
Fuente del artículo


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



Ahora, si ha creado sus tablas y ha agregado información a su base de datos, puede probar el archivo en su lector de RSS. Yo uso un lector gratuito de www.rssreader.com. Me permite ver todas las opciones que puedo usar en el feed RSS y me indicará si hay algún error al procesarlo.

Hablando de errores, si hay alguno, simplemente pegue la URL del archivo RSS en su navegador web y debería decirle en qué número de línea está el error, lo que a su vez le permite corregir el problema. (Para ver los mensajes de error, asegúrese de haber desactivado los "mensajes amigables" para ASP. Consulte el artículo de TechNet de Microsoft
Desactivar mensajes amigables) La mayoría de los errores con los que me encuentro generalmente son errores de sintaxis, lo que significa que debe aplicar el formato a la salida de su archivo RSS.

¡Eso es! Mantenga sus ojos abiertos para más artículos en RSS y cómo puede ser una herramienta valiosa.

Instrucciones De Vídeo: Cómo exportar para web en Photoshop (Mayo 2024).