วิธีใช้: บันทึกรหัสต่อไปนี้เป็น rss.asp (อย่าลืมบันทึกในรูปแบบ UTF-8) และอัปโหลดไปยังไดเรกทอรีรูทเว็บไซต์ ส่วนที่เหลือคือการค้นหาพอร์ทัลการส่ง RSS เพื่อส่งที่อยู่ฟีดของคุณ http: // ชื่อโดเมนของคุณ/rss.asp
ตัวอย่าง: http://www.366mv.cn
รหัสมีดังนี้ โปรดแก้ไขข้อมูลที่เกี่ยวข้องตามความคิดเห็น ฉันหวังว่าคุณจะสามารถเก็บข้อมูลลิขสิทธิ์ไว้ ^_ ^
การคัดลอกรหัสมีดังนี้:
<%@language = "vbscript" codePage = "65001"%>
-
session.codepage = 65001
Response.charset = "UTF-8"
-
'Copyright (C) 2005-2007, Film and Television ถั่วเหลือง ([url] www.366mv.cn [/url]) Allrights สงวนไว้
-
'ชื่อ: rss.asp
'คำอธิบาย: สร้าง RSSFEED แบบไดนามิก
-
-
<!-#includefile = inc/conn.asp-> <? xmlversion = "1.0" encoding = "utf-8"?>?>
<rssversion = "2.0" xmlns: atom = "http://www.w3.org/2005/atom">
-
title = "生杯典" 'เปลี่ยนเป็นชื่อของคุณเอง
Response.write "<vannel>" & Chr (13)
Response.write "<atom: linkhref =" "http: //" & maxz_2 & "/xml.asp" "rel =" "self" "type =" "แอปพลิเคชัน/rss+xml" "/>" & Chr (13)
Response.write "<tite> วิดีโอที่อัปเดตล่าสุด-" & title & "</title>" & Chr (13)
Response.write "<link> http: //" & maxz_2 & "</link>" & Chr (13)
Response.write "<scription>" & title & "-ดูหนังหมื่นภาพยนตร์ออนไลน์ภาพยนตร์ฟรีภาพยนตร์ออนไลน์, TVB, ละครญี่ปุ่น, ละครเกาหลี, แอนิเมชั่น, นิยายวิทยาศาสตร์, สยองขวัญ, โรแมนติก, ทีวีซีรีส์, ภาพยนตร์เรื่องบัสเตอร์, ภาพยนตร์ปีใหม่ ...
response.writeget_left (15,0) 'แสดงวิดีโอ 15 รายการแรกเรียงตามวันที่อัปเดต
Response.write "</channel>" & Chr (13)
ฟังก์ชั่น (str)
ifnotisnull (str) จากนั้น
Re = แทนที่ (str, "&", "&")
Re = แทนที่ (re, "<", "<")
Re = แทนที่ (re, ">", ">")
Re = แทนที่ (re, "'", "'")
Re = แทนที่ (re, "" "," "")
endif
endfunction
functionget_left (n, m)
n = cint (n): m = cint (m)
IFM = 1 จากนั้น
mm = "orderbyzt_hitsdesc" 'เรียงลำดับโดยคลิก
อื่น
mm = "orderbyzt_datedesc" จัดเรียงตามวันที่อัปเดต
endif
setrs1 = conn.execute ("selecttop" & n & "zt_id, zt_name, zt_zy, zt_dy, zt_type, zt_date, zt_hits, zt_contentfromzt_data" & mm)
get_left_i = 0
dowhilenotrs1.eof