Heute möchte ich eine dynamische Blattoberfläche für die neue Website schreiben.
Nachteile: Da die Funktion dieser anderen das Format von FSO nicht definiert, unterstützt es nur die Ausgabe von GB2312.
Ungefährer Prozess
1. Mit der RSS -Spezifikation und dem Format vertraut
Wenn dies nicht einfach zu finden ist, können Sie die aggregierte RSS.xml -Quelle anderer öffnen, um sie zu sehen.
2. Verstehen Sie den Prozess
Erstellen Sie ein ASP (Creater.asp)-> Verarbeitungsdaten (SQL/Access usw.)-> Schreiben Sie in RSS.xml-Success!
3. Vorbereitung
Dies ist eine Funktion, die von einer von anderen geschriebenen Datei erstellt und geschrieben wurde
write2File.asp
| Das Folgende ist das Codefragment: <% 'Wite2File.asp 'Schreibdatei Sub Write2File (Strfile, Strcontent, BLNAppend) 'StrFile Dateiname (Pfad), den von StrContent geschriebenen Inhalt, ob BLNAppend hinzugefügt wird Bei der nächsten Fehleraufnahme als nächstes Setzen Sie OBJFSO = Server.createObject ("Scripting.FilesSystemObject"). Wenn BLNAppend dann Setzen Sie objwritetext = objfso.opentextFile (strFile, 8, true) Anders SET OBJWRITETEXT = OBJFSO.OPENTEXTFILE (STRFILE, 2, TRUE) Ende wenn ObjwritEText.WriteLine (StrContent) Objwritetext = nichts festlegen Setzen Sie objfso = nichts 'Fehlertoleranzbehandlung Wählen Sie Fall err Fall 424 Antwort "Der Pfad" wird nicht gefunden oder das Verzeichnis wird nicht in Berechtigungen geschrieben. " Case sonst response.write err.descripting 'Fall sonst response.write errmsg Ende auswählen Ende sub 'Anruf 'Write2File "c: /dd.ini", "dd", wahr 'Call Writing2File ("c: /dd.ini", "dd", wahr) 'Kann Dateien erstellen, kann aber kein Verzeichnis erstellen %> |
setrs.asp
| Das Folgende ist das Codefragment: 'Creaters.asp <!-#include File = "write2File.asp"-> Dim Myrss, eingeben Enter = false 'wird verwendet, um festzustellen, ob Myrss gültige Daten erhalten 'Definieren Sie den RSS.xml -Header MYRSS = "<? XML Version =" "1.0" "coding =" gb2312 "" standalone = "" yes "" ""? lurl. "> <Cannel> <titels> Webtitle </title> <Link> SiteHost </link> <Cription> webdescriping </Beschreibung> <Geral> Generator </generator> <PRAGION> ZH-CN </LAUGUAGE> <copyright> 9xiao.cn </Copyright> <PubDate> PubDate </pubDate> " 'Lesen Sie die Daten <Teem> <...> 'Definieren Sie die Datenbankverbindung im Voraus Setzen Sie rs = server.createObject ("adodb.oldset") SQL = "Auswählen * aus der Tabelle" Rs.oopen SQL, Conn, 1, 1 wenn nicht rs.eof dann ENTER = TRUE 'hat Inhalte zum Einfügen von RSS tun, während nicht Rs.Eof Myrss = Myrss & "<Tem> <title>" & rs ("title") & "</title> <autor>" & rs ("Autor") & "</Author> <Link> & rs (" "" "Link") & "</link> <pubdate>" & rs ("pubDate") & "</pubDate> <guid>" & rs ("link") & "</Guid> <! [CDATA [& RS ("YourContent") & "]]> </Beschreibung> <kategorie>" & rs ("Kategorie") & "</category> </item>" "" "" Rs.Movenext Schleife Ende wenn Rs.close Setzen Sie Rs = nichts 'RSS Ende Bitte ersetzen Sie den Inhalt in Ihrem eigenen Feld in 'RS ("******"). 'Ende RSS.xml Myrss = Myrss & "</Channel> </rss>" "" 'Schreiben Sie in RSS Wenn Sie = true dann dann eingeben Write2File server.mappath ("rs.xml"), myrss, false ' Ende wenn %> |