Freunde, die gesehen haben, können zum ersten Mal die Spitze geschickt. Einfach wie möglich, wenn ich schreibe.
Fügen Sie die RSS -Aggregationsfunktion für Ihre Website, Ihr Blog usw. hinzu und geben Sie nun den Polymerisationscode von RSSS.asp an, um zu sehen, wie Sie reagieren, falls gut
Es ist praktisch für Sie, das Erscheinen von http://www.nbpda.com/rs.asp zu zeigen
Unterstützen Sie nach dem Testen die meisten aggregierten Leser
Der folgende Code wird als RSS.asp gespeichert
Das Folgende ist das Codefragment:
| Das Folgende ist das Codefragment: <!-#include File = "conn.asp"-> <% streurl = "http: //" & request.servervariables ("server_name") & _ Links (Request.Servervariables ("script_name"), len (request.servervariables ("script_name")-len ("/rs.asp") // ist Ihr Name für Ihren Dateinamen SQL = "Top 100 * aus [Tabellenname] Order by ID Desc" // gemäß der tatsächlichen Änderung sind Top 100 die neuesten 100 Elemente, ändern Sie es selbst und gleichzeitig können Sie Abfragebedingungen hinzufügen, wie z. B. wo xxx = 1 .... Setzen Sie rs = server.createObject ("adodb.oldset") Rs.oopen SQL, Conn, 1,1 Antwort.ContentType = "text/xml" response.write "<? xml Version =" "1.0" "coding =" gb2312 "?>" & vbcrlf response.write "<rss Version =" "2.0" ""> "& VBCRLF response.write "<Anals>" & vbcrf response.write "<titels> xxx.com RSS -Feed </title>" & vbcrlf response.write "<Link>" & stRURL & "</link>" & vbcrip response.write "<sprach> zh-cn </sprach>" & vbcrlf response.write "<copyright> An RSS -Feed für xxx.comCopyright>" & VBCRLF Zwar nicht rs.eof response.write "<tem>" & vbcrlf Response.write "<titels> <! [" "" & Rs ("title") & "] >> </title>" & vbcrlf Response.write "<Link>" & stRURL & "/xxxx.asp? Id =" & rs ("id") & "</link>" & vblockff Response.write "<beschreibung> <! [" "" "& Rs (" Themenfeld ") &" <br /> "& rs (" Inhaltsfeld ") &" <br /> <br />]> < /Beschreibung> "& VBCRF Antwort.Write "<PubDate>" & return_rfc822_date (RS ("Zeitfeld"), "GMT") & "</pubDate>" & VBCRLFFF Antwort.Write "</item>" & vbcrf Rs.Movenext Wend response.write "</kanal>" & vbcrlf response.write "</rss>" & vbcrlf Rs.close Setzen Sie Rs = nichts Funktion return_rfc822_date (Byval MyDate, Byval TimeZone) Dim Myday, Mydays, My Month, MyYear Dunkelne Myhours, MyMinutes, Myseconds mydate = cdate (mydate) Myday = enweekdayname (mydate) Mydays = rechts ("00" & tag (mydate), 2) month = enonthmame (mydate) myyear = Jahr (mydate) myTHOurs = rechts ("00" & Stunde (mydate), 2) Myminutes = rechts ("00" & Minute (myDate), 2) MySeconds = rechts ("00" und zweiter (mydate), 2) Return_rfc822_date = myday & "," & _ Mydays & "" & _ Month & "& _ Myyear & "" & _ myhouse & ":" & _ MyMinutes & ":" & _ Myseconds & "" & _ "" "& Timezone Endfunktion Funktion enweekdayname (Inputdate) Dimes Ergebnis Wochung Wochentag (Inputdate, 1) auswählen Fall 1: Ergebnis = "Sonne" Fall 2: Ergebnis = "Mon" Fall 3: Ergebnis = "Di" Fall 4: result = "mi" Fall 5: Ergebnis = "Thu" Fall 6: result = "fr" Fall 7: Ergebnis = "SAT" Ende auswählen Enweekdayname = Ergebnis Endfunktion Funktion ENTHNAWNAME (Inputdate) Dimes Ergebnis Wählen Sie den Fallmonat (Inputdate) Fall 1: Ergebnis = "Jan" Fall 2: Ergebnis = "Feb" Fall 3: Ergebnis = "Mar" Fall 4: Ergebnis = "APR" Fall 5: Ergebnis = "Mai" Fall 6: Ergebnis = "Jun" Fall 7: Ergebnis = "Jul" Fall 8: Ergebnis = "Aug" Fall 9: result = "sep" Fall 10: Ergebnis = "OCT" Fall 11: Ergebnis = "Nov" Fall 12: result = "dec" Ende auswählen ENMONTHNAME NAME = ERGEBNIS Endfunktion %> |