Ενισχυμένος κώδικας RSS χρησιμοποιώντας ASP

• Ενδέχεται 20, 2024

Προειδοποίηση - Cool Content Content Ahead!

Εδώ είναι τι πρέπει να κάνετε. Βεβαιωθείτε ότι έχετε δημιουργήσει τη βάση δεδομένων σας είτε πρόκειται για Access είτε για SQL. Μόλις το κάνετε αυτό, σημειώστε τη συμβολοσειρά σύνδεσης και τα ονόματα τραπεζιού. Για αυτή την άσκηση, θα χρησιμοποιήσω τα εξής:

ArticleID - Αυτόματος αριθμός - αυτός ο αριθμός θα ενσωματωθεί στο σύνδεσμο. (Χρησιμοποιήστε το int με seed για SQL και αυτόματη αρίθμηση για Access)
Ημερομηνία προστέθηκε - Η ημερομηνία και η ώρα προστέθηκε το άρθρο
Προστέθηκε από - Συγγραφέας του άρθρου
ShortDesc - Απλή περιγραφή αν πρόκειται για ειδήσεις ή πληροφορίες τύπου άρθρου
Άρθρο Περιεχόμενο - Οι πραγματικές πληροφορίες ειδήσεων για το άρθρο.

Τώρα, με αυτή την έκδοση θα εφαρμόσουμε την ειδική μορφοποίηση XML για να βεβαιωθούμε ότι όταν ο αναγνώστης RSS λάβει τα άρθρα ειδήσεων, δεν θα αποτύχει εξαιτίας τυχόν ειδικών χαρακτήρων που ο αναγνώστης δεν μπορεί να επεξεργαστεί. Το RSS με τη μορφή XML είναι πολύ επιλεκτικό για το τι επεξεργάζονται οι χαρακτήρες, αλλά θα διασφαλίσουμε ότι δεν μπορεί να επεξεργαστεί κακούς χαρακτήρες και θα το ονομάσουμε ως applySpecialFormat.

Ένα ακόμα πράγμα που πρέπει να σημειωθεί, εάν θέλετε οι χρήστες να δουν το άρθρο όταν κάνουν κλικ στον σύνδεσμο στον αναγνώστη τους, βεβαιωθείτε ότι έχετε δημιουργήσει μια σελίδα που θα εμφανίζει το άρθρο και τις πληροφορίες του. Πιθανότατα έχετε ήδη αυτό, αλλά απλά ήθελα να σιγουρευτώ ότι το έλεγα μόνο σε περίπτωση. Για αυτή την άσκηση, θα το χρησιμοποιήσω 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
Copyright 2006

20

//www.myserver.com/images/logo.jpg
RSS χρησιμοποιώντας το λογότυπο ASP Code
//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)

ΔΙΠΛΗ ΚΛΙΚ ΕΔΩ ΓΙΑ ΝΑ ΠΡΟΣΒΑΣΕΤΕ ΤΟΝ ΑΝΤΑΛΛΑΚΤΙΚΟ ΓΙΑ ΤΗΝ ΠΑΡΑΚΟΛΟΥΘΗΣΗ ΤΟΥ ΣΥΝΔΕΣΜΟΥ
Πηγή άρθρου


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



Τώρα, αν έχετε δημιουργήσει τους πίνακες σας και έχετε προσθέσει πληροφορίες στη βάση δεδομένων σας, μπορείτε να δοκιμάσετε το αρχείο στο RSS Reader σας. Χρησιμοποιώ έναν ελεύθερο αναγνώστη από το www.rssreader.com. Μου επιτρέπει να βλέπω όλες τις επιλογές που μπορώ να χρησιμοποιήσω στη ροή RSS και θα μου πείτε αν υπάρχουν σφάλματα κατά την επεξεργασία της.

Μιλώντας για σφάλματα, αν υπάρχουν, απλώς επικολλήστε τη διεύθυνση URL του αρχείου RSS στο πρόγραμμα περιήγησης ιστού και θα πρέπει να σας ενημερώσει για τον αριθμό γραμμής στο σφάλμα που σας επιτρέπει να διορθώσετε το πρόβλημα. (Για να δείτε μηνύματα σφάλματος, βεβαιωθείτε ότι έχετε απενεργοποιήσει τα "φιλικά μηνύματα" για ASP - Βλ. Άρθρο TechNet της Microsoft
Απενεργοποίηση φιλικών μηνυμάτων) Τα περισσότερα σφάλματα που συνήθως συναντώ είναι σφάλματα σύνταξης που σημαίνει ότι πρέπει να εφαρμόσετε τη μορφοποίηση στην έξοδο του αρχείου RSS.

Αυτό είναι! Κρατήστε τα μάτια σας ανοιχτά για περισσότερα άρθρα σχετικά με το RSS και πώς μπορεί να είναι ένα πολύτιμο εργαλείο.

Οδηγίες Βίντεο: 50.000 οι προγραμματισμένοι πλειστηριασμοί το 2020 (Ενδέχεται 2024).