วันนี้ฉันต้องการเขียนพื้นผิวใบไดนามิกสำหรับเว็บไซต์ใหม่
ข้อเสีย: เนื่องจากฟังก์ชั่นของคนอื่น ๆ นี้ไม่ได้กำหนดรูปแบบของ 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 เมื่อเกิดข้อผิดพลาดต่อไป ตั้งค่า 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 กรณีที่ 424 Response.write "เส้นทาง" ไม่พบเส้นทางหรือไม่ได้เขียนไดเรกทอรีลงในการอนุญาต กรณีอื่น Response.write err.descripting 'กรณีอื่น Response.write errmsg สิ้นสุดเลือก สิ้นสุดย่อย 'เรียก 'write2file "c: /dd.ini", "dd", จริง 'Call Writing2File ("C: /dd.ini", "dd", true) 'สามารถสร้างไฟล์ได้ แต่ไม่สามารถสร้างไดเรกทอรีได้ - |
setrss.asp
| ต่อไปนี้เป็นส่วนของรหัส: 'ผู้สร้าง <!-#รวมไฟล์ = "write2file.asp"-> Dim Myrss, Enter enter = false 'ใช้เพื่อตรวจสอบว่า MyRSS ได้รับข้อมูลที่ถูกต้อง 'กำหนดส่วนหัว rss.xml myrss = "<? xml version =" "1.0" "encoding =" gb2312 "" standalone = "" ใช่ "" "" " Purl. "> <cannel> <title> webtitle </title> <link> sitehost </link> <sention> webDescripting </คำอธิบาย> <eneral> Generator </ensomator> <dangure> zh-CN </aUnagey> <Polyright> 9xiao.cn </polright> <bubdate> Pubdate </bubdate> " 'อ่านข้อมูล <teem> <... > 'กำหนดการเชื่อมต่อฐานข้อมูลล่วงหน้า ตั้งค่า rs = server.createObject ("adoDb.oldset")) sql = "เลือก * จากตาราง" Rs.oopen SQL, Conn, 1, 1 ถ้าไม่ใช่ rs.eof แล้ว Enter = true 'มีเนื้อหาเพื่อแทรก RSS ทำในขณะที่ไม่ใช่ RS.EOF myrss = myrss & "<em> <title>" & rs ("title") & "</title> <dishing>" & rs ("ผู้แต่ง") & "</ผู้แต่ง> <link> & rs (" " "link") & "</link> <pubdate>" & rs ("pubdate") & "</bubdate> <uid>" & rs ("ลิงก์") & "</uid> <! [cdata [& cdata [& rs ("yourcontent") & "]> </คำอธิบาย> <category>" & rs ("หมวดหมู่") & "</category> </ition>" "" " Rs.Movenext วง สิ้นสุดถ้า Rs.close ตั้งค่า rs = ไม่มีอะไร 'rss สิ้นสุด โปรดแทนที่เนื้อหาในฟิลด์ของคุณเองใน 'rs ("******") 'สิ้นสุด rss.xml myrss = myrss & "</channel> </rss>" " 'เขียนลงใน RSS ถ้าป้อน = จริงแล้ว WRIDE2FILE SERVER.MAPPATH ("RSS.XML"), MYRSS, FALSE ' สิ้นสุดถ้า - |