Les amis qui ont vu peuvent aider le Top. Simable que possible lorsque j'écris.
Ajoutez la fonction d'agrégation RSS pour votre site Web, blog, etc., et donnez maintenant le code de polymérisation de RSS.asp pour voir comment vous répondez, si bon
Il est pratique pour vous de déboguer et de montrer l'apparence de http://www.nbpda.com/rs.asp
Après les tests, soutenez la plupart des lecteurs agrégés
Le code suivant est enregistré en RSS.asp
Ce qui suit est le fragment de code:
| Ce qui suit est le fragment de code: <! - # Inclure file = "Conn.asp" -> <% strurl = "http: //" & request.servervariables ("server_name") & _ Left (request.servervariables ("script_name"), len (request.servervariables ("script_name")) - len ("/rs.asp") // est votre nom pour votre nom de fichier SQL = "SELECT TOP 100 * FROM [TABLE NAME] ORDER BY ID DESC" // Selon la modification réelle, le Top 100 est les 100 derniers éléments, le modifier vous-même et en même temps que vous pouvez ajouter des conditions de requête, telles que où xxx = 1 .... set rs = server.createObject ("adodb.oldset") Rs.OOPEN SQL, Conn, 1,1 Response.ContentType = "Text / Xml" réponse.write "<? xml version =" "1.0" "Encoding =" gb2312 ""?> "& vbcrlf réponse.write "<rss version =" "2.0" ""> "& vbcrlf réponse.Write "<Channel>" & vbcrf Response.write "<Title> xxx.com RSS Feed </Title>" & vbcrlf Response.write "<ink>" & Strurl & "</ link>" & vbcrip Response.WRITE "<Jangage> ZH-CN </ranguge>" & vbcrlf Response.Write "<Copyright> Un flux RSS pour xxx.comcopyright>" & vbcrlf Bien que pas Rs.Eof Response.write "<Tem>" & vbcrlf Response.write "<Title> <! [" "" "& Rs (" Title ") &"] >> </Title> "& vbcrlf Response.write "<ink>" & strurl & "/xxxx.asp? Id =" & rs ("id") & "</ink>" & vblockff Réponse.write "<escription> <! [" "" "" "& Rs (" champ de thème ") &" <br /> "& rs (" Field de contenu ") &" <r /> <br />]> </ Description> "& vbcrf Response.Write "<Subdate>" & return_rfc822_date (RS ("Field Time"), "GMT") & "</ubdate>" & vbcrlfff Response.write "</ITEM>" & vbcrf Rs.MovEnext se promener Response.write "</ Channel>" & vbcrlf Response.Write "</RSS>" & VBCRLF Rs.Close Définir RS = rien Fonction return_rfc822_date (byVal mydate, byval fuseau) Dim Myday, Mydays, Mymonth, Myyear Dim Myhours, MyMinutes, Mysecondes mydate = cdate (mydate) Myday = enweekdayname (mydate) MyDays = Right ("00" & Day (Mydate), 2) mymonth = enmonthname (mydate) myyear = an (mydate) myHours = droite ("00" et heure (mydate), 2) MyMinutes = droite ("00" et minute (mydate), 2) Myseconds = right ("00" & second (mydate), 2) Return_rfc822_date = Myday & "," & _ Mydays & "" & _ Mymonth & "& _ Myyear & "" & _ Myhouse & ":" & _ myMinutes & ":" & _ Myseconds & "" & _ "" "& Fuseau horaire Fonction finale Fonction enweekdayname (inputdate) Résultat dim Sélectionnez Case Weekday (InputDate, 1) Cas 1: résultat = "Sun" Cas 2: résultat = "lun" Cas 3: résultat = "mar" Cas 4: résultat = "wed" Cas 5: résultat = "thu" Cas 6: résultat = "ven" Cas 7: résultat = "SAT" Fin de sélection Enweekdayname = résultat Fonction finale Fonction enmonthname (inputdate) Résultat dim Sélectionnez le mois du cas (InputDate) Cas 1: Résultat = "Jan" Cas 2: résultat = "février" Cas 3: résultat = "mar" Cas 4: résultat = "APR" Cas 5: résultat = "May" Cas 6: Result = "Jun" Cas 7: résultat = "juil" Cas 8: résultat = "août" Cas 9: résultat = "sept" Cas 10: résultat = "oct" Cas 11: Résultat = "Nov" Cas 12: Résultat = "Dec" Fin de sélection Enmonthname = résultat Fonction finale %> |