ปรับปรุงรหัส RSS โดยใช้ ASP

• อาจ 14, 2024

คำเตือน - เนื้อหาโค้ดสุดเจ๋ง !!

นี่คือสิ่งที่คุณต้องทำ ตรวจสอบให้แน่ใจว่าคุณสร้างฐานข้อมูลไม่ว่าจะเป็น Access หรือ SQL เมื่อคุณทำเสร็จแล้วให้จดบันทึกสตริงการเชื่อมต่อและชื่อตารางของคุณ สำหรับแบบฝึกหัดนี้ฉันจะใช้สิ่งต่อไปนี้:

articleID - หมายเลขอัตโนมัติ - หมายเลขนี้จะถูกรวมเข้าไปในลิงค์ (ใช้ int กับ seed สำหรับ SQL และ autonumber สำหรับการเข้าถึง)
DateAdded - วันที่และเวลาที่เพิ่มบทความ
AddedBy - ผู้เขียนบทความ
ShortDesc - คำอธิบายง่ายๆไม่ว่าจะเป็นข่าวหรือประเภทข้อมูลของบทความ
ArticleContent - ข้อมูลข่าวจริงสำหรับบทความ

ตอนนี้กับรุ่นนี้เราจะใช้การจัดรูปแบบ XML พิเศษเพื่อให้แน่ใจว่าเมื่อ RSS Reader ได้รับบทความข่าวมันจะไม่ล้มเหลวเนื่องจากอักขระพิเศษใด ๆ ที่ผู้อ่านไม่สามารถดำเนินการได้ RSS ที่มีรูปแบบ XML นั้นพิถีพิถันมากเกี่ยวกับตัวละครที่ถูกประมวลผล แต่เราจะตรวจสอบให้แน่ใจว่ามันไม่สามารถประมวลผลตัวละครที่ไม่ดีใด ๆ และเราจะเรียกมันว่า

อีกสิ่งหนึ่งที่ควรทราบหากคุณต้องการให้ผู้ใช้ดูบทความเมื่อพวกเขาคลิกลิงก์ในตัวอ่านของพวกเขาตรวจสอบให้แน่ใจว่าคุณสร้างเพจที่จะแสดงบทความและข้อมูลของมัน คุณอาจมีสิ่งนี้อยู่แล้ว แต่ฉันแค่ต้องการทำให้แน่ใจว่าฉันพูดในกรณี สำหรับแบบฝึกหัดนี้ฉันจะใช้ article_view.asp.

ตอนนี้สำหรับรหัส: (บันทึกไฟล์เป็น articlesver2.rss ลงบนเว็บเซิร์ฟเวอร์ของคุณ)


<% 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 โดยใช้รหัส ASP
//www.myserver.com
RSS ใช้รหัส ASP เพื่อดูบทความใหม่และที่มีอยู่จากฐานข้อมูล
en-US
ลิขสิทธิ์ 2006

20

//www.myserver.com/images/logo.jpg
RSS โดยใช้โลโก้รหัส 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)

คลิกสองครั้งที่นี่เพื่อเข้าถึงลิงก์สำหรับการดาวน์โหลด ATTACHMENT
แหล่งบทความ


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



ตอนนี้ถ้าคุณสร้างตารางและเพิ่มข้อมูลลงในฐานข้อมูลของคุณแล้วคุณสามารถทดสอบไฟล์ในเครื่องอ่าน RSS ของคุณ ฉันใช้โปรแกรมอ่านฟรีจาก www.rssreader.com มันทำให้ฉันเห็นตัวเลือกทั้งหมดที่ฉันสามารถใช้ในฟีด RSS และมันจะบอกฉันว่ามีข้อผิดพลาดใด ๆ เมื่อประมวลผลหรือไม่

หากพูดถึงข้อผิดพลาดหากมีเพียงแค่วาง URL ของไฟล์ RSS ลงในเว็บเบราว์เซอร์ของคุณและควรบอกให้คุณทราบว่าหมายเลขข้อผิดพลาดที่บรรทัดนั้นอยู่ในจุดไหนทำให้คุณสามารถแก้ไขปัญหาได้ (หากต้องการดูข้อความแสดงข้อผิดพลาดตรวจสอบให้แน่ใจว่าคุณได้ปิด "ข้อความที่เป็นมิตร" สำหรับ ASP - ดูบทความ TechNet ของ Microsoft
ปิดข้อความที่เป็นมิตร) ข้อผิดพลาดส่วนใหญ่ที่ฉันมักเจอคือข้อผิดพลาดทางไวยากรณ์ซึ่งหมายความว่าคุณต้องใช้การจัดรูปแบบกับเอาต์พุตของไฟล์ RSS ของคุณ

อย่างนั้นแหละ! อย่าลืมเปิดอ่านบทความเพิ่มเติมเกี่ยวกับ RSS และวิธีที่จะเป็นเครื่องมือที่มีค่า