A geração de agregação RSS e XML serve principalmente para facilitar a assinatura e permitir que os usuários conheçam rapidamente as atualizações do seu site. formato rss.asp
O código a seguir é salvo como rss.asp
Copie o código do código da seguinte forma:
<!--#include arquivo=conn.asp-->
<%
strURL = http:// & request.servervariables(nome_do_servidor) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp é o nome do seu arquivo
sql=select top 100 * from [nome da tabela] order by id desc //De acordo com sua modificação real, top 100 são os 100 mais recentes, modifique você mesmo e você pode adicionar condições de consulta, como where xxx=1... .
definir rs=server.createobject(adodb.recordset)
rs.open sql,conn,1,1
resposta.contenttype=texto/xml
resposta.write <?xml version=1.0 encoding=gb2312 ?> & vbcrlf
resposta.write <rss versão = 2.0> & vbcrlf
resposta.write <canal> & vbcrlf
resposta.write <title>feed RSS xxx.com</title> & vbcrlf
resposta.write <link> & strURL & </link> & vbcrlf
resposta.write <idioma>zh-cn</idioma> & vbcrlf
response.write <copyright>Um feed RSS para xxx.comcopyright> & vbcrlf
enquanto não rs.eof
resposta.write <item> & vbcrlf
resposta.write <title><![CDATA[ & rs(title) & ]]></title> & vbcrlf
resposta.write <link>&strURL/xxxx.asp?Id=&rs(id)</link> & vbcrlf
resposta.write <descrição><![CDATA[ & rs(campo de assunto) & <br /> & rs(campo de conteúdo) & <br /><br />]]></descrição> & vbcrlf
resposta.write <pubDate> & return_RFC822_Date(rs(campo de hora),GMT) & </pubDate> & vbcrlf
resposta.write </item> & vbcrlf
rs.movnext
vamos
resposta.write </canal> & vbcrlf
resposta.write </rss> & vbcrlf
rs.fechar
definir rs = nada
Função return_RFC822_Date(byVal myDate, byVal TimeZone)
Escurecer meu dia, meus dias, meu mês, meu ano
Diminuir minhas horas, meus minutos, meus segundos
minhaData = CDate(minhaData)
meuDia = EnWeekDayName(minhaData)
meusDias = Certo(00 & Dia(minhaData),2)
meuMês = EnNomeMês(minhaData)
meuAno = Ano(minhaData)
minhasHoras = Certo(00 & Hora(minhaData),2)
meusMinutos = Certo(00 & Minuto(minhaData),2)
meusSegundos = Certo(00 e Segundo(minhaData),2)
return_RFC822_Date = meudia, & _
meus dias & _
meu mês&_
meu ano&_
meuHorário:& _
meusminutos:& _
meus segundos & _
& Fuso horário
Função final
Função EnWeekDayName(InputDate)
Resultado escuro
Selecione Caso WeekDay(InputDate,1)
Caso 1:Resultado=Sol
Caso 2:Resultado=Seg.
Caso 3:Resultado=Terça
Caso 4:Resultado=Quarta
Caso 5:Resultado=Qui
Caso 6: Resultado = Sexta
Caso 7:Resultado=Sábado
Finalizar seleção
EnWeekDayName = Resultado
Função final
Função EnMonthName(InputDate)
Resultado escuro
Selecione o mês do caso (InputDate)
Caso 1:Resultado=Janeiro
Caso 2:Resultado=fevereiro
Caso 3:Resultado=março
Caso 4:Resultado=abril
Caso 5:Resultado=Maio
Caso 6:Resultado=Junho
Caso 7:Resultado=julho
Caso 8:Resultado=agosto
Caso 9:Resultado=Set.
Caso 10:Resultado=Outubro
Caso 11:Resultado=Novembro
Caso 12:Resultado=Dez
Finalizar seleção
EnMonthName = Resultado
Função final
%>
formato rss.xml
Copie o código do código da seguinte forma:
<!--#include arquivo=conn.asp-->
<%
strURL = http:// & request.servervariables(SERVER_NAME) & _
esquerda(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp))
dim idiota, js
definir js = server.CreateObject (ADODB.RecordSet)
sql = selecione * de [nome da tabela] ordenar por id asc
definir js = conn.execute (sql)
tolo = tolo + <?xml version=1.0 encoding=UTF-8 ?>
tolo = tolo + <rss version=2.0>
tolo = tolo + <canal>
gato tolo = gato tolo + <title>feed XML de xxx.com</title>
gato tolo = gato tolo + <link> & strURL & </link>
gato tolo = gato tolo + <idioma>zh-cn</idioma>
crazycat = crazycat + <copyright>Um feed XML para xxx.com</copyright>
faça até js.eof
tolo = tolo + <item>
tolo = tolo + <title><![CDATA[ & rs(campo de assunto) & ]]></title>
tolo = tolo + <descrição><![CDATA[ & rs(campo de assunto) & <br /> & rs(campo de conteúdo) & <br /><br />]]></descrição>
gato tolo = gato tolo + <link> & strURL & /xxx.asp?Id=&rs(campo de id)</link>
gato tolo = gato tolo + <pubDate> & rs(campo de hora) & </pubDate>
gato tolo = gato tolo + </item>
js.movnext
laço
js.fechar
definir js = nada
tolo = tolo + </canal>
tolo = tolo + </rss>
tolo = + tolo +
tolo = & tolo &
FolderPath = Servidor.MapPath(/)
Definir fso = Server.CreateObject(Scripting.FileSystemObject)
Definir fout = fso.CreateTextFile(FolderPath/rss.xml)
fout.writeLine idiota
fout.fechar
set fout = nada
conexão.fechar
definir conn = nada
%>