أخبار الأعلاف باستخدام آر إس إس

• أبريل 23, 2024

تغذية الأخبار باستخدام آر إس إس

ربما يكون إنشاء مقالات إخبارية هو الشيء الوحيد الذي دفع RSS حقًا إلى شعبيته. الأخبار في تعريفها الأساسي هي إعلام وتثقيف على أساس الحقائق. الآن هذا لا يعني أن الأخبار في بعض الأحيان لديه آراء تضاف إلى المزيج في كلتا الحالتين ، كانت الجماهير الإلكترونية بحاجة إلى نشر مقالاتهم بطريقة تمكن الجميع من قراءتها والحصول عليها عند نشرها. أدخل RSS.

يعد استخدام RSS لتغذية الأخبار أحد أسهل الطرق لإبلاغ القراء بما يجري. كما ذكر في مقالاتي السابقة ، قد ترغب في إنشاء واجهة أمامية ، باستخدام ASP بالطبع ، لإدخال مقالاتك الإخبارية في قاعدة البيانات الخاصة بك. سيسمح لك وجود هذه الواجهة الأمامية بإدخال أي مقالات جديدة بسهولة ولا داعي للقلق بشأن الدخول إلى قاعدة البيانات لإدخالها يدويًا.

هناك جزءان لإنشاء خلاصة RSS.

الرأس والجسم. يتكون الرأس من بعض رموز RSS الأساسية لتنسيق الخلاصة بشكل صحيح بحيث يمكن قراءتها ومعالجتها من قبل القراء. (يمكنك الحصول على واحدة مجانية من www.RSSReader.com) وسوف تشمل الهيئة المعلومات التي يتم سحبها من قاعدة البيانات.

إليك كيفية ظهور الرأس دائمًا:

<؟ xml version = "1.0"
ترميز = "ISO-8859-1"؟>
<% Response.Buffer = true
Response.ContentType = "text/xml"
Function ApplyXMLFormatting(strInput)
if len(strInput) > 0 then
strInput =
Replace(strInput,"&", "&")
strInput = Replace(strInput,"'", "'")
strInput = Replace(strInput,"""",
""")
strInput = Replace(strInput, ">",
">")
strInput = Replace(strInput,"<","<")
else
strInput = ""
end if
ApplyXMLFormatting = strInput
End Function
%>

مرة أخرى ، سيضمن هذا أن قارئ RSS يمكنه قراءة الملف بشكل صحيح. الجزء التالي هو الهيئة التي ستقوم بمعالجة سجلات الأخبار من قاعدة البيانات. طالما أن لديك إعداد الحقول في قاعدة البيانات ، يجب أن تكون على ما يرام. (//www.coffebreakblog.com/articles/art46418.asp)

يمكن أن يبدو نص الملف كما يلي:



آر إس إس وظيفة المجلس -
ASP
//asp.coffebreakblog.com
آر إس إس وظيفة المجلس ل
مطورو ASP
أون لنا
حقوق النشر
2006

20

//www.coffebreakblog.com/images/bella.gif
ASP @ CoffeBreakBlog.com
//asp.coffebreakblog.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 RSSTable
WHERE (DateAdded <= '" & Now() & "') order by DateAdded DESC"
objRS.Open strSQL, objConn

Do While Not objRS.EOF
strDesc = "Job Posted by " &
objRS("Owner") & " on " & _
objRS("DateAdded") & "
PST
" & _
objRS("Message").Value
%>





//asp.coffebreakblog.com



asp@coffebreakblog.com
(كريستوفر كومز)

//asp.coffebreakblog.com
<%
objRS.MoveNext
Loop
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
ثم احفظ الملف كـ ASP أو RSS. (RSS مع التأكد من إعداد خادمك لقبول طلبات ملفات RSS كـ ASP - //www.coffebreakblog.com/articles/art30642.asp)

إذا كانت لديك مشاكل أو أسئلة بخصوص هذا المقال أو أي مقالة أخرى ، فيرجى إخبارنا بذلك. asp@coffebreakblog.com

تعليمات الفيديو: 2019 Chevrolet Tahoe RST شفروليه تاهو أر إس تي 2019 بصمة رياضية - بكر أزهر | سعودي أوتو (أبريل 2024).