موصى به: 20 أمثلة مفيدة للغاية في برمجة ASP (I) 1. كيفية استخدام ASP لتحديد المسار الفعلي الافتراضي لموقع الويب الخاص بك: استخدم طريقة mappath: <٪ = server.mappath () ٪> 2. الإجابة: استخدم طريقة كائن الطلب:
منذ بعض الوقت ، من أجل إضافة وظيفة اشتراك RSS ، كتبت رمز ASP الذي يولد ديناميكيًا. نظرًا لأن موقع الفيلم سيحصل عليه مباشرة. يتم تشفير التغذية RSS التي تم إنشاؤها بواسطة UTF-8 ، ويتم التحقق منها بواسطة feedvalidator.org ، وهي متوافقة مع RSS 2.0 و Atom.
كيفية الاستخدام: احفظ الكود التالي كـ rss.asp (تذكر أن يحفظه بتنسيق UTF-8) وقم بتحميله إلى دليل جذر موقع الويب. اسم المجال الخاص بك /rss.asp
العرض التوضيحي: http://www.366mv.cn
الكود كما يلي.
| <٪@language = vbscript codepage = 65001 ٪> <٪ Session.codepage = 65001 استجابة. Charset = UTF-8 '================================================= ================== ================================ "حقوق الطبع والنشر (C) 2005-2007 ، Sour Liu Liu Film and Television ([url] www.366mv.cn [/url]) جميع الحقوق محفوظة. '================================================= ================== ================================ 'الاسم: rss.asp 'الوصف: توليد ديناميكي تغذية RSS. '================================================= ================== ================================ ٪> <!-#include file = inc/conn.asp-> <؟ xml الإصدار = 1.0 الترميز = UTF-8؟ <إصدار RSS = 2.0 XMLNS: Atom = http: //www.w3.org/2005/atom> <٪ العنوان = Souliao Liu Film and Television'change باسمك استجابة. write <Chanly> & chr (13) Response.write <Atom: Link Href = http: //&maxz_2&/xml.asp rel = self type = application/rss xml/> & chr (13) Response.write <Title> أحدث مقاطع الفيديو المحدثة - واللقب & </title> & chr (13) Response.write <link> http: // & maxz_2 & </ink> & chr (13) Response.write <Description> & Title & - شاهد عشرة آلاف مقاطع فيديو عبر الإنترنت. أفلام مجانية ، أفلام عبر الإنترنت ، TVB ، الأعمال الدرامية اليابانية ، الدراما الكورية ، الرسوم المتحركة ، الخيال العلمي ، الرعب ، الرومانسية ، المسلسلات التلفزيونية ، الأفلام ، أفلام رأس السنة الجديدة ... </description> & chr (13) استجابة. write get_left (15،0) "عرض أول 15 مقاطع فيديو ، تم فرزها حسب تاريخ التحديث استجابة. write </channel> & chr (13) وظيفة Re (Str) إذا لم يكن isnull (str) ثم إعادة = استبدال (str ، & ، &) إعادة = استبدال (إعادة ، <، <) إعادة = استبدال (إعادة ،> ،>) إعادة = استبدال (Re ، '، & apos ؛) إعادة = استبدال (إعادة ،) إنهاء إذا وظيفة نهاية وظيفة get_left (n ، m) n = cint (n): m = cint (m) إذا كان m = 1 ثم mm = order بواسطة ZT_HITS DESC 'تم فرزها بالنقرات آخر mm = order بواسطة ZT_Date Desc 'تم فرزها حسب تاريخ التحديث إنهاء إذا SET RS1 = CONN.Execute (حدد TOP & N & ZT_ID ، ZT_NAME ، ZT_ZY ، ZT_DY ، ZT_TYPE ، ZT_DATE ، ZT_HITS ، ZT_CONTENT من ZT_DATA & MM) get_left_i = 0 افعل بينما لا Rs1.eof get_left_i = get_left_i 1 get_left = get_left & <eiter> & chr (13) get_left = get_left & <title> & re (rs1 (zt_name)) و </title> & chr (13) get_left = get_left & <link> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) و/& rs1 (ZT_ID) & </link> & chr (13) get_left = get_left & <description> <! > <p> من بطولة: & rs1 (zt_zy) & </p> <p> قطعة الأرض: & re (rs1 (zt_content)) و </p>]]> </description> & chr (13) get_left = get_left & <guid> http: // & maxz_2 &/& get_classenname (rs1 (zt_type)) و/& rs1 (ZT_ID) & </guid> & chr (13) get_left = get_left & <category> <! [cdata [& get_classname (rs1 (zt_type)) و]] get_left = get_left & <bubdate> & datetorfc822 (rs1 (ZT_Date)) و </pubDate> & chr (13) get_left = get_left & </item> & chr (13) إذا كان get_left_i> = n ثم الخروج rs1.movenext حلقة RS1.Close وظيفة نهاية دالة datetorfc822 (byval dtaval) قاتمة strcurlocale: strcurlocale = getLocale () setlocale (EN-GB) dtaval = cdate (dtaval) datetorfc822 = WeekdayName (أيام الأسبوع (dtaval) ، صواب) و ، و _ اليمين (0 واليوم (dtaval) ، 2) و & _ MonthName (الشهر (dtaval) ، صحيح) و & _ السنة (dtaval) & & _ اليمين (0 والساعة (dtaval) ، 2) و: & _ اليمين (0 والدقيقة (dtaval) ، 2) و: & _ اليمين (0 والثاني (dtaval) ، 2) و & _ 0800 setlocale (strcurlocale) وظيفة نهاية ٪> </rss> |
مشاركة: كيف يمكن لـ ASP الحصول على عنوان الصورة الأول في الرمز "قم بتعديل النمط مرة أخرى 'mode للكشف عن code'http: //www.knowsky.com/asp.asp'leixing html أو ubb'nopic لا يحتوي على وظيفة صورة (رمز ، leixing ، nopic) set regex = ne