Izboljšana RSS koda z ASP

• Maj 14, 2024

Opozorilo - kul vsebina kode pred nami !!

Tukaj je tisto, kar morate storiti. Prepričajte se, da imate ustvarjeno bazo podatkov, ali je Access ali SQL. Ko to storite, si zabeležite imena povezav in tabel. Za to vajo bom uporabil naslednje:

ArticleID - Samodejna številka - ta številka bo vključena v povezavo. (Uporabite int s semenom za SQL in samodejno številko za dostop)
Datum doda - datum in čas, ko je bil članek dodan
Dodano - Avtor članka
ShortDesc - Enostaven opis, ali gre za novice ali informacijo
Člen Vsebina - dejanske informacije o članku.

Zdaj bomo s to različico uporabljali posebno obliko XML za zagotovitev, da ko RSS Reader dobi novice, ne bo uspel, ker noben poseben znak ne bo mogel obdelati. RSS s formatom XML je zelo izbirčen glede znakov, ki se obdelujejo, vendar bomo poskrbeli, da ne bo mogel obdelati nobenih slabih znakov in ga bomo poimenovali.

Še nekaj je treba opozoriti: če želite, da si člani ogledajo članek, ko kliknejo na povezavo v svojem bralniku, poskrbite, da ustvarite stran, na kateri bodo prikazani članek in njegove informacije. Verjetno to že imate, vendar sem se želel prepričati, da sem to povedal za vsak slučaj. Za to vajo bom uporabil article_view.asp.

Zdaj za kodo: (Shranite datoteko kot Articlever2.rss na svojem spletnem strežniku.)


<% 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 z ASP kodo
//www.myserver.com
RSS Uporaba ASP kode za ogled novih in obstoječih člankov iz baze podatkov.
en-nas
Avtorske pravice 2006

20

//www.myserver.com/images/logo.jpg
RSS z logotipom 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)

DVOJNI KLIKNITE TUKAJ, DA DOSTOPITE POVEZAVO PRENOSA PRENOSA
Vir članka


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



Če ste ustvarili tabele in dodali podatke v bazo podatkov, lahko datoteko preizkusite v svojem RSS Readerju. Uporabljam brezplačni bralnik s spletnega mesta www.rssreader.com. Omogoča mi, da vidim vse možnosti, ki jih lahko uporabim v RSS feedu in povedal mi bo, če obstajajo napake pri obdelavi.

Če že govorite o napakah, preprosto prilepite URL datoteke RSS v spletni brskalnik in ta naj vam pove, na kateri številki vrstice je napaka, kar vam omogoča, da odpravite težavo. (Če si želite ogledati sporočila o napakah, preverite, ali ste izključili "prijazna sporočila" za ASP - glejte Microsoftov članek TechNet
Izklopite prijazna sporočila) Večina napak, na katere ponavadi naletim, so napake v sintaksi, kar pomeni, da morate oblikovanje uporabiti za izhod datoteke RSS.

To je to! Odprite oči za več člankov o RSS-u in o tem, kako je lahko dragoceno orodje.