ใช้ asp เพื่อสร้างไฟล์ xml ในตอนแรกฉันใช้ fso ซึ่งใช้เฉพาะการเขียนเท่านั้น ในขณะเดียวกันฉันก็ให้วิธีการอ่านไฟล์แก่คุณด้วย
ASP สืบค้น XML ตามปัญหาคำหลัก
'------------------------------------------------ - ----
'อ่านไฟล์ReadTxtFile(ชื่อไฟล์)
'------------------------------------------------ - ----
ฟังก์ชั่น ReadTxtFile (ชื่อไฟล์)
หรี่ fso,f1,ts,FilePath
FilePath=server.mappath(ชื่อไฟล์)
ตั้งค่า fso = CreateObject (Scripting.FileSystemObject)
ตั้งค่า ts = fso.OpenTextFile(FilePath,1,1)
ReadTxtFile = ts.ReadAll
การตั้งค่า = ไม่มีอะไร
ตั้งค่า fso=nothing
สิ้นสุดฟังก์ชัน
'------------------------------------------------ - ---------
'เขียนข้อมูลลงไฟล์
'------------------------------------------------ - ---------
ฟังก์ชั่น WriteTxtFile (ข้อความ, ชื่อไฟล์)
เส้นทาง = Server.MapPath (ชื่อไฟล์)
ตั้งค่า fso = CreateObject (Scripting.FileSystemObject)
ตั้งค่า f1 = fso.CreateTextFile(path,true)
f1.เขียน(ข้อความ)
f1.ปิด
สิ้นสุดฟังก์ชัน
'------------------------------------------------ - ---------
'สร้างไฟล์ xml
'------------------------------------------------ - ---------
msg = <?xml version=1.0 การเข้ารหัส=utf-8?>
msg=msg & <bcaster>
msg=msg & <รายการ item_url=http://www.vevb.com itemtitle=Script หน้าแรก/>
msg=msg & </bcaster>
เรียก WriteTxtFile(msg,x1.xml)
fso จะถูกเข้ารหัส ASCII ตามค่าเริ่มต้น เนื่องจากต้องใช้การเข้ารหัส utf-8 ให้ใช้ ado.stream เพื่อเขียนไฟล์นี้ รหัสจึงเป็นดังนี้:
สร้างไฟล์ย่อย (ข้อความ, ชื่อไฟล์)
ถนนติ่มซำ
ตั้งค่า st=Server.CreateObject(ADODB.Stream)
st.ประเภท=2
st.Mode=3
st.Charset=utf-8
st.เปิด()
st.WriteText ข้อความ
st.SaveToFile Server.MapPath(ชื่อไฟล์),2
st.ปิด()
ตั้ง st=ไม่มีอะไร
จบหมวดย่อย
msg = <?xml version=1.0 การเข้ารหัส=utf-8?>
msg=msg & <bcaster>
msg=msg & <รายการ item_url=http://www.vevb.com itemtitle=Script หน้าแรก/>
msg=msg & </bcaster>
เรียก CreateFile(msg,x1.xml)