主頁 > 知識(shí)庫 > Dom遍歷XML的一個(gè)例子,結(jié)果為樹狀結(jié)構(gòu)

Dom遍歷XML的一個(gè)例子,結(jié)果為樹狀結(jié)構(gòu)
熱門標(biāo)簽：鄭州智能外呼電銷機(jī)器人廠家 虛擬電話外呼系統(tǒng) 廣東語音外呼系統(tǒng)公司 沈陽電話機(jī)器人公司 成都ai外呼系統(tǒng)線路 長春公司外呼系統(tǒng)中心 鄢陵學(xué)校如何做地圖標(biāo)注 沈陽三五防封電銷卡 云南便宜外呼系統(tǒng)平臺(tái)
knowledge.XML文件
復(fù)制代碼 代碼如下:
?xml version="1.0" encoding="gb2312"?> 
?xml:stylesheet type="text/xsl" href="knowledge.xsl"?> 
Ebaihe name="Ebaihe" type="gs" id="gs000"> 
知識(shí)管理 name="知識(shí)管理" type="rt" id="rt000"> 
  目錄 name="vc++" type="ml" id="ml003"/> 
  目錄 name="asp" type="ml" id="ml001"> 
     知識(shí) name="什么是ASP 1" type="zs" id="zs001"> 
        title>什么是ASP/title> 
        author>cxx/author> 
        adddate>2001-02-20/adddate> 
        content>ASP:Active Server Page/content> 
     /知識(shí)> 
     知識(shí) name="什么是ASP 2" type="zs" id="zs002"> 
        title>什么是ASP/title> 
        author>cxx/author> 
        adddate>2001-02-20/adddate> 
        content>ASP:Active Server Page/content> 
     /知識(shí)> 
  /目錄> 
  目錄 name="vbs" type="ml" id="ml002"> 
     知識(shí) name="什么是vbs 1" type="zs" id="zs003"> 
        title>什么是ASP/title> 
        author>cxx/author> 
        adddate>2001-02-20/adddate> 
        content>ASP:Active Server Page/content> 
     /知識(shí)> 
     知識(shí) name="什么是vbs 2" type="zs" id="zs004"> 
        title>什么是ASP/title> 
        author>cxx/author> 
        adddate>2001-02-20/adddate> 
        content>ASP:Active Server Page/content> 
     /知識(shí)> 
  /目錄> 
/知識(shí)管理> 
留言簿 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文件

復(fù)制代碼 代碼如下:
% @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  " onclick="  chr(34)  "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  " onclick="  chr(34)  "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  " onclick="  chr(34)  "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  "image/T-plus.gif"  chr(34)  " id="  chr(34)  "l-"  ttid  chr(34)  "  
height=16>/a>" 
         else 
            ttstr1= ttstr1  "image/l-plus.gif"  chr(34)  " id="  chr(34)  "l-"  ttid  chr(34)  "  
height=16>/a>" 
         end if 
         ttstr1= ttstr1  "a href="  chr(34)  "#"  chr(34)  
         ttstr1=ttstr1  " onclick="  chr(34)  "call OnClickDiv('"  ttid  "','"  ttlf  "')" 
         ttstr1=ttstr1  chr(34)  ">"  
         ttstr1=ttstr1  "img border="  chr(34)  "0"  chr(34)  " src="  chr(34)  
         ttstr1= ttstr1  "image/c-fold.bmp"  chr(34)  " id="  chr(34)  "p-"  ttid  chr(34)  "  
height=16>/a>" 
         ttstr1= ttstr1  "a href="  chr(34)  "#"  chr(34)  
         ttstr1=ttstr1  " onclick=" chr(34)  "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  " onclick="  chr(34)  "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  " onclick="  chr(34)  "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="image/t-minus.gif" 
        document.all("p-"+DivId).src="image/o-fold.bmp" 
      end if 
      if (pType="1") then 
        document.all("l-"+DivId).src="image/l-minus.gif" 
        document.all("p-"+DivId).src="image/o-fold.bmp" 
      end if 
      'if (pType="3") then 
      '  document.all("p-"+DivId).src="image/o-fold.bmp" 
      'end if 
   else 
      document.all(DivId).style.display="none"  
      if (pType="0") then 
        document.all("l-"+DivId).src="image/t-plus.gif" 
        document.all("p-"+DivId).src="image/c-fold.bmp" 
      end if 
      if (pType="1") then 
         document.all("l-"+DivId).src="image/l-plus.gif" 
         document.all("p-"+DivId).src="image/c-fold.bmp" 
      end if 
      'if (pType="3") then 
      '  document.all("p-"+DivId).src="image/c-fold.bmp" 
      'end if 
    end if 
end sub 
/script> 
font name="宋體" size="2"> 
nobr>%=xmlstr%>/nobr>/font> 
/body>
您可能感興趣的文章:
  • jQuery實(shí)現(xiàn)遍歷XML節(jié)點(diǎn)和屬性的方法示例
  • python xml.etree.ElementTree遍歷xml所有節(jié)點(diǎn)實(shí)例詳解
  • php遍歷解析xml字符串的方法
  • java遍歷讀取xml文件內(nèi)容
  • ajax遍歷xml文檔的方法
  • PHP遍歷XML文檔所有節(jié)點(diǎn)的方法
  • python目錄操作之python遍歷文件夾后將結(jié)果存儲(chǔ)為xml
  • asp.net Linq To Xml上手Descendants、Elements遍歷節(jié)點(diǎn)
  • Xml中使用foreach遍歷對(duì)象實(shí)現(xiàn)代碼

標(biāo)簽：遼陽 湖北 孝感 平頂山 朝陽 四平 防城港 馬鞍山

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《Dom遍歷XML的一個(gè)例子,結(jié)果為樹狀結(jié)構(gòu)》，本文關(guān)鍵詞  Dom,遍歷,XML,的,一個(gè),例子,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Dom遍歷XML的一個(gè)例子,結(jié)果為樹狀結(jié)構(gòu)》相關(guān)的同類信息！
  • 本頁收集關(guān)于Dom遍歷XML的一個(gè)例子,結(jié)果為樹狀結(jié)構(gòu)的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章