كيفية الاستخدام: احفظ الكود التالي كـ rss.asp (تذكر حفظه بتنسيق UTF-8) وقم بتحميله على دليل جذر موقع الويب. الباقي هو العثور على بوابة إرسال RSS لإرسال عنوان التغذية الخاص بك http: // اسم المجال الخاص بك/rss.asp
العرض التوضيحي: http://www.366mv.cn
الرمز كما يلي. يرجى تعديل المعلومات المقابلة وفقًا للتعليقات. آمل أن تتمكن من الاحتفاظ بمعلومات حقوق الطبع والنشر ^_ ^
نسخة الكود كما يلي:
<٪@language = "vbscript" codepage = "65001" ٪>
<٪
Session.codepage = 65001
استجابة. charset = "utf-8"
'============================================================================================================================
"حقوق الطبع والنشر (C) 2005-2007 ، Soy Liuyu Film and Television ([url] www.366mv.cn [/url]) allrights محفوظة.
'============================================================================================================================
'الاسم: rss.asp
الوصف: توليد ديناميكي RSSFEED.
'============================================================================================================================
٪>
<!-#includefile = inc/conn.asp-> <؟ xmlversion = "1.0" encoding = "utf-8"؟>
<rssversion = "2.0" xmlns: atom = "http://www.w3.org/2005/atom">
<٪
تم تغيير العنوان = "生杯典" إلى اسمك
استجابة. write "<Chanly>" & CHR (13)
Response.write "<atom: linkhref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" type = "" application/rss+xml "/>" & chr (13)
Response.write "<title> أحدث فيديو تم تحديثه-" & title & "</title>" & chr (13)
Response.write "<link> http: //" & maxz_2 & "</ink>" & chr (13)
Response.write "<Description>" & title & "-شاهد عشرة آلاف أفلام عبر الإنترنت. أفلام مجانية ، أفلام عبر الإنترنت ، TVB ، الدراما اليابانية ، الدراما الكورية ، الرسوم المتحركة ، الخيال العلمي ، الرعب ، الرومانسية ، المسلسلات التلفزيونية ، الأفلام ، أفلام السنة الجديدة ... </description>" & chr (13)
Response.writeget_left (15،0) "عرض أول 15 مقاطع فيديو ، تم فرزها حسب تاريخ التحديث
استجابة. "</channel>" & chr (13)
وظيفة (STR)
ifnotisnull (str) ثم
إعادة = استبدال (str ، "&" ، "&")
إعادة = استبدال (إعادة ، "<" ، "<")
إعادة = استبدال (إعادة ، ">" ، ">")
إعادة = استبدال (إعادة ، "" "،" ")
إعادة = استبدال (إعادة ، "" "" ، "" ")
Endif
الوظيفية
functionget_left (n ، m)
n = cint (n): m = cint (m)
IFM = 1th
mm = "orderbyzt_hitsdesc" مرتبة بالنقرات
آخر
mm = "orderbyzt_datedesc" مرتبة حسب تاريخ التحديث
Endif
setrs1 = conn.execute ("SelectTop" & n & "ZT_ID ، ZT_NAME ، ZT_ZE ، ZT_DY ، ZT_TYPE ، ZT_DATE ، ZT_HITS ، ZT_CONTENTFROMZT_DATA" & mm)
get_left_i = 0
dowhilenotrs1.eof