UC知道ASP怎么修改XML文件的内容?
来源：百度知道 编辑：UC知道 时间：2024/05/15 17:35:50
我下载了一个MP3的flash播放器,这个flash文件调用了一个list.xml文件,这个xml文件存放了需要播放MP3的名称和路径.
这个xml文件的内容是:
<?xml version="1.0" encoding="GB2312"?>
<data>
<song>
<title>雨天－那一刻</title>
<name>雨天－那一刻.mp3</name>
</song>
<song>
<title>缘分五月</title>
<name>缘分五月.mp3</name>
</song>
<song>
<title>迷雾森林</title>
<name>3.mp3</name>
</song>
<song>
<title>寂静山林</title>
<name>4.mp3</name>
</song>
<song>
<title>巴格达的星星</title>
<name>5.mp3</name>
</song>
<song>
<title>清晨</title>
<name>6.mp3</name>
</song>
这个xml文件的内容是:
<?xml version="1.0" encoding="GB2312"?>
<data>
<song>
<title>雨天－那一刻</title>
<name>雨天－那一刻.mp3</name>
</song>
<song>
<title>缘分五月</title>
<name>缘分五月.mp3</name>
</song>
<song>
<title>迷雾森林</title>
<name>3.mp3</name>
</song>
<song>
<title>寂静山林</title>
<name>4.mp3</name>
</song>
<song>
<title>巴格达的星星</title>
<name>5.mp3</name>
</song>
<song>
<title>清晨</title>
<name>6.mp3</name>
</song>
用FSO操作！
首先建立一个模板xml_model.inc
<song>
<title>$Title$</title>
<name>$URL$</name>
</song>
读取数据库
Set Rs=Server.CreateObject("adodb.recordset")
Rs.open("Select * from [Table]"),conn,1,1
if Rs.eof or Rs.bof then
Response.write("没有数据")
else
Dim XML,NewXML,FSO,MyFile
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set MyFile=Fso.OpenTextFile(Server.MapPath("xml_model.inc"), 1)
XML=MyFile.readAll
Do while Not(Rs.eof or Rs.bof)
NewXML=NewXML&Replace(XML,"$Title$","&Rs("title")&")
NewXML=Replace(NewXML,"$URL$","&Rs("url")&")
Rs.movenext
Loop
Fso.writeLine(NewXML)
……
end if