最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
遍历XML文档返回二维数组(ASP)(更新版)
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
<% on error resume next
'问题没处理
'xmlfile = "???.xml"
Set xml = Server.CreateObject("MSXML.DOMDocument")
xml.async = false
xml.load(xmlfile)
Public Function PrettyPrint(node,tabLevel)
on error resume next
If node.nodeName <> vbNullStrin And node.nodeName <> "#text" Then
PrettyPrint = PrettyPrint & tabLevel & "[sp2]0[sp2]" + node.nodeName + "[sp1]"
For Each i In node.Attributes
pstr = pstr + i.Name + "=" + i.Value + " "
Next
PrettyPrint = PrettyPrint & tabLevel & "[sp2]2[sp2]" + pstr + "[sp1]"
End If
If node.hasChildNodes Then
For Each childNode In node.childNodes
tabLevel=tabLevel+1
PrettyPrint = PrettyPrint + PrettyPrint(childNode, tabLevel)
Next
Else
PrettyPrint = PrettyPrint & tabLevel-1 & "[sp2]1[sp2]" + node.Text + "[sp1]"
End If
End Function
Public Function ShowXml(s)
on error resume next
ta = split(s,"[sp1]")
k = ubound(ta)-1
'response.write "sta(" &k &",2)
"
redim sta(k,2)
for i = 0 to k
ta2 = split(ta(i),"[sp2]")
cs1 = ta2(0)
cs2 = ta2(1)
cs3 = ta2(2)
'Response.write "sta(" & cs1 & "," & cs2 & ") = " & cs3 & "
"
sta(cs1,cs2) = cs3
Next
ShowXml = sta
End Function
-
下一个: ASP 函数语法速查表
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14