Question

高分求!用ASP 修改XML文件内容

shell.xml

<?xml version="1.0"?>
<shell>
<content_name>images_2/flash2/01.swf,images_2/flash2/02.swf,images_2/flash2/03.swf,images_2/flash2/04.swf,images_2/flash2/05.swf</content_name>
<path_name>1,2,3,4,5</path_name>
<flash_text>01||02||03||04||05||</flash_text>
</shell>

修改"images_2/flash2/01.swf,images_2/flash2/02.swf,images_2/flash2/03.swf,images_2/flash2/04.swf,images_2/flash2/05.swf"
这部分内容
要求有ACCESS数据库,有添加及删除FLASH动画的功能!
晕

Answer 1

楼主朋友你好: 这里是VB知道
呵呵,偶强项也是VB..只懂一点点asp,祝你顺利解决问题
你问问题可以去其它论坛问呀.这百度知道没有ASP专门的知道...如果你非要在百度知道里问那就去这里吧:百度知道 > 电脑/网络 > 其他编程语言(279406）
http://zhidao.baidu.com/browse/93
希望对你有用
用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

Answer 2

我是你老婆!我帮你解决了!