Empfohlen: 20 sehr nützliche Beispiele in der ASP -Programmierung (i) 1. So verwenden Sie ASP, um den virtuellen physischen Pfad Ihrer Website zu bestimmen: Verwenden Sie die Mappath -Methode: < % = Server.Mappath () %> 2. Antwort: Verwenden Sie die Anforderungsobjektmethode:
Vor einiger Zeit, um RSS -Abonnementfunktion zu meiner Filmseite hinzuzufügen, habe ich einen ASP -Code geschrieben, der RSS -Feed dynamisch generiert. Da die Filmseite es direkt erhält, können Sie es auch verwenden, wenn Sie andere Arten von Websites ändern. Der generierte RSS-Feed wird durch UTF-8 codiert, wird von fesedvalidator.org verifiziert und ist mit RSS 2.0 und Atom kompatibel.
Verwendung: Speichern Sie den folgenden Code als RSS.asp (Denken Sie daran, ihn im UTF-8-Format zu speichern) und laden Sie ihn in das Root-Verzeichnis der Website hoch. Ihr Domain -Name /rs.asp
Demo: http://www.366mv.cn
Der Code ist wie folgt.
| <%@Sprache = vbScript Codepage = 65001%> <% Sitzung.CodePage = 65001 Antwort.CharSet = UTF-8 "============================================================================================================================== ======================================================= 'Copyright (C) 2005-2007, Sour Liu Liu Film und Fernsehen ([url] www.366mv.cn [/url]) Alle Rechte vorbehalten. "============================================================================================================================== ======================================================= 'Name: RSS.asp 'Beschreibung: Generieren Sie dynamisch RSS -Feed. "============================================================================================================================== ======================================================= %> <!-#include file = inc/conn.asp-> <? xml Version = 1.0 coding = utf-8?> <RSS -Version = 2.0 xmlns: atom = http: //www.w3.org/2005/atom> <% Titel = Souliao Liu Film und Fernsehen wechseln es zu Ihrem eigenen Namen Response.write <Anhans> & chr (13) response.write <atom: link href = http: //&maxz_2&/xml.asp rel = self type = application/rss xml/> & chr (13) Antwort.Write <titels> Neueste aktualisierte Videos - & Titel & </title> & chr (13) response.write <Link> http: // & maxz_2 & </link> & chr (13) Antwort. Kostenlose Filme, Online -Filme, TVB, japanische Dramen, koreanische Dramen, Animation, Science -Fiction, Horror, Romantik, TV -Serie, Blockbuster, Neujahrsfilme ... </Beschreibung> & Chr (13) Antwort. Antwort.Write </Channel> & Chr (13) Funktion re (str) Wenn nicht ist nicht (str) dann re = ersetzen (str, &, &) re = ersetzen (re, <, <) Re = ersetzen (re,>,>) re = ersetzen (re, ', & apos;) re = ersetzen (re ,,) Ende wenn Endfunktion Funktion get_left (n, m) n = cint (n): m = cint (m) Wenn m = 1 dann mm = order by zt_hits desc 'sortiert nach Klicks Anders mm = order by zt_date desc 'sortiert nach Update -Datum Ende wenn Setzen Sie rs1 = conn.execute (Wählen Sie Top & n & zt_id, zt_name, zt_zy, zt_dy, zt_type, zt_date, zt_hits, zt_content aus Zt_data & mm) get_left_i = 0 Tun, während nicht Rs1.eof get_left_i = get_left_i 1 get_left = get_left & <element> & chr (13) get_left = get_left & <title> & re (rs1 (zt_name)) & </title> & chr (13) get_left = get_left & <Link> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &/& rs1 (zt_id) & </link> & chr (13) get_left = get_left & <beschreibung> <! [cdata [<p> Kategorie: <a href = http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &> & get_classname (rs1 (Zt_type)) & </a> </P. > <p> Hauptrolle: & rs1 (zt_zy) & </p> <p> Plot: & re (rs1 (zt_content)) & </p>]]> </Beschreibung> & Chr (13) get_left = get_left & <guid> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) &/& rs1 (zt_id) & </goid> & chr (13) get_left = get_left & <category> <! [cdata [& get_className (rs1 (Zt_type)) &]] &]]> </category> & chr (13) get_left = get_left & <pubdate> & datetorfc822 (rs1 (zt_date)) & </pubDate> & chr (13) get_left = get_left & </item> & chr (13) Wenn Get_Left_i> = n dann beenden RS1.Movenext Schleife RS1.CLOSE Endfunktion Funktion DateTorfc822 (Byval dtaval) Dim Strcurlocale: Strcurlocale = getlocale () SetLocale (EN-GB) dtaval = cdate (dtaval) DATETORFC822 = WODETDAGENAME (WOCHNENDAY (DTAVAL), TRUE) &, & _ Rechts (0 & Tag (dtaval), 2) & & _ MonatName (Monat (DTAVAL), TRUE) & & _ Jahr (dtaval) & & _ Rechts (0 & stündlich (dtaval), 2) &: & _ Rechts (0 & Minute (dtaval), 2) &: & _ Rechts (0 & Sekunde (dtaval), 2) & & _ 0800 Setlocale (Strcurlocale) Endfunktion %> </rss> |
Teilen: Wie kann ASP die erste Bildadresse im Code erhalten Ȁndern Sie das Muster erneut.