การสร้างการรวม RSS และ XML นั้นมีไว้เพื่ออำนวยความสะดวกในการสมัครรับข้อมูลเป็นหลัก และแจ้งให้ผู้ใช้ทราบถึงการอัปเดตเว็บไซต์ของคุณอย่างรวดเร็ว รูปแบบ rss.asp
รหัสต่อไปนี้ถูกบันทึกเป็น rss.asp
คัดลอกรหัสรหัสดังต่อไปนี้:
<!--#include file=conn.asp-->
-
strURL = http:// & request.servervariables(server_name) & _
left(request.servervariables(script_name),len(request.servervariables(SCRIPT_NAME))-len(/rss.asp)) ///rss.asp คือชื่อไฟล์ของคุณ
sql=select top 100 * จาก [ชื่อตาราง] เรียงลำดับตาม id desc //ตามการแก้ไขจริงของคุณ 100 อันดับแรกคือ 100 ล่าสุด แก้ไขด้วยตัวเอง และคุณสามารถเพิ่มเงื่อนไขการสืบค้นได้ เช่น โดยที่ xxx=1... .
ตั้งค่า rs=server.createobject (adodb.recordset)
rs.open sql,conn,1,1
response.contenttype=ข้อความ/xml
response.write <?xml version=1.0 encoding=gb2312 ?> & vbcrlf
response.write <rss version=2.0> & vbcrlf
response.write <ช่อง> & vbcrlf
response.write <title>xxx.com ฟีด RSS</title> & vbcrlf
response.write <link> & strURL & </link> & vbcrlf
response.write <ภาษา>zh-cn</ภาษา> & vbcrlf
response.write <copyright>ฟีด RSS สำหรับ xxx.comcopyright> & vbcrlf
ในขณะที่ไม่ใช่ rs.eof
response.write <รายการ> & vbcrlf
response.write <title><![CDATA[ & rs(title) & ]]></title> & vbcrlf
response.write <link>&strURL/xxxx.asp?Id=&rs(id)</link> & vbcrlf
response.write <คำอธิบาย><![CDATA[ & rs (ฟิลด์หัวเรื่อง) & <br /> & rs (ฟิลด์เนื้อหา) & <br /><br />]]></description> & vbcrlf
response.write <pubDate> & return_RFC822_Date (rs (ฟิลด์เวลา), GMT) & </pubDate> & vbcrlf
response.write </item> & vbcrlf
rs.movenext
เวน
response.write </channel> & vbcrlf
response.write </rss> & vbcrlf
RS.ปิด
ตั้งค่า rs=nothing
ฟังก์ชัน return_RFC822_Date (byVal myDate, byVal TimeZone)
หรี่ myDay, myDays, myMonth, myYear
หรี่ myHours, myMinutes, mySeconds
myDate = CDate (myDate)
myDay = EnWeekDayName(myDate)
myDays = ขวา(00 & วัน (myDate),2)
myMonth = ชื่อเดือน(myDate)
myYear = ปี(myDate)
myHours = ขวา(00 & ชั่วโมง(myDate),2)
myMinutes = ขวา(00 & นาที(myDate),2)
mySeconds = ขวา(00 และวินาที (myDate),2)
return_RFC822_Date = วันของฉัน, & _
วันของฉัน & _
เดือนของฉัน&_
ปีของฉัน&_
ชั่วโมงของฉัน:& _
นาทีของฉัน:& _
วินาทีของฉัน & _
& เขตเวลา
ฟังก์ชันสิ้นสุด
ฟังก์ชัน EnWeekDayName(InputDate)
ผลลัพธ์สลัว
เลือกกรณี WeekDay(InputDate,1)
กรณีที่ 1:ผลลัพธ์=วันอาทิตย์
กรณีที่ 2:ผลลัพธ์=จันทร์
กรณีที่ 3:ผลลัพธ์=อังคาร
กรณีที่ 4:ผลลัพธ์=พุธ
กรณีที่ 5:ผลลัพธ์=พฤหัสบดี
กรณีที่ 6:ผลลัพธ์=ศุกร์
กรณีที่ 7:ผลลัพธ์=วันเสาร์
สิ้นสุดการเลือก
EnWeekDayName = ผลลัพธ์
ฟังก์ชันสิ้นสุด
ฟังก์ชัน EnMonthName(InputDate)
ผลลัพธ์สลัว
เลือกเดือนของกรณี(InputDate)
กรณีที่ 1:ผลลัพธ์=มกราคม
กรณีที่ 2:ผลลัพธ์=กุมภาพันธ์
กรณีที่ 3:ผลลัพธ์=มี.ค
กรณีที่ 4:ผลลัพธ์=เม.ย
กรณีที่ 5:ผลลัพธ์=เดือนพฤษภาคม
กรณีที่ 6:ผลลัพธ์=มิ.ย
กรณีที่ 7:ผลลัพธ์=ก.ค
กรณีที่ 8:ผลลัพธ์=ส.ค
กรณีที่ 9:ผลลัพธ์=ก.ย
กรณีที่ 10:ผลลัพธ์=ต.ค
กรณีที่ 11:ผลลัพธ์=พ.ย
กรณีที่ 12:ผลลัพธ์=ธันวาคม
สิ้นสุดการเลือก
ชื่อเดือน = ผลลัพธ์
ฟังก์ชันสิ้นสุด
-
รูปแบบ rss.xml
คัดลอกรหัสรหัสดังต่อไปนี้:
<!--#include file=conn.asp-->
-
strURL = http:// & คำขอเซิร์ฟเวอร์ตัวแปร (SERVER_NAME) & _
ซ้าย (request.servervariables (SCRIPT_NAME), len (request.servervariables (SCRIPT_NAME)) -len (/rss.asp))
โง่โง่ js
ตั้ง js = เซิร์ฟเวอร์ CreateObject (ADODB.RecordSet)
sql = เลือก * จาก [ชื่อตาราง] เรียงลำดับตาม id asc
ตั้งค่า js = conn.execute (sql)
Foolcat = Foolcat + <?xml version=1.0 การเข้ารหัส=UTF-8 ?>
คนโง่ = คนโง่ + <rss version=2.0>
หลอกแมว = หลอกแมว + <ช่อง>
Foolcat = Foolcat + <title>xxx.com ฟีด XML</title>
โง่ = โง่ + <ลิงก์> & strURL & </ลิงก์>
โง่ = โง่ + <ภาษา>zh-cn</ภาษา>
Foolcat = Foolcat + <copyright>ฟีด XML สำหรับ xxx.com</copyright>
ทำจนถึง js.eof
หลอกแมว = หลอกแมว + <ไอเท็ม>
Foolcat = Foolcat + <title><![CDATA[ & rs(ช่องหัวเรื่อง) & ]]></title>
โง่ = โง่ + <คำอธิบาย><![CDATA[ & rs (ฟิลด์หัวเรื่อง) & <br /> & rs (ฟิลด์เนื้อหา) & <br /><br />]]></description>
Foolcat = Foolcat + <link> & strURL & /xxx.asp?Id=&rs(ฟิลด์ id)</link>
โง่ = โง่ + <pubDate> & rs (ฟิลด์เวลา) & </pubDate>
หลอกแมว = หลอกแมว + </รายการ>
js.movenext
วนซ้ำ
js.ปิด
ตั้งค่า js = ไม่มีเลย
หลอกแมว = หลอกแมว + </ช่อง>
หลอกแมว = หลอกแมว + </rss>
หลอกแมว = + หลอกแมว +
หลอกแมว = & หลอกแมว &
FolderPath = Server.MapPath(/)
ตั้งค่า fso = Server.CreateObject (Scripting.FileSystemObject)
ตั้ง fout = fso.CreateTextFile(FolderPath/rss.xml)
fout.writeLine หลอกแมว
fout.ปิด
ตั้งค่า fout = ไม่มีอะไร
เชื่อมต่อปิด
ตั้งค่า conn = ไม่มีอะไร
-