Generar agregación RSS y XML es principalmente para facilitar la suscripción y permitir que los usuarios conozcan rápidamente las actualizaciones de su sitio web. formato rss.asp
El siguiente código se guarda como rss.asp
Copie el código de código de la siguiente manera:
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(nombre_servidor) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp es su nombre de archivo
sql = seleccione los 100 principales * de [nombre de la tabla] ordenar por id desc // De acuerdo con su modificación real, los 100 principales son los 100 más recientes, modifíquelos usted mismo y podrá agregar condiciones de consulta, como donde xxx = 1... .
establecer rs=servidor.createobject(adodb.recordset)
rs.open sql, conexión, 1,1
respuesta.contenttype=texto/xml
respuesta.write <?xml versión=1.0 codificación=gb2312 ?> & vbcrlf
respuesta.write <rss versión=2.0> & vbcrlf
respuesta.escribir <canal> y vbcrlf
respuesta.escribir <título>fuente RSS de xxx.com</título> y vbcrlf
respuesta.escribir <enlace> & strURL & </enlace> & vbcrlf
respuesta.escribir <idioma>zh-cn</language> & vbcrlf
Response.write <copyright>Un canal RSS para xxx.comcopyright> & vbcrlf
mientras no rs.eof
respuesta.escribir <elemento> y vbcrlf
respuesta.escribir <título><![CDATA[ & rs(título) & ]]></título> & vbcrlf
respuesta.escribir <enlace>&strURL/xxxx.asp?Id=&rs(id)</enlace> & vbcrlf
respuesta.write <descripción><![CDATA[ & rs(campo de asunto) & <br /> & rs(campo de contenido) & <br /><br />]]></descripción> & vbcrlf
respuesta.escribir <pubDate> & return_RFC822_Date(rs(campo de hora),GMT) & </pubDate> & vbcrlf
respuesta.escribir </item> & vbcrlf
rs.movenext
encaminarse a
respuesta.write </canal> & vbcrlf
respuesta.write </rss> & vbcrlf
rs.cerrar
establecer rs = nada
Función return_RFC822_Date(byVal myDate, byVal TimeZone)
Atenuar myDay, myDays, myMonth, myYear
Atenuar mis Horas, mis Minutos, mis Segundos
miFecha = CDate(miFecha)
miDía = EnWeekDayName(miFecha)
misDías = Derecha(00 y Día(miFecha),2)
miMes = EnNombreMes(miFecha)
miAño = Año(miFecha)
misHoras = Derecha(00 y Hora(miFecha),2)
misMinutos = Derecha(00 y Minuto(miFecha),2)
misSegundos = Derecha(00 y Segundo(miFecha),2)
return_RFC822_Date = miDía, & _
misDías & _
miMes&_
miAño&_
misHoras:& _
misMinutos:& _
misSegundos & _
y zona horaria
Función final
Función EnWeekDayName(EntradaFecha)
Resultado oscuro
Seleccione el día de la semana del caso (fecha de entrada, 1)
Caso 1:Resultado=Sol
Caso 2: Resultado = Lun
Caso 3:Resultado=Mar
Caso 4:Resultado=Miércoles
Caso 5:Resultado=Jue
Caso 6:Resultado=viernes
Caso 7:Resultado=Sáb
Seleccionar fin
EnWeekDayName = Resultado
Función final
Función EnMonthName(EntradaFecha)
Resultado oscuro
Seleccione el mes del caso (fecha de entrada)
Caso 1: Resultado = enero
Caso 2:Resultado=febrero
Caso 3:Resultado=Mar
Caso 4:Resultado=Abr
Caso 5:Resultado=Mayo
Caso 6:Resultado=Jun
Caso 7:Resultado=julio
Caso 8: Resultado = agosto
Caso 9:Resultado=Septiembre
Caso 10:Resultado=Oct
Caso 11: Resultado = noviembre
Caso 12:Resultado=Dic
Seleccionar fin
EnMonthName = Resultado
Función final
%>
formato rss.xml
Copie el código de código de la siguiente manera:
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(SERVER_NAME) & _
left(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp))
gato tonto tenue, js
establecer js = servidor.CreateObject(ADODB.RecordSet)
sql = seleccionar * de [nombre de la tabla] ordenar por id asc
establecer js = conexión.ejecutar (sql)
tontocat = tontocat + <?xml versión=1.0 codificación=UTF-8 ?>
gato tonto = gato tonto + <rss versión=2.0>
gato tonto = gato tonto + <canal>
tontocat = tontocat + <título>fuente XML de xxx.com</título>
gato tonto = gato tonto + <enlace> & strURL & </enlace>
gato tonto = gato tonto + <idioma>zh-cn</idioma>
Foolcat = Foolcat + <copyright>Un feed XML para xxx.com</copyright>
hacer hasta js.eof
gato tonto = gato tonto + <elemento>
tontocat = tontocat + <título><![CDATA[ & rs(campo de asunto) & ]]></título>
Foolcat = Foolcat + <descripción><![CDATA[ & rs(campo de asunto) & <br /> & rs(campo de contenido) & <br /><br />]]></descripción>
tontocat = tontocat + <enlace> & strURL & /xxx.asp?Id=&rs(campo de identificación)</enlace>
tontocat = tontocat + <pubDate> & rs(campo de hora) & </pubDate>
gato tonto = gato tonto + </item>
js.movenext
bucle
js.cerrar
establecer js = nada
gato tonto = gato tonto + </canal>
gato tonto = gato tonto + </rss>
gato tonto = + gato tonto +
gato tonto = & gato tonto &
CarpetaPath = Servidor.MapPath(/)
Establecer fso = Server.CreateObject(Scripting.FileSystemObject)
Establecer fout = fso.CreateTextFile(FolderPath/rss.xml)
fout.writeLine tontocat
fout.cerrar
set fout = nada
con.cerrar
establecer conexión = nada
%>