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


  </目录> 
</知识管理> 
<留言簿 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文件

复制代码 代码如下:
<% @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)  

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3231.html