ASP怎么修改XML文件的内容?
发布网友
发布时间：2022-05-05 03:08
共1个回答
热心网友
时间：2022-05-30 05:27
首先建立一个模板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
