asp修改生成xml文件代码

因为网站幻灯片是flash读取xml里面的数据。但每次改xml文件太麻烦。我想在后台加一个页面，是一个编辑框，下面有个确认修改按钮，内容改好后直接点击按钮修改xml文件内... 因为网站幻灯片是flash读取xml里面的数据。但每次改xml文件太麻烦。我想在后台加一个页面，是一个编辑框，下面有个确认修改按钮，内容改好后直接点击按钮修改xml文件内容。这个asp页面的完整代码谁能直接给我。
生成的xml文件名为data.xml
目前内容为：
<?xml version="1.0"?>
<Banner
bannerWidth="640"
bannerHeight="270"

textSize="14"
textColor=""
textAreaWidth=""
textLineSpacing="0"
textLetterSpacing="-0.5"
textMarginLeft="12"
textMarginBottom="3"

transitionType="1"
transitionDelayTimeFixed="5"
transitionDelayTimePerWord=".5"
transitionSpeed="8"
transitionBlur="yes"
transitionRandomizeOrder="no"

showTimerClock="yes"
showBackButton="yes"
showNumberButtons="yes"
showNumberButtonsAlways="Yes"
showNumberButtonsHorizontal="yes"
showNumberButtonsAscending="yes"
autoPlay="yes">

<item image="flash/images/1.jpg" link="news-6-2909.html" textBlend="no"><![CDATA[]]></item>

<item image="flash/images/2.jpg" link="news-6-2909.html" textBlend="no"><![CDATA[]]></item>

<item image="flash/images/3.jpg" link="news-6-2895.html" textBlend="no"><![CDATA[]]></item>

<item image="flash/images/4.jpg" link="mien.html" textBlend="no"><![CDATA[]]></item>

</Banner> 展开
 我来答
4个回答
#热议# 不吃早饭真的会得胆结石吗？
186044
2010-04-27 · TA获得超过1966个赞
知道大有可为答主
回答量：848
采纳率：0%
帮助的人：1314万
我也去答题访问个人页
展开全部
<html>
<head>
</head>
<body>
<form method="post" name="form1" action="?act=m">
<%
xmlName = "data.xml" 'XML文件的文件名在这里修改

Set rootXML = server.CreateObject("MSXML.DOMDocument")
rootXML.load server.MapPath(xmlName)
Set root = rootXML.documentelement

'提交XML
if(request("act")="m") then
for i=0 to 21
root.attributes.item(i).value = request("r"&i)
next

for i=0 to 3
for j=0 to 2
root.childNodes.item(i).attributes.item(j).value = request("c"&i&j)
next
next

rootXML.Save(server.MapPath(xmlName))
response.write "修改成功！"
end if

'读取XML

response.write ("<table>")
response.write ("<tr><td align='right'>"&root.attributes.item(0).name&"=</td><td><input type='text' name='r0' value='"&root.attributes.item(0).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(1).name&"=</td><td><input type='text' name='r1' value='"&root.attributes.item(1).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(2).name&"=</td><td><input type='text' name='r2' value='"&root.attributes.item(2).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(3).name&"=</td><td><input type='text' name='r3' value='"&root.attributes.item(3).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(4).name&"=</td><td><input type='text' name='r4' value='"&root.attributes.item(4).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(5).name&"=</td><td><input type='text' name='r5' value='"&root.attributes.item(5).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(6).name&"=</td><td><input type='text' name='r6' value='"&root.attributes.item(6).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(7).name&"=</td><td><input type='text' name='r7' value='"&root.attributes.item(7).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(8).name&"=</td><td><input type='text' name='r8' value='"&root.attributes.item(8).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(9).name&"=</td><td><input type='text' name='r9' value='"&root.attributes.item(9).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(10).name&"=</td><td><input type='text' name='r10' value='"&root.attributes.item(10).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(11).name&"=</td><td><input type='text' name='r11' value='"&root.attributes.item(11).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(12).name&"=</td><td><input type='text' name='r12' value='"&root.attributes.item(12).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(13).name&"=</td><td><input type='text' name='r13' value='"&root.attributes.item(13).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(14).name&"=</td><td><input type='text' name='r14' value='"&root.attributes.item(14).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(15).name&"=</td><td><input type='text' name='r15' value='"&root.attributes.item(15).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(16).name&"=</td><td><input type='text' name='r16' value='"&root.attributes.item(16).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(17).name&"=</td><td><input type='text' name='r17' value='"&root.attributes.item(17).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(18).name&"=</td><td><input type='text' name='r18' value='"&root.attributes.item(18).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(19).name&"=</td><td><input type='text' name='r19' value='"&root.attributes.item(19).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(20).name&"=</td><td><input type='text' name='r20' value='"&root.attributes.item(20).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.attributes.item(21).name&"=</td><td><input type='text' name='r21' value='"&root.attributes.item(21).value&"'></td></tr>")

set text = root.childNodes.item(0)
response.write ("<tr><td colspan='2'>图片一：</td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(0).attributes.item(0).name&"=</td><td><input type='text' name='c00' value='"&root.childNodes.item(0).attributes.item(0).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(0).attributes.item(1).name&"=</td><td><input type='text' name='c01' value='"&root.childNodes.item(0).attributes.item(1).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(0).attributes.item(2).name&"=</td><td><input type='text' name='c02' value='"&root.childNodes.item(0).attributes.item(2).value&"'></td></tr>")

set text = root.childNodes.item(1)
response.write ("<tr><td colspan='2'>图片二：</td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(1).attributes.item(0).name&"=</td><td><input type='text' name='c10' value='"&root.childNodes.item(1).attributes.item(0).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(1).attributes.item(1).name&"=</td><td><input type='text' name='c11' value='"&root.childNodes.item(1).attributes.item(1).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(1).attributes.item(2).name&"=</td><td><input type='text' name='c12' value='"&root.childNodes.item(1).attributes.item(2).value&"'></td></tr>")

set text = root.childNodes.item(2)
response.write ("<tr><td colspan='2'>图片三：</td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(2).attributes.item(0).name&"=</td><td><input type='text' name='c20' value='"&root.childNodes.item(2).attributes.item(0).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(2).attributes.item(1).name&"=</td><td><input type='text' name='c21' value='"&root.childNodes.item(2).attributes.item(1).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(2).attributes.item(2).name&"=</td><td><input type='text' name='c22' value='"&root.childNodes.item(2).attributes.item(2).value&"'></td></tr>")

set text = root.childNodes.item(3)
response.write ("<tr><td colspan='2'>图片四：</td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(3).attributes.item(0).name&"=</td><td><input type='text' name='c30' value='"&root.childNodes.item(3).attributes.item(0).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(3).attributes.item(1).name&"=</td><td><input type='text' name='c31' value='"&root.childNodes.item(3).attributes.item(1).value&"'></td></tr>")
response.write ("<tr><td align='right'>"&root.childNodes.item(3).attributes.item(2).name&"=</td><td><input type='text' name='c32' value='"&root.childNodes.item(3).attributes.item(2).value&"'></td></tr>")

%>
<tr><td style="height:80px;" valign="bottom"></td><td><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr>
</table>
</form>
</body>
</html>
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
pal54188
2010-04-26 · 超过42用户采纳过TA的回答
知道小有建树答主
回答量：149
采纳率：22%
帮助的人：83.7万
我也去答题访问个人页
展开全部
用fso,给你个例子
<%
my_xml = "<?xml version=""1.0"" encoding=""utf-8""?>"
my_xml = my_xml &"<viewer interval=""4000"" isRandom=""1"">"
set rec=server.CreateObject("adodb.recordset")
sql="select top 5 * from information where info_lb=110 order by info_sort desc"
rec.open sql,conn_opera,1,1
if rec.eof=false then
do while rec.eof=false
my_xml = my_xml &"<item title=""  >> "&rec("info_title")&""" img="""&rec("info_tp_add")&""" url="""&rec("info_title_fu")&""" target=""_blank"" />"
rec.movenext
loop
end if
set rec=nothing
my_xml = my_xml &"</viewer>"
call create_file("/xml/viewerData.xml",my_xml)

sub create_file(file_name,filr_code)
dim objStream
Set objStream = Server.CreateObject("AD"&"ODB.S"&"tre"&"am")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = filr_code
.SaveToFile server.mappath(file_name),2
.Close
End With
Set objStream = Nothing
end sub
%>
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
他大姨
2010-04-26 · TA获得超过415个赞
知道小有建树答主
回答量：248
采纳率：50%
帮助的人：166万
我也去答题访问个人页
展开全部
asp还是asp.net?asp.net的话就简单了.
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
偶遇66偶遇
2010-04-26 · 超过11用户采纳过TA的回答
知道答主
回答量：54
采纳率：0%
帮助的人：0
我也去答题访问个人页
展开全部
http://tieba.baidu.com/f?kz=629381435
希望能帮到你，一个范例
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
收起 更多回答（2）
推荐律师服务： 若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

为你推荐：

下载百度知道APP，抢鲜体验
使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

京ICP证030173号-1   京网文【2023】1034-029号     ©2024Baidu  使用百度前必读 | 知道协议 | 企业推广

辅 助

模 式