求ASP如何编写下列的XML
时间:2006-12-26
来源:互联网
我想用ASP可以在线修改XML中的节点
可以修改img和url的值,怎么改
各位大侠帮帮忙
<?xml version="1.0" encoding="gb2312"?>
<swf>
<upload_date date="2006_12_01" alpha_num="0"></upload_date>
<banner img="flash/img/001.jpg">
<bannerlink posx="0" posy="0" scalex="2470" scaley="2170" url="http://www.163.com/"></bannerlink>
<bannerlink posx="247" posy="0" scalex="2470" scaley="2170" url="http://www.163.com/"></bannerlink>
</banner>
<banner img="flash/img/002.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/003.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/004.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/005.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/006.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/007.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/008.jpg" url="http://www.163.com/" target="_self"></banner>
</swf>
可以修改img和url的值,怎么改
各位大侠帮帮忙
<?xml version="1.0" encoding="gb2312"?>
<swf>
<upload_date date="2006_12_01" alpha_num="0"></upload_date>
<banner img="flash/img/001.jpg">
<bannerlink posx="0" posy="0" scalex="2470" scaley="2170" url="http://www.163.com/"></bannerlink>
<bannerlink posx="247" posy="0" scalex="2470" scaley="2170" url="http://www.163.com/"></bannerlink>
</banner>
<banner img="flash/img/002.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/003.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/004.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/005.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/006.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/007.jpg" url="http://www.163.com/" target="_self"></banner>
<banner img="flash/img/008.jpg" url="http://www.163.com/" target="_self"></banner>
</swf>
作者: babybo 发布时间: 2006-12-26
草草写了一个
<%
Dim XML,Root,Banner,URL,IMG,i,n
Dim IMG_Value,URL_Value,Idx,U_1,U_2
On Error Resume Next
Set XML = Server.CreateObject("Microsoft.XMLDOM")
XML.Async = False
XML.Load(Server.MapPath("flash.xml"))
Set Root = XML.documentElement
Set Banner = Root.SelectNodes("//banner")
If LCase(Request("Action")) = "modify" Then
IMG_Value = Request("img")
URL_Value = Request("url")
Idx = Request("idx")
If Idx=0 Then
Banner.Item(Idx).Attributes(0).value = IMG_Value
Banner.Item(Idx).ChildNodes.Item(0).Attributes(4).value=Request("u_1")
Banner.Item(Idx).ChildNodes.Item(1).Attributes(4).value=Request("u_2")
Else
Banner.Item(Idx).Attributes(0).Value = FixNull(IMG_Value)
Banner.Item(Idx).Attributes(1).Value = FixNull(URL_Value)
End If
XML.Save(Server.MapPath("flash.xml"))
Response.Redirect("?")
End If
Function FixNull(str)
If IsNull(str) Then
FixNull = ""
Else
FixNull = str
End If
End Function
%>
<form name="banner" method="post">
<%
For i = 0 To Banner.Length-1
If Banner.Item(i).hasChildNodes=True Then
%>
图片属性:<input type="text" name="img" value="<%=Banner.Item(i).Attributes(0).Value%>"/>
<%
For n = 0 To Banner.Item(i).ChildNodes.Length-1
%>
URL:<input type="text" name="url" value="<%=Banner.Item(i).ChildNodes.Item(n).Attributes(4).Value%>"/>
<%
Next
%><input type="button" name="modify" value="修 改" onclick="AlertNode(<%=i%>);"/>
<%
Response.write("<br/>")
Else
%>
图片属性:<input type="text" name="img" value="<%=Banner.Item(i).Attributes(0).Value%>"/>
URL:<input type="text" name="url" value="<%=Banner.Item(i).Attributes(1).Value%>"/>
<input type="button" name="modify" value="修 改" onclick="AlertNode(<%=i%>);"/>
<br/>
<%
End If
Next
If Err Then
Response.Write(Err.Description)
End If
%>
</form>
<script type="text/javascript">
function AlertNode(idx){
var fm = document.banner;
var img = fm.img[idx].value;
if(idx==0){
var u_1 = fm.url[idx].value;
var u_2 = fm.url[idx+1].value;
alert(u_2)
location.href="?action=modify&idx="+idx+"&img="+img+"&u_1="+u_1+"&u_2="+u_2
}else{
var url = fm.url[idx+2].value;
alert("action=modify&idx="+idx+"&img="+img+"&url="+url);
location.href="?action=modify&idx="+idx+"&img="+img+"&url="+url
}
}
<%
Dim XML,Root,Banner,URL,IMG,i,n
Dim IMG_Value,URL_Value,Idx,U_1,U_2
On Error Resume Next
Set XML = Server.CreateObject("Microsoft.XMLDOM")
XML.Async = False
XML.Load(Server.MapPath("flash.xml"))
Set Root = XML.documentElement
Set Banner = Root.SelectNodes("//banner")
If LCase(Request("Action")) = "modify" Then
IMG_Value = Request("img")
URL_Value = Request("url")
Idx = Request("idx")
If Idx=0 Then
Banner.Item(Idx).Attributes(0).value = IMG_Value
Banner.Item(Idx).ChildNodes.Item(0).Attributes(4).value=Request("u_1")
Banner.Item(Idx).ChildNodes.Item(1).Attributes(4).value=Request("u_2")
Else
Banner.Item(Idx).Attributes(0).Value = FixNull(IMG_Value)
Banner.Item(Idx).Attributes(1).Value = FixNull(URL_Value)
End If
XML.Save(Server.MapPath("flash.xml"))
Response.Redirect("?")
End If
Function FixNull(str)
If IsNull(str) Then
FixNull = ""
Else
FixNull = str
End If
End Function
%>
<form name="banner" method="post">
<%
For i = 0 To Banner.Length-1
If Banner.Item(i).hasChildNodes=True Then
%>
图片属性:<input type="text" name="img" value="<%=Banner.Item(i).Attributes(0).Value%>"/>
<%
For n = 0 To Banner.Item(i).ChildNodes.Length-1
%>
URL:<input type="text" name="url" value="<%=Banner.Item(i).ChildNodes.Item(n).Attributes(4).Value%>"/>
<%
Next
%><input type="button" name="modify" value="修 改" onclick="AlertNode(<%=i%>);"/>
<%
Response.write("<br/>")
Else
%>
图片属性:<input type="text" name="img" value="<%=Banner.Item(i).Attributes(0).Value%>"/>
URL:<input type="text" name="url" value="<%=Banner.Item(i).Attributes(1).Value%>"/>
<input type="button" name="modify" value="修 改" onclick="AlertNode(<%=i%>);"/>
<br/>
<%
End If
Next
If Err Then
Response.Write(Err.Description)
End If
%>
</form>
<script type="text/javascript">
function AlertNode(idx){
var fm = document.banner;
var img = fm.img[idx].value;
if(idx==0){
var u_1 = fm.url[idx].value;
var u_2 = fm.url[idx+1].value;
alert(u_2)
location.href="?action=modify&idx="+idx+"&img="+img+"&u_1="+u_1+"&u_2="+u_2
}else{
var url = fm.url[idx+2].value;
alert("action=modify&idx="+idx+"&img="+img+"&url="+url);
location.href="?action=modify&idx="+idx+"&img="+img+"&url="+url
}
}
作者: GO_Hell 发布时间: 2007-01-18
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28