إن إنشاء تجميع RSS وXML يهدف بشكل أساسي إلى تسهيل الاشتراك والسماح للمستخدمين بمعرفة تحديثات موقع الويب الخاص بك بسرعة. تنسيق rss.asp
يتم حفظ التعليمة البرمجية التالية كـ rss.asp
انسخ رمز الكود كما يلي:
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(server_name) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp هو اسم الملف الخاص بك
sql=select top 100 * from [table name] order by id desc // وفقًا لتعديلك الفعلي، أعلى 100 هو آخر 100، قم بتعديله بنفسك، ويمكنك إضافة شروط استعلام، مثل حيث xxx=1... .
تعيين rs=server.createobject(adodb.recordset)
rs.open SQL، كون، 1،1
Response.contenttype=text/xml
Response.write <?xml version=1.0 encoding=gb2312 ?> & vbcrlf
Response.write <rss version=2.0> & vbcrlf
Response.write <channel> & vbcrlf
Response.write <title>خلاصة RSS لـxxx.com</title> وvbcrlf
Response.write <link> & strURL & </link> & vbcrlf
Response.write <language>zh-cn</language> & vbcrlf
Response.write <copyright>خلاصة RSS لـ xxx.comcopyright> وvbcrlf
في حين لا rs.eof
Response.write <item> & vbcrlf
Response.write <title><![CDATA[ & rs(title) & ]]></title> & vbcrlf
Response.write <link>&strURL/xxxx.asp?Id=&rs(id)</link> & vbcrlf
Response.write <description><![CDATA[ & rs(حقل الموضوع) & <br /> & rs(حقل المحتوى) & <br /><br />]]></description> & vbcrlf
Response.write <pubDate> & return_RFC822_Date(rs(time field),GMT) & </pubDate> & vbcrlf
Response.write </item> & vbcrlf
rs.movenext
com.wind
Response.write </channel> & vbcrlf
استجابة.كتابة </rss> & vbcrlf
rs. Close
تعيين RS=لا شيء
وظيفة return_RFC822_Date(byVal myDate, byVal TimeZone)
خافت myDay، myDays، myMonth، myYear
تعتيم ساعاتي، دقائقي، ثواني
تاريخي = CDate(تاريخي)
myDay = EnWeekDayName(myDate)
myDays = Right(00 & Day(myDate),2)
myMonth = EnMonthName(myDate)
myYear = السنة (myDate)
myHours = Right(00 & Hour(myDate),2)
myMinutes = اليمين(00 والدقيقة(myDate)،2)
mySeconds = اليمين (00 والثانية (myDate)، 2)
return_RFC822_Date = myDay، & _
أيامي & _
شهري&_
السنة&_
ساعاتي:& _
دقائقي:& _
ثواني & _
والمنطقة الزمنية
وظيفة النهاية
الدالة EnWeekDayName(InputDate)
نتيجة خافتة
حدد حالة WeekDay(InputDate,1)
الحالة 1: النتيجة = الشمس
الحالة 2: النتيجة = الاثنين
الحالة 3: النتيجة = الثلاثاء
الحالة 4: النتيجة = الأربعاء
الحالة 5: النتيجة = الخميس
الحالة 6: النتيجة = الجمعة
الحالة 7: النتيجة = السبت
إنهاء التحديد
EnWeekDayName = النتيجة
وظيفة النهاية
الدالة EnMonthName(InputDate)
نتيجة خافتة
حدد شهر الحالة (تاريخ الإدخال)
الحالة 1: النتيجة = يناير
الحالة 2: النتيجة = فبراير
الحالة 3: النتيجة = مارس
الحالة 4: النتيجة = أبريل
الحالة 5: النتيجة = مايو
الحالة 6: النتيجة = يونيو
الحالة 7: النتيجة = يوليو
الحالة 8: النتيجة = أغسطس
الحالة 9: النتيجة = سبتمبر
الحالة 10: النتيجة = أكتوبر
الحالة 11: النتيجة = نوفمبر
الحالة 12: النتيجة = ديسمبر
إنهاء التحديد
EnMonthName = النتيجة
وظيفة النهاية
%>
بصيغة rss.xml
انسخ رمز الكود كما يلي:
<!--#include file=conn.asp-->
<%
strURL = http:// & request.servervariables(SERVER_NAME) & _
اليسار (request.servervariables(SCRIPT_NAME)،len(request.servervariables(SCRIPT_NAME))-len(/rss.asp))
ديم فولكات، شبيبة
مجموعة js = server.CreateObject(ADODB.RecordSet)
sql = حدد * من [اسم الجدول] بالترتيب حسب المعرف تصاعديًا
مجموعة js = conn.execute (sql)
فولكات = فولكات + <?xml version=1.0 encoding=UTF-8 ?>
فولكات = فولكات + <rss version=2.0>
فولكات = فولكات + <قناة>
Foolcat = Foolcat + <title>خلاصة XML لـ xxx.com</title>
فولكات = فولكات + <link> & strURL & </link>
فولكات = فولكات + <language>zh-cn</language>
Foolcat = Foolcat + <copyright>خلاصة XML لـ xxx.com</copyright>
افعل حتى js.eof
فولكات = فولكات + <العنصر>
فولكات = فولكات + <title><![CDATA[ & rs(حقل الموضوع) & ]]></title>
فولكات = فولكات + <وصف><![CDATA[ & rs(حقل الموضوع) & <br /> & rs(حقل المحتوى) & <br /><br />]]></description>
فولكات = فولكات + <link> & strURL & /xxx.asp?Id=&rs(حقل المعرف)</link>
Foolcat = Foolcat + <pubDate> & rs(حقل الوقت) & </pubDate>
فولكات = فولكات + </item>
js.movenext
حلقة
js.إغلاق
تعيين شبيبة = لا شيء
فولكات = فولكات + </channel>
فولكات = فولكات + </rss>
المغفل = + المغفل +
مغفل = & مغفل &
FolderPath = Server.MapPath(/)
تعيين fso = Server.CreateObject(Scripting.FileSystemObject)
تعيين fout = fso.CreateTextFile(FolderPath/rss.xml)
fout.writeLine foolcat
fout. Close
تعيين fout = لا شيء
conn. Close
مجموعة كون = لا شيء
%>