Kod RSS Ditambah menggunakan ASP

• Mungkin 4, 2024

Amaran - Kandungan Kod Percuma Di Hadapan !!

Inilah yang perlu anda lakukan. Pastikan anda telah membuat pangkalan data anda sama ada Access atau SQL. Sebaik sahaja anda melakukannya, perhatikan sambungan anda dan nama jadual. Untuk latihan ini, saya akan menggunakan perkara berikut:

ArticleID - Nombor Automatik - nombor ini akan dimasukkan ke dalam pautan. (Gunakan int dengan benih untuk SQL dan autonumber untuk Akses)
DateAdded - Tarikh dan Masa Artikel ditambah
AddedBy - Pengarang artikel itu
ShortDesc - Penerangan ringkas sama ada berita atau jenis maklumat artikel
ArticleContent - Maklumat berita sebenar untuk artikel itu.

Sekarang, dengan versi ini kami akan memohon pemformatan XML khas untuk memastikan bahawa apabila RSS Reader mendapat artikel berita, ia tidak akan gagal kerana sebarang aksara khas pembaca tidak dapat memproses. RSS dengan format XML sangat pemilih tentang watak-watak yang diproses tetapi kami akan memastikan bahawa ia tidak dapat memproses mana-mana watak buruk dan kami akan memanggilnya menggunakan fungsi Special.Format.

Satu lagi perkara yang perlu diperhatikan, jika anda mahu pengguna melihat artikel ketika mereka mengklik pautan di pembaca mereka, pastikan anda membuat halaman yang akan menunjukkan Artikel dan maklumatnya. Anda mungkin sudah mempunyai ini tetapi saya hanya mahu pastikan saya mengatakannya sekiranya berlaku. Untuk latihan ini, saya akan menggunakannya article_view.asp.

Sekarang untuk kod: (Simpan fail sebagai articlesver2.rss ke pelayan web anda.)


<% Response.Buffer = true
Response.ContentType = "text/xml"
Function applySpecialFormat(strInput)
if len(strInput) > 0 then
strInput = Replace(strInput,"&", "&")
strInput = Replace(strInput,"'", "& apos;") 'REMOVE SPACE BETWEEN & apos;
strInput = Replace(strInput,"""", "& quot;") 'REMOVE SPACE BETWEEN & quot;
strInput = Replace(strInput, ">", "& gt;") 'REMOVE SPACE BETWEEN & gt;
strInput = Replace(strInput,"<","& lt;") 'REMOVE SPACE BETWEEN & lt;
else
strInput = ""
end if
applySpecialFormat = strInput
End Function
%>


RSS menggunakan Kod ASP
//www.myserver.com
RSS Menggunakan kod ASP untuk melihat artikel baru dan sedia ada dari pangkalan data.
en-us
Hakcipta 2006

20

//www.myserver.com/images/logo.jpg
RSS menggunakan Logo Kod ASP
//www.myserver.com

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString = "Provider=sqloledb;Data Source=DBSERVER;Initial Catalog=ARTICLEDB;User Id=sa;Password=sqlpassword;"
objConn.CursorLocation = 3
objConn.Open

Dim objRS, strSQL, strDesc
strSQL = "SELECT * FROM ArticleDB WHERE (AddedDate <= '" & Now() & "') order by AddedDate DESC"
objRS.Open strSQL, objConn

Do While Not objRS.EOF
strDesc = "Article by " & objRS("AddedBy") & " on " & _
objRS("AddedDate") & " PST
" & _
objRS("ArticleContent").Value %>


()

//www.myserver.com/article_view.asp?ArticleID=



asp@coffebreakblog.com (Christopher Combs)

DOUBLE KLIK DI SINI UNTUK MENGHADAPI LINK UNTUK LENGKAP LANGKAH
Perkara Sumber


<%
objRS.MoveNext
Loop
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>



Sekarang, jika anda telah membuat jadual anda dan menambah maklumat ke pangkalan data anda, anda boleh menguji fail dalam Pembaca RSS anda. Saya menggunakan pembaca percuma dari www.rssreader.com. Ia membolehkan saya melihat semua pilihan yang boleh saya gunakan dalam suapan RSS dan ia akan memberitahu saya jika terdapat sebarang kesilapan semasa memprosesnya.

Bercakap tentang kesilapan, jika terdapat apa-apa, hanya paste URL fail RSS ke dalam penyemak imbas web anda dan ia harus memberitahukan kepada anda apa nombor baris kesalahan yang pada gilirannya membolehkan anda membetulkan masalah. (Untuk melihat mesej ralat, pastikan bahawa anda telah mematikan "mesej mesra" untuk ASP - Lihat artikel TechNet Microsoft
Matikan Mesej Mesra) Kebanyakan ralat yang biasanya saya jumpai ialah ralat sintaks yang bermaksud anda perlu memohon pemformatan kepada output fail RSS anda.

Iaitu ia! Pastikan mata anda terbuka untuk artikel lebih lanjut mengenai RSS dan bagaimana ia boleh menjadi alat yang bernilai.