รหัสฟังก์ชั่นการรวม RSS ที่ออกแบบมาสำหรับเว็บไซต์

<!-#รวม file = "conn.asp"->

-

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

ซ้าย (request.serverVariables ("script_name"), len (request.serverVariables ("script_name"))-len ("/rss.asp") // เป็นชื่อของคุณสำหรับชื่อไฟล์ของคุณ

SQL = "เลือก Top 100 * จาก [ชื่อตาราง] สั่งซื้อโดย ID DESC" // ตามการดัดแปลงจริง 100 อันดับแรกคือ 100 รายการล่าสุดแก้ไขด้วยตัวคุณเองและในเวลาเดียวกันคุณสามารถเพิ่มเงื่อนไขการสืบค้นเช่น โดยที่ xxx = 1 ....

ตั้งค่า rs = server.createObject ("adoDb.oldset"))

Rs.oopen SQL, Conn, 1,1

Response.contentType = "text/xml"

Response.write "<? xml version =" "1.0" "การเข้ารหัส =" GB2312 ""?> "& vbcrlf

Response.write "<rss version =" "2.0" ""> "& vbcrlf

Response.write "<vannel>" & vbcrf

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

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

Response.write "<language> zh-cn </danguage>" & vbcrlf

Response.write "<Pinyright> ฟีด RSS สำหรับ xxx.comcopyright>" & vbcrlf

ในขณะที่ไม่ใช่ Rs.EOF

Response.write "<em>" & vbcrlf

Response.write "<tite> <! [" "" & rs ("title") & "] >> </title>" & vbcrlf

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

Response.write "<คำอธิบาย> <! [" "" "" & rs ("ฟิลด์ธีม") & "<br />" & rs ("ฟิลด์เนื้อหา") & "<br /> <br />]>> < /คำอธิบาย> "& vbcrf

Response.write "<bubdate>" & return_rfc822_date (rs ("ฟิลด์เวลา"), "gmt") & "</bubdate>" & vbcrlfff

Response.write "</item>" & vbcrf

Rs.Movenext

ใช้

Response.write "</ channel>" & vbcrlf

Response.write "</rss>" & vbcrlf

Rs.close

ตั้งค่า rs = ไม่มีอะไร

ฟังก์ชั่น return_rfc822_date (byval mydate, เขตเวลา Byval)

Dim Myday, Mydays, Mymonth, Myyear

Dim Myhours, myminutes, myseconds

myDate = cdate (myDate)

myday = enweekdayName (myDate)

MyDays = Right ("00" & Day (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 & "" & _

"" "& เขตเวลา

ฟังก์ชันสิ้นสุด

ฟังก์ชั่น enweekdayName (inputDate)

ผลที่สลัว

เลือก Case Weekday (InputDate, 1)

กรณีที่ 1: result = "sun"

กรณีที่ 2: result = "mon"

กรณีที่ 3: result = "tue"

กรณีที่ 4: result = "Wed"

กรณีที่ 5: result = "thu"

กรณีที่ 6: result = "ศุกร์"

กรณีที่ 7: result = "sat"

สิ้นสุดเลือก

enweekdayName = ผลลัพธ์

ฟังก์ชันสิ้นสุด

ฟังก์ชัน EnmonthName (InputDate)

ผลที่สลัว

เลือก Case Month (InputDate)

กรณีที่ 1: result = "Jan"

กรณีที่ 2: result = "FEB"

กรณีที่ 3: result = "mar"

กรณีที่ 4: result = "APR"

กรณีที่ 5: ผลลัพธ์ = "พฤษภาคม"

กรณีที่ 6: result = "Jun"

กรณีที่ 7: ผลลัพธ์ = "ก.ค. "

กรณีที่ 8: result = "Aug"

กรณีที่ 9: result = "Sep"

กรณีที่ 10: result = "Oct"

กรณีที่ 11: result = "Nov"

กรณีที่ 12: ผลลัพธ์ = "ธ.ค. "

สิ้นสุดเลือก

enmonthName = ผลลัพธ์

ฟังก์ชันสิ้นสุด

-