ASP Access يولد شرحًا مفصلاً تقنية RSS قياسية

الكاتب：Eve Cole وقت التحديث：2025-03-06 11:32:02

اليوم ، أريد أن أكتب سطحًا ديناميكيًا للموقع الجديد.

العيوب: نظرًا لأن وظيفة هذا الآخر لا تحدد تنسيق FSO ، فإنه يدعم فقط الإخراج GB2312.

العملية التقريبية

1. على دراية بمواصفات RSS وتنسيقها

إذا لم يكن من السهل العثور على هذا البسيط ، فيمكنك فتح مصدر إجمالي RSS.xML للآخرين لرؤيته.

2. فهم العملية

إنشاء ASP (Creaters.asp)-> معالجة بيانات القراءة (SQL/Access ، إلخ.)-> اكتب في RSS.xml-success!

3. التحضير

هذه وظيفة تم إنشاؤها وكتابتها بواسطة ملف كتبه الآخرون

Write2File.asp

ما يلي هو جزء الرمز:

<٪

'wite2file.asp

'اكتب ملف

sub write2file (strfile ، strcontent ، blnappend)

'اسم ملف strfile (المسار) ، المحتوى المكتوب من قبل strcontent ، ما إذا كانت blnappend قد تمت إضافة

عند استئناف الخطأ التالي

SET OBJFSO = server.createObject ("scripting.filesystemObject")

إذا blnappend ثم

تعيين OBJWRITETEXT = OBJFSO.OPENTEXTFILE (Strfile ، 8 ، TRUE)

آخر

تعيين OBJWRITETEXT = OBJFSO.OPENTEXTFILE (Strfile ، 2 ، True)

إنهاء إذا

ObjWriteText.writeline (strcontent)

تعيين OBJWritetext = لا شيء

تعيين OBJFSO = لا شيء

'علاج تحمل الخطأ

حدد CASE ERR

Case 424 Response.write "المسار" غير موجود أو لا يتم كتابة الدليل في أذونات. "

حالة أخرى استجابة. write err.descripting

'حالة أخرى استجابة. errmsg

نهاية الاختيار

نهاية الفرعية

'يتصل

'write2file "c: /dd.ini" ، "dd" ، true

'call kning2file ("c: /dd.ini" ، "dd" ، true)

يمكن إنشاء ملفات ، ولكن لا يمكن إنشاء دليل

٪>

setrss.asp

ما يلي هو جزء الرمز:

'reagerss.asp

<!-#include file = "write2file.asp"->

dimhrss ، أدخل

يتم استخدام = false 'لتحديد ما إذا كانت myrss تحصل على بيانات صالحة

حدد رأس rss.xml

myrss = "<؟ xml version =" "1.0" "chigoding =" gb2312 "" standalone = "" yes "" ""؟> <rss version = "" 2.0 " purl. "> <cannel> <title> webtitle </title> <link> sitehost </ink> <specord> webDescripting </speciver 9xiao.cn </copyright> <bubdate> pubdate </bustdate> "

"اقرأ البيانات <TEEM> <...>

حدد اتصال قاعدة البيانات مقدمًا

تعيين rs = server.createBject ("adodb.oldset")

sql = "حدد * من الجدول"

Rs.OOPEN SQL ، CONN ، 1 ، 1

إذا لم يكن rs.eof ثم

Enter = True 'لديه محتوى لإدراج RSS

افعل بينما لا rs.eof

myrss = myrss & "<tem> <title>" & rs ("title") و "</title> <uption>" & rs ("defuls") & "</uphort> <link> & rs (" "" "Link") & "</ink> <bubdate>" & rs ("PubDate") و "</pubDate> <Guid> rs ("yourcontent") و "]]> </description> <category>" & rs ("الفئة") و "</category> </item>" "" "" "

Rs.Movenext

حلقة

إنهاء إذا

Rs.close

تعيين روبية = لا شيء

نهاية RSS

يرجى استبدال المحتوى في حقلك الخاص بـ 'rs ("******")