رمز وظيفة تجميع RSS مصمم للموقع

<!-#تضمين ملف = "conn.asp"->

<٪

strurl = "http: //" & request.servervariables ("server_name") & _

اليسار (request.servervariables ("script_name") ، len (request.servervariables ("script_name")-len ("/rss.asp") // هو اسمك لاسم ملفك

SQL = "SELECT TOP 100 * من [اسم الجدول] بترتيب معرف DESC" // وفقًا للتعديل الفعلي ، فإن Top 100 هو أحدث 100 عنصر ، وقم بتعديله بنفسك ، وفي الوقت نفسه ، يمكنك إضافة شروط استعلام ، مثل حيث xxx = 1 ....

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

Rs.OOPEN SQL ، CONN ، 1،1

استجابة. contenttype = "text/xml"

Response.write "<؟

استجابة. write "<rss version =" "2.0" ""> "& vbcrlf

استجابة. write "<Chanly>"

Response.write "<title> xxx.com RSS Feed </itlem>"

Response.write "<link>" & strurl & "</ink>" & vbcrip

استجابة. write "<Nignal> ZH-CN </langert>" & vbcrlf

Response.write "<POPYRIGHT> خلاصة RSS لـ xxx.comcopyright>" & vbcrlf

بينما لا rs.eof

استجابة. write "<tem>" & vbcrlf

Response.write "<title> <! [" "" "

Response.write "<link>" & strurl & "/xxxx.asp؟ id =" & rs ("id") و "</ink>" & vblockff

Response.write "<Description> <! < /description> "& vbcrf

Response.write "<bubdate>" & return_rfc822_date (RS ("Time Field") ، "GMT") و "</pubDate>" & vbcrlfff

استجابة. write "</item>" & vbcrf

Rs.Movenext

ويند

استجابة. "</channel>" & vbcrlf

استجابة. write "</rss>" & vbcrlf

Rs.close

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

الوظيفة return_rfc822_date (Byval MyDate ، Byval Timezone)

Dim Myday ، mydays ، mymonth ، myyear

myhours الخافت ، myminutes ، myseconds

mydate = cdate (mydate)

myday = enweekdayname (mydate)

myDays = Right ("00" واليوم (mydate) ، 2)

mymonth = enmonthname (mydate)

myyear = سنة (mydate)

myHours = يمين ("00" & ساعة (mydate) ، 2)

myminutes = يمين ("00" ودقيقة (mydate) ، 2)

mySeconds = يمين ("00" والثاني (mydate) ، 2)

return_rfc822_date = myday & "،" & _

mydays و "" & _

mymonth & "& _

myyear و "" & _

Myhouse & ":" & _

myminutes & ":" & _

MySeconds و "" & _

"" "و Timezone

وظيفة نهاية

وظيفة enweekdayname (inputDate)

نتيجة قاتمة

حدد Case Weekday (InputDate ، 1)

الحالة 1: النتيجة = "الشمس"

الحالة 2: النتيجة = "الاثنين"

الحالة 3: النتيجة = "الثلاثاء"

الحالة 4: النتيجة = "الأربعاء"

الحالة 5: النتيجة = "Thu"

الحالة 6: النتيجة = "الجمعة"

الحالة 7: النتيجة = "SAT"

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

enweekdayname = النتيجة

وظيفة نهاية

وظيفة enmonthname (inputDate)

نتيجة قاتمة

حدد شهر الحالة (InputDate)

الحالة 1: النتيجة = "جان"

الحالة 2: النتيجة = "فبراير"

الحالة 3: النتيجة = "مار"

الحالة 4: النتيجة = "APR"

الحالة 5: النتيجة = "مايو"

الحالة 6: النتيجة = "يونيو"

الحالة 7: النتيجة = "يوليو"

الحالة 8: النتيجة = "أغسطس"

الحالة 9: النتيجة = "SEP"

الحالة 10: النتيجة = "أكتوبر"

الحالة 11: النتيجة = "نوفمبر"

الحالة 12: النتيجة = "ديسمبر"

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

enmonthname = النتيجة

وظيفة نهاية

٪>