اليوم ، أريد أن أكتب سطحًا ديناميكيًا للموقع الجديد.
العيوب: نظرًا لأن وظيفة هذا الآخر لا تحدد تنسيق 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 ("******") "نهاية rss.xml myrss = myrss & "</channel> </rss>" " اكتب في RSS إذا أدخل = صحيح ثم write2file server.mappath ("rss.xml") ، myrss ، false ' إنهاء إذا ٪> |