Hari ini, saya ingin menulis permukaan daun yang dinamis untuk situs web baru.
Kerugian: Karena fungsi orang lain ini tidak menentukan format FSO, itu hanya mendukung output GB2312.
Perkiraan proses
1. Akrab dengan spesifikasi dan format RSS
Jika ini sederhana tidak mudah untuk menemukan standar, Anda dapat membuka sumber agregat RSS.XML orang lain untuk melihatnya.
2. Memahami prosesnya
Buat ASP (CreateS.asp)-> Memproses data baca (SQL/ACCESS, dll.)-> Tulis ke dalam Rss.xml-Success!
3. Persiapan
Ini adalah fungsi yang dibuat dan ditulis oleh file yang ditulis oleh orang lain
write2file.asp
| Berikut ini adalah fragmen kode: <% 'Wite2file.asp 'Tulis file Sub Write2File (Strfile, Strcontent, Blnappend) 'Strfile File Name (path), konten yang ditulis oleh Strcontent, apakah BlnAppend ditambahkan Pada kesalahan resume berikutnya Set ObjFSO = Server.CreateObject ("Scripting.FilesystemObject") Jika BlnAppend maka Set Objwritetext = objfso.opentextFile (Strfile, 8, true) Kalau tidak Set Objwritetext = objfso.opentextFile (Strfile, 2, true) Akhiri jika Objwritetext.WriteLine (Strcontent) Atur objwritetext = tidak ada Atur objfso = tidak ada 'Perawatan toleransi kesalahan Pilih case err Case 424 Response.Trite "Jalan" Jalan tidak ditemukan atau direktori tidak ditulis ke dalam izin. " Case lain response.write err.descripting 'Case lain response.write errmsg Akhiri Pilih Akhir sub 'Panggilan 'Write2file "c: /dd.ini", "dd", true 'Call Writing2File ("c: /dd.ini", "dd", true) 'Dapat membuat file, tetapi tidak dapat membuat direktori %> |
setrss.asp
| Berikut ini adalah fragmen kode: 'Creators.asp <!-#termasuk file = "write2file.asp"-> Redup myrss, masukkan Masukkan = false 'digunakan untuk menentukan apakah MYRSS mendapatkan data yang valid 'Tentukan header rss.xml Myrss = "<? Xml Version =" "1.0" "encoding =" gb2312 "" mandiri = "" ya "" "" "?> <RSS Versi =" "2.0" "xmlns: dc =" "http: // purl. "> <nynel> <title> webtitle </iteme> <link> SiteHost </link> <creckripe> Webdescripting </creckripe> <General> Generator </en Generator> <sanguage> zh-cn </saugiaage> <sopyright> 9xiao.cn </opyright> <mubdate> pubdate </bubdate> " 'Baca data <teem> <...> 'Tentukan koneksi database terlebih dahulu Set RS = Server.CreateObject ("ADODB.OldSet") SQL = "Pilih * dari Tabel" Rs.oopen SQL, Conn, 1, 1 Jika tidak rs.eof maka Masukkan = true 'memiliki konten untuk memasukkan RSS lakukan sementara tidak rs.eof Myrss = myrss & "<em> <tite>" & rs ("title") & "</itement> <noror>" & rs ("author") & "</author> <link> & rs (" " "Tautan") & "</link> <pubdate>" & rs ("pubdate") & "</bubdate> <dimbing>" & rs ("tautan") & "</dimbing> <! [Cdata [& & RS ("YourContent") & "]]> </cripence> <urtegory>" & rs ("Category") & "</category> </t Item>" "" " rs.movenext lingkaran akhiri jika Rs.close Setel RS = Tidak Ada 'RSS berakhir Harap ganti konten di bidang Anda sendiri di 'rs ("******") 'Akhir rss.xml Myrss = myrss & "</salnel> </rss>" " 'Tulis ke RSS Jika Enter = true maka Write2file server.mappath ("rss.xml"), myrss, false ' akhiri jika %> |