• 欢迎访问搞代码网站，推荐使用最新版火狐浏览器和Chrome浏览器访问本网站！
  • 如果您觉得本站非常有看点，那么赶紧使用Ctrl+D 收藏搞代码吧
> 前端 > xml > Dom遍历XML的一个例子,结果为树状结构_xml

Dom遍历XML的一个例子,结果为树状结构_xml

xml 搞代码 7年前 (2018-06-15) 130次浏览 已收录 0个评论

knowledge.xml文件
[复制此代码]CODE:<?xml version=”1.0″ encoding=”gb2312″?> 
<?xml:stylesheet type=”text/xsl” href=”knowledge.xsl”?> 
<Ebaihe name=”Ebaihe” type=”gs” id=”gs000″> 
<知识管理 name=”知识管理” type=”rt” id=”rt000″> 
  <目录 name=”vc++” type=”ml” id=”ml003″/> 

http://www.gaodaima.com/33881.htmlDom遍历XML的一个例子,结果为树状结构_xml

  <目录 name=”asp” type=”ml” id=”ml001″> 
     <知识 name=”什么是ASP 1″ type=”zs” id=”zs001″> 
        <title>什么是ASP</title> 
        <author>cxx</author> 
        <adddate>2001-02-20</adddate> 
        <content>ASP:Active Server Page</content> 
     </知识> 
     <知识 name=”什么是ASP 2″ type=”zs” id=”zs002″> 
        <title>什么是ASP</title> 
        <author>cxx</author> 
        <adddate>2001-02-20</adddate> 
        <content>ASP:Active Server Page</content> 
     </知识> 
  </目录> 
  <目录 name=”vbs” type=”ml” id=”ml002″> 
     <知识 name=”什么是vbs 1″ type=”zs” id=”zs003″> 
        <title>什么是ASP</title> 
        <author>cxx</author> 
        <adddate>2001-02-20</adddate> 
        <content>ASP:Active Server Page</content> 
     </知识> 
     <知识 name=”什么是vbs 2″ type=”zs” id=”zs004″> 
        <title>什么是ASP</title> 
        <author>cxx</author> 
        <adddate>2001-02-20</adddate> 
        <content>ASP:Active Server Page</content> 
     </知识> 
  </目录> 
</知识管理> 
<留言簿 name=”留言簿” type=”ly” id=”ly000″> 
  <单元 name=”你好” type=”dy” id=”dy001″> 
     <留言 name=”Who are you” type=”zs” id=”zs005″> 
        <title>什么是ASP</title> 
        <author>cxx</author> 
        <adddate>2001-02-20</adddate> 
        <content>ASP:Active Server Page</content> 
     </留言> 
     <留言 name=”你好” type=”zs” id=”zs006″> 
        <title>什么是ASP</title> 
        <author>cxx</author> 
        <adddate>2001-02-20</adddate> 
        <content>ASP:Active Server Page</content> 
     </留言> 
  </单元> 
  <单元 name=”我的留言” type=”dy” id=”dy003″/> 
</留言簿> 
<留言簿 name=”留言簿” type=”ly” id=”ly001″/> 
</Ebaihe>
bianli.asp文件

[复制此代码]CODE:<% @LANGUAGE=VBScript%> 
<% 
function getimgstr(ttid,ttname,ttlvl,tttype,ttlf,ttlstr) 
   dim ttstr1 
   if ttlvl=0 then 
         ttstr1=ttstr1 & “<a href=” & chr(34) & “#” & chr(34)  
         ttstr1=ttstr1 & ” call OnClickDiv(‘” & ttid & “‘,'” & “2” & “‘)”  
         ttstr1=ttstr1 & chr(34) & “>”  
         ttstr1= ttstr1 & “<img border=” & chr(34) & “0” & chr(34) & ” src=” & chr(34)  
         ttstr1= ttstr1 & “image/Computer.gif” & chr(34) & ” height=16>” & “</a>” 
         ttstr1=ttstr1 & “<a href=” & chr(34) & “#” & chr(34)  
         ttstr1=ttstr1 & ” call OnClickDiv(‘” & ttid & “‘,'” & “2” & “‘)” 
         ttstr1=ttstr1 & chr(34) & “>”  
         ttstr1=ttstr1 & ttname & “</a><br>” & vbcrlf 
         ttstr1=ttstr1 & “<div id=” & chr(34) & ttid & chr(34) & ” style=display:none>” & vbcrlf 
   else 
      for i= 2 to len(ttlstr)-1 
         if mid(ttlstr,i,1)=”1″ then 
            ttstr1 = ttstr1 & “<img border=” & chr(34) & “0” & chr(34) & ” src=” & chr(34)  
            ttstr1 = ttstr1 & “image/I-line.gif” & chr(34) & ” height=16>” 
         end if 
         if mid(ttlstr,i,1)=”0″ then 
            ttstr1 = ttstr1 & “<img border=” & chr(34) & “0” & chr(34) & ” src=” & chr(34)  
            ttstr1 = ttstr1 & “image/none.gif” & chr(34) & ” height=16>” 
         end if 
      next 
      if tttype=1 then 
         ttstr1= ttstr1 & “<a href=” & chr(34) & “#” & chr(34)  
         ttstr1=ttstr1 & ” call OnClickDiv(‘” & ttid & “‘,'” & ttlf & “‘)” 
         ttstr1=ttstr1 & chr(34) & “>”  
         ttstr1=ttstr1 & “<img border=” & chr(34) & “0” & chr(34) & ” src=” & chr(34)  
         if ttlf=0 then 
            ttstr1= ttstr1 & “http://www.pushad.com/Info/image/t-plus.gif&#8221; & chr(34) & ” id=” & chr(34) & “l-” & ttid & chr(34) & ”  
height=16></a>” 
         else 
            ttstr1= ttstr1 & “http://www.pushad.com/Info/image/l-plus.gif&#8221; & chr(34) & ” id=” & chr(34) & “l-” & ttid & chr(34) & ”  
height=16></a>” 
         end if 
         ttstr1= ttstr1 & “<a href=” & chr(34) & “#” & chr(34)  
         ttstr1=ttstr1 & ” call OnClickDiv(‘” & ttid & “‘,'” & ttlf & “‘)” 
         ttstr1=ttstr1 & chr(34) & “>”  
         ttstr1=ttstr1 & “<img border=” & chr(34) & “0” & chr(34) & ” src=” & chr(34)  
         ttstr1= ttstr1 & “http://www.pushad.com/Info/image/c-fold.bmp&#8221; & chr(34) & ” id=” & chr(34) & “p-” & ttid & chr(34) & ”  
height=16></a>” 
         ttstr1= ttstr1 & “<a href=” & chr(34) & “#” & chr(34)  
         ttstr1=ttstr1 & ” call OnClickDiv(‘” & ttid & “‘,'” & ttlf & “‘)” 
         ttstr1=ttstr1 & chr(34) & “>”  
         ttstr1=ttstr1 & ttname & “</a><br>” & vbcrlf 
         ttstr1=ttstr1 & “<div id=” & chr(34) & ttid & chr(34) & ” style=display:none>” & vbcrlf 
      else 
         ttstr1 = ttstr1 & “<img border=” & chr(34) & “0” & chr(34) & ” src=” & chr(34)  
         if ttlf=0 then 
            ttstr1 = ttstr1 & “image/t-line.gif” & chr(34) & ” height=16>” 
         else 
            ttstr1 = ttstr1 & “image/l-line.gif” & chr(34) & ” height=16>” 
         end if 
         ttstr1= ttstr1 & “<a href=” & chr(34) & “#” & chr(34)  
         ttstr1=ttstr1 & ” call OnClickDiv(‘” & ttid & “‘,’3’)” 
         ttstr1=ttstr1 & chr(34) & “>”  
         ttstr1=ttstr1 & “<img border=” & chr(34) & “0” & chr(34) & ” src=” & chr(34)  
         ttstr1= ttstr1 & “image/leaf.bmp ” & chr(34) & ” id=” & chr(34) & “p-” & ttid & chr(34) & ”  
height=16></a>” 
         ttstr1= ttstr1 & “<a href=” & chr(34) & “#” & chr(34)  
         ttstr1=ttstr1 & ” call OnClickDiv(‘” & ttid & “‘,’3’)” 
         ttstr1=ttstr1 & chr(34) & “>”  
         ttstr1=ttstr1 & ttname & “</a><br>” & vbcrlf 
         ttstr1=ttstr1 & “<div id=” & chr(34) & ttid & chr(34) & ” style=display:none></div>” & vbcrlf 
      end if 
   end if  
   getimgstr=ttstr1  
end function 
Function ShowNode(node,mylvl,myleaf,mylstr) 
   dim ttstr 
   dim mystr  
   dim ttleaf 
   dim ttn 
   ttn=0 
   if myleaf=0 then 
      ttleaf=0 
   else 
      ttleaf=1 
   end if 
For Each child In node.childNodes 
    ttn=ttn+1 
    If (child.nodeType=1) Then  
       nod_name=child.Attributes.getnamedItem(“name”).Text  
       nod_type=child.Attributes.getnamedItem(“type”).Text 
       nod_id=child.Attributes.getnamedItem(“id”).Text 
       if nod_type<>”zs” then 
          If (child.hasChildNodes) Then 
             if ttn=node.childnodes.length then 
                mystr=mystr & getimgstr(nod_id,nod_name,mylvl,1,1,mylstr & “0”) 
                ttstr=ShowNode(child,mylvl+1,1,mylstr & “0”) 
             else 
                mystr=mystr & getimgstr(nod_id,nod_name,mylvl,1,0,mylstr & “1”) 
                ttstr=ShowNode(child,mylvl+1,0,mylstr & “1”) 
             end if 
             mystr=mystr & ttstr 
             mystr=mystr & “</div>” 
          else 
             if ttn=node.childnodes.length then 
                mystr=mystr & getimgstr(nod_id,nod_name,mylvl,0,1,mylstr & “0”) 
             else 
                mystr=mystr & getimgstr(nod_id,nod_name,mylvl,0,0,mylstr & “1”) 
             end if 
          End If 
       else 
          if ttn=node.childnodes.length then 
             mystr=mystr & getimgstr(nod_id,nod_name,mylvl,0,1,mylstr & “0”) 
          else 
             mystr=mystr & getimgstr(nod_id,nod_name,mylvl,0,0,mylstr & “1”) 
          end if 
       end if 
    end if 
Next 
ShowNode=mystr 
End Function 
  dim xmldoc 
  dim xmlstr 
  Set xmldoc = Server.CreateObject(“Microsoft.XMLDOM”) 
  xmldoc.async=false 
  xmldoc.load(Server.MapPath(“knowledge.xml”)) 
  xmlstr=ShowNode(xmldoc,0,0,””) 
‘  set xmldoc=nothing 
‘parent.results.display(source.transformNode(style)); 
%> 
<html> 
<head> 
</head> 
<body> 
<script language=”VBScript”> 
dim olditem 
sub OnClickDiv(DivId,pType) 
   if (document.all(DivId).style.display=”none”) then 
      document.all(DivId).style.display=”” 
      if (pType=”0″) then 
        document.all(“l-“+DivId).src=”http://www.pushad.com/Info/image/t-minus.gif”&nbsp;
        document.all(“p-“+DivId).src=”http://www.pushad.com/Info/image/o-fold.bmp”&nbsp;
      end if 
      if (pType=”1″) then 
        document.all(“l-“+DivId).src=”http://www.pushad.com/Info/image/l-minus.gif”&nbsp;
        document.all(“p-“+DivId).src=”http://www.pushad.com/Info/image/o-fold.bmp”&nbsp;
      end if 
      ‘if (pType=”3″) then 
      ‘  document.all(“p-“+DivId).src=”http://www.pushad.com/Info/image/o-fold.bmp”&nbsp;
      ‘end if 
   else 
      document.all(DivId).style.display=”none”  
      if (pType=”0″) then 
        document.all(“l-“+DivId).src=”http://www.pushad.com/Info/image/t-plus.gif”&nbsp;
        document.all(“p-“+DivId).src=”http://www.pushad.com/Info/image/c-fold.bmp”&nbsp;
      end if 
      if (pType=”1″) then 
         document.all(“l-“+DivId).src=”http://www.pushad.com/Info/image/l-plus.gif”&nbsp;
         document.all(“p-“+DivId).src=”http://www.pushad.com/Info/image/c-fold.bmp”&nbsp;
      end if 
      ‘if (pType=”3″) then 
      ‘  document.all(“p-“+DivId).src=”http://www.pushad.com/Info/image/c-fold.bmp”&nbsp;
      ‘end if 
    end if 
end sub 
</script> 
<font name=”宋体” size=”2″> 
<nobr><%=xmlstr%></nobr></font> 
</body>

欢迎大家阅读《Dom遍历XML的一个例子,结果为树状结构_xml》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]‍，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：Dom遍历XML的一个例子,结果为树状结构_xml
喜欢 (0)赏
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi，您需要填写昵称和邮箱！

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址