Générer une agrégation RSS et XML a principalement pour but de faciliter l'abonnement et de faire connaître rapidement aux utilisateurs les mises à jour de votre site internet. format rss.asp
Le code suivant est enregistré sous rss.asp
Copiez le code comme suit :
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(server_name) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp est votre nom de fichier
sql=select top 100 * from [table name] order by id desc //Selon votre modification réelle, le top 100 est le dernier 100, modifiez-le vous-même et vous pouvez ajouter des conditions de requête, telles que où xxx=1... .
définir rs=server.createobject(adodb.recordset)
rs.open sql, conn, 1,1
réponse.contenttype=text/xml
réponse.write <?xml version=1.0 encoding=gb2312 ?> & vbcrlf
réponse.write <rss version=2.0> & vbcrlf
réponse.write <canal> & vbcrlf
réponse.write <title>flux RSS xxx.com</title> & vbcrlf
réponse.write <link> & strURL & </link> & vbcrlf
réponse.write <langue>zh-cn</langue> & vbcrlf
réponse.write <copyright>Un flux RSS pour xxx.comcopyright> & vbcrlf
bien que ce ne soit pas rs.eof
réponse.write <élément> & vbcrlf
réponse.write <title><![CDATA[ & rs(title) & ]]></title> & vbcrlf
réponse.write <link>&strURL/xxxx.asp?Id=&rs(id)</link> & vbcrlf
réponse.write <description><![CDATA[ & rs(champ sujet) & <br /> & rs(champ de contenu) & <br /><br />]]></description> & vbcrlf
réponse.write <pubDate> & return_RFC822_Date(rs(champ horaire),GMT) & </pubDate> & vbcrlf
réponse.write </item> & vbcrlf
rs.movenext
wend
réponse.write </channel> & vbcrlf
réponse.write </rss> & vbcrlf
rs.fermer
définir rs = rien
Fonction return_RFC822_Date(byVal myDate, byVal TimeZone)
Atténuer maJournée, mesJours, monMois, monAnnée
Atténuer mesHeures, mesMinutes, mesSecondes
maDate = CDate(maDate)
monJour = EnWeekDayName (maDate)
mesJours = Droite(00 & Jour(maDate),2)
monMois = EnMoisNom(maDate)
monAnnée = Année(maDate)
mesHeures = Droite(00 & Heure(maDate),2)
mesMinutes = Droite(00 & Minute(maDate),2)
mesSeconds = Droite(00 & Seconde(maDate),2)
return_RFC822_Date = monJour, & _
mes jours & _
monMois&_
monAnnée&_
mesHeures :& _
mesMinutes :& _
mes Secondes & _
& Fuseau horaire
Fonction de fin
Fonction EnWeekDayName (InputDate)
Résultat Faible
Sélectionnez le cas WeekDay (InputDate, 1)
Cas 1 : Résultat = Soleil
Cas 2 : Résultat = Lun
Cas 3 : Résultat = Mardi
Cas 4 : Résultat = mercredi
Cas 5 : Résultat = Jeudi
Cas 6 : Résultat = Vendredi
Cas 7 : Résultat = Sam
Fin de la sélection
EnWeekDayName = Résultat
Fonction de fin
Fonction EnMonthName (InputDate)
Résultat Faible
Sélectionnez le mois du cas (InputDate)
Cas 1 : Résultat = janvier
Cas 2 : Résultat = février
Cas 3 : Résultat = mars
Cas 4 : Résultat = avril
Cas 5 : Résultat = Mai
Cas 6 : Résultat = juin
Cas 7 : Résultat = juillet
Cas 8 : Résultat = août
Cas 9 : Résultat = septembre
Cas 10 : Résultat = octobre
Cas 11 : Résultat = novembre
Cas 12 : Résultat = décembre
Fin de la sélection
EnMonthName = Résultat
Fonction de fin
%>
format rss.xml
Copiez le code comme suit :
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(SERVER_NAME) & _
gauche(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp))
faible fou, js
set js = serveur.CreateObject(ADODB.RecordSet)
sql = select * from [nom de la table] trié par identifiant asc
set js = conn.execute (sql)
fou = fou + <?xml version=1.0 encoding=UTF-8 ?>
fou = fou + <version rss=2.0>
fou = fou + <canal>
crazycat = crazycat + <title>flux XML xxx.com</title>
fou = fou + <link> & strURL & </link>
fou = fou + <langue>zh-cn</langue>
Foolcat = Foolcat + <copyright>Un flux XML pour xxx.com</copyright>
faire jusqu'à ce que js.eof
fou = fou + <objet>
crazycat = crazycat + <titre><![CDATA[ & rs(champ sujet) & ]]></titre>
crazycat = crazycat + <description><![CDATA[ & rs(champ sujet) & <br /> & rs(champ contenu) & <br /><br />]]></description>
crazycat = crazycat + <link> & strURL & /xxx.asp?Id=&rs(champ id)</link>
crazycat = crazycat + <pubDate> & rs(champ temporel) & </pubDate>
imbécile = imbécile + </item>
js.movenext
boucle
js.close
définir js = rien
fou = fou + </canal>
imbécile = imbécile + </rss>
imbécile = + imbécile +
imbécile = & imbécile &
FolderPath = Server.MapPath(/)
Définir fso = Server.CreateObject (Scripting.FileSystemObject)
Définir fout = fso.CreateTextFile(FolderPath/rss.xml)
fout.writeLine fou
fout.close
set fout = rien
connexion.fermer
définir la connexion = rien
%>