Question

ASP怎么修改XML文件的内容?

我下载了一个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>
</data>

现在我想用ASP读取数据库里的MP3名称和路径来修改,增加,删除list.xml文件的内容.请问怎么写这个ASP文件?

Answer 1

用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