ASP怎么读取XML文档中的值 50
我这个XML是从网上服务器返回给我的<head><Version>[String]</Version><MerCode>[String]</MerCode><MerNam...
我这个XML是从网上服务器返回给我的
<head>
<Version>[String]</Version>
<MerCode>[String]</MerCode>
<MerName>[String]</MerName>
<Account>[String]</Account>
<ReqDate>[String]</ReqDate>
<Signature>[String]</Signature>
</head>
<body>
<MerBillNo>[string]</ MerBillNo >
<Date>[string]</Date>
<Amount>[string]</Amount>
</body>
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'XmlDom.getElementsByTagName(...)(...)'
GetD =XmlDom.getElementsByTagName(key)(0).text ‘出错的这一行 展开
<head>
<Version>[String]</Version>
<MerCode>[String]</MerCode>
<MerName>[String]</MerName>
<Account>[String]</Account>
<ReqDate>[String]</ReqDate>
<Signature>[String]</Signature>
</head>
<body>
<MerBillNo>[string]</ MerBillNo >
<Date>[string]</Date>
<Amount>[string]</Amount>
</body>
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: 'XmlDom.getElementsByTagName(...)(...)'
GetD =XmlDom.getElementsByTagName(key)(0).text ‘出错的这一行 展开
1个回答
展开全部
<%
Class AppConfig
Dim XmlDom
Private Sub Class_Initialize()
Set XmlDom = Server.createobject("microsoft.xmldom")
XmlDom.load(Server.mappath("test.xml"))
End Sub
Private Sub Class_Terminate()
Set XmlDom = Nothing
End Sub
'读取指定节点值
Function GetD(key)
GetD =XmlDom.getElementsByTagName(key)(0).text
End Function
'编辑
Function SetD(key,val)
XmlDom.getElementsByTagName(key)(0).text = val
XmlDom.save(Server.mappath("test.xml"))
End Function
'增加
Function AddD(node,key,val)
Set newnode=XmlDom.getElementsByTagName(node)(0).appendchild(XmlDom.createelement(key))
newnode.text = val
Set newnode=Nothing
XmlDom.save(Server.mappath("test.xml"))
End Function
'删除
Function DelD(key)
On Error Resume Next
XmlDom.getElementsByTagName(key)(0).parentNode.removechild(XmlDom.getElementsByTagName(key)(0))
XmlDom.save(Server.mappath("test.xml"))
End Function
End Class
Set Config = new AppConfig
wn Config.GetD("Version")
wn Config.GetD("MerBillNo")
' 去掉相应的注释符,即可看到 [添加 / 编辑 / 删除] 节点的效果
'Call Config.AddD("Config","test","test") ' 添加节点
'Call Config.SetD("test","test2") ' 编辑节点
'Call Config.DelD("test") ' 删除节点
Sub wn(str)
Response.Write(str)&"<br />"&vbcrlf
End Sub
%>
可以用这个类，这个类包括了，添加编辑和删除，如果用不到，可以去掉相关的函数只保留读取。前提，XML需要加多一层，测试用ROOT来写，也可以是其它的命名。
<Root>
<head>
<Version>[String]</Version>
<MerCode>[String]</MerCode>
<MerName>[String]</MerName>
<Account>[String]</Account>
<ReqDate>[String]</ReqDate>
<Signature>[String]</Signature>
</head>
<body>
<MerBillNo>[string]</MerBillNo>
<Date>[string]</Date>
<Amount>[string]</Amount>
</body>
</Root>
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
