Los amigos que han visto pueden ayudar a la cima. Simple posible cuando escribo.
Agregue la función de agregación RSS para su sitio web, blog, etc., y ahora dé el código de polimerización de RSS.asp para ver cómo responde, si es bueno
Es conveniente para usted depurar y mostrar la aparición de http://www.nbpda.com/rss.asp
Después de las pruebas, admite la mayoría de los lectores agregados
El siguiente código se guarda como rss.asp
El siguiente es el fragmento de código:
| El siguiente es el fragmento de código: <!-#include file = "conn.asp"-> <% strurl = "http: //" & request.servervariebles ("server_name") & _ Left (request.serverVariAbles ("script_name"), len (request.serverVariAbles ("script_name"))-len ("/rss.asp") // es su nombre para su nombre de archivo Sql = "Seleccione Top 100 * de [Nombre de la tabla] Orden por ID DESC" // Según la modificación real, Top 100 son los últimos 100 elementos, modifíquelo usted mismo y al mismo tiempo puede agregar condiciones de consulta, como donde xxx = 1 .... establecer rs = server.createObject ("ADODB.Oldset") Rs.oopen SQL, Conn, 1,1 respuesta.contentType = "text/xml" Response.write "<? Xml versión =" "1.0" "encoding =" gb2312 ""?> "& vbcrlf Response.write "<rss versión =" "2.0" ""> "y vbcrlf Response.write "<nannel>" y VBCRF Response.write "<title> xxx.com RSS FEED </title>" y VBCRLF Response.write "<ink>" & Strurl & "</ink>" & vbcrip respuesta respuesta Mientras que no rs.eof Response.write "<em>" y vbcrlf Response.write "<title> <! [" "" & Rs ("title") & "] >> </title>" & vbcrlf Response.write "<link>" & Strurl & "/xxxxx.asp? Id =" & rs ("id") & "</ink>" & vblockff Response.write "<Scuidion> <! [" "" "" & Rs ("campo de tema") y "<Br />" & rs ("campo de contenido") y "<Br /> <Br />]>> < /descripción> "y vbcrf Response.write "<BubDate>" & return_rfc822_date (rs ("campo de tiempo"), "GMT") y "</bubdate>" & vbcrlfff Response.write "</emitem>" y VBCRF Rs.Movenext encaminarse a Response.write "</nelen>" y vbcrlf Response.write "</rss>" y vbcrlf Rs. establecer RS = nada Función return_rfc822_date (byval mydate, zona horaria) Dim myday, mydays, mymonth, myyear Dim myhours, mymines, myseconds mydate = cdate (mydate) Myday = enweekdayname (mydate) Mydays = correcto ("00" y día (mydate), 2) mymonth = enmonthname (mydate) myyear = año (mydate) myHours = Right ("00" & Hour (MyDate), 2) MyMinutes = Right ("00" y minuto (mydate), 2) MySeconds = Right ("00" y segundo (MyDate), 2) Return_rfc822_date = myday & "," & _ Mydays & "" & _ Mymonth & "& _ Myyear & "" & _ Myhouse & ":" & _ mymines & ":" & _ MySegunds & "" & _ "" "Y zona horaria Función final Función enweekdayname (inputDate) Resultado atenuante Seleccione Case Weekday (InputDate, 1) Caso 1: resultado = "Sol" Caso 2: resultado = "Mon" Caso 3: resultado = "martes" Caso 4: resultado = "Wed" Caso 5: resultado = "thu" Caso 6: resultado = "viernes" Caso 7: resultado = "SAT" Final seleccionar Enweekdayname = resultado Función final Función enmonthname (inputDate) Resultado atenuante Seleccione el mes del caso (EntryDate) Caso 1: resultado = "Jan" Caso 2: resultado = "febrero" Caso 3: resultado = "Mar" Caso 4: resultado = "APR" Caso 5: resultado = "mayo" Caso 6: resultado = "Jun" Caso 7: resultado = "jul" Caso 8: resultado = "agosto" Caso 9: resultado = "SEP" Caso 10: resultado = "OCT" Caso 11: resultado = "nov" Caso 12: resultado = "dec" Final seleccionar Enmonthname = resultado Función final %> |