Mã RSS nâng cao sử dụng ASP

• Có Thể 17, 2024

Cảnh báo - Nội dung mã mát mẻ phía trước !!

Dưới đây là những gì bạn cần làm. Hãy chắc chắn rằng bạn đã tạo cơ sở dữ liệu của mình cho dù đó là Access hay SQL. Khi bạn đã thực hiện xong, lưu ý chuỗi kết nối và tên bảng của bạn. Đối với bài tập này, tôi sẽ sử dụng như sau:

ID bài viết - Số tự động - số này sẽ được tích hợp vào liên kết. (Sử dụng int với seed cho SQL và autonumber cho Access)
Ngày tháng - Ngày và giờ bài viết đã được thêm vào
Đã thêm - Tác giả của bài báo
ShortDesc - Mô tả đơn giản cho dù đó là tin tức hoặc loại thông tin của bài viết
Điều liên quan - Các thông tin tin tức thực tế cho bài viết.

Bây giờ, với phiên bản này, chúng tôi sẽ áp dụng định dạng XML đặc biệt để đảm bảo rằng khi Trình đọc RSS nhận được các bài báo, nó đã thắng không thành công vì bất kỳ ký tự đặc biệt nào mà trình đọc không thể xử lý. RSS với định dạng XML rất kén chọn về những ký tự được xử lý nhưng chúng tôi sẽ đảm bảo rằng nó có thể xử lý bất kỳ ký tự xấu nào và chúng tôi sẽ gọi nó là hàm áp dụng SpecialFormat.

Một điều nữa cần lưu ý, nếu bạn muốn người dùng xem bài viết khi họ nhấp vào liên kết trong trình đọc của họ, hãy đảm bảo bạn tạo một trang sẽ hiển thị Điều và thông tin của nó. Bạn có thể đã có điều này nhưng tôi chỉ muốn chắc chắn rằng tôi đã nói nó chỉ trong trường hợp. Đối với bài tập này, tôi sẽ sử dụng article_view.asp.

Bây giờ cho mã: (Lưu tệp dưới dạng articlever2.rss vào máy chủ web của bạn.)


<% 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 sử dụng mã ASP
//www.myserver.com
RSS Sử dụng mã ASP để xem các bài viết mới và hiện có từ cơ sở dữ liệu.
en-chúng tôi
Bản quyền 2006

20

//www.myserver.com/images/logo.jpg
RSS sử dụng Logo mã 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)

NHÂN ĐÔI NHẤP VÀO ĐÂY ĐỂ TRUY CẬP LIÊN KẾT ĐỂ TẢI XUỐNG
Nguồn bài viết


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



Bây giờ, nếu bạn đã tạo các bảng của mình và đã thêm thông tin vào cơ sở dữ liệu của mình, bạn có thể kiểm tra tệp trong Trình đọc RSS của mình. Tôi sử dụng một trình đọc miễn phí từ www.rssreader.com. Nó cho phép tôi xem tất cả các tùy chọn tôi có thể sử dụng trong nguồn cấp RSS và nó sẽ cho tôi biết nếu có bất kỳ lỗi nào khi xử lý nó.

Nói về lỗi, nếu có bất kỳ, chỉ cần dán URL của tệp RSS vào trình duyệt web của bạn và nó sẽ cho bạn biết lỗi số dòng nào trên đó cho phép bạn sửa lỗi. (Để xem các thông báo lỗi, hãy đảm bảo rằng bạn đã tắt các thông báo thân thiện với người dùng Cameron cho ASP - Xem bài viết Microsoft Microsoft TechNet
Tắt tin nhắn thân thiện) Hầu hết các lỗi mà tôi thường gặp là lỗi cú pháp, có nghĩa là bạn cần áp dụng định dạng cho đầu ra của tệp RSS.

Thế là xong! Hãy để mắt mở cho nhiều bài viết về RSS và làm thế nào nó có thể là một công cụ có giá trị.

Video HướNg DẫN: Lấy bài từ web khác vào WordPress tự động không cần RSS. (Có Thể 2024).