六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

我寫的一段遞歸生成類似Windows資源管理器一樣效果的樹狀菜單的代碼，請指正

發表時間：2024-05-25 來源：明輝站整理相關軟件相關文章人氣：

[摘要]<HTML><HEAD><META content="text/html; charset=gb2312" http-equiv=Content-Type><SCRIPT lanuage="JScript">f...

<HTML>
<HEAD>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<SCRIPT lanuage="JScript">
function turnit(ss,ii,aa)
{

if (ss.style.display=="none")
  {ss.style.display="";
   aa.style.display="";
   ii.src="http://www.okasp.com/techinfo/minus.gif";
  }

else
  {ss.style.display="none";
   aa.style.display="none";
   ii.src="http://www.okasp.com/techinfo/http://www.okasp.com/techinfo/plus.gif";}
}

function onlyclose(ss,ii,aa)
{
   ss.style.display="none";
   aa.style.display="none";
   ii.src="http://www.okasp.com/techinfo/http://www.okasp.com/techinfo/plus.gif";
}
</SCRIPT>
</HEAD>
<BODY bgColor=#99CCFF>
<%
    dim dbConn
    dim IDIndex
    
    IDIndex = 0
    
    '建立數據庫連接
    Set dbConn = Server.CreateObject("Adodb.Connection")
    dbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("test.mdb")
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''生成文件類型樹的遞歸函數,傳入參數:NowItem為樹節點的ID   ''
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Sub DoItem(NowItem)
        dim rsTest
        dim YoungerBrother    '下一個兄弟節點的ID
        dim OlderSon        '第一個字節點的ID
        
        '建立記錄集
        set rsTest = Server.CreateObject("Adodb.recordset")
    
        '生成sql語句，操作Doc_TypeTree表
        strSql = "select * from tab_test where ID = '" & NowItem & "'"
    
        '生成記錄集
        rsTest.open strSql,dbConn,1,3
        
        if rsTest.eof then
            rsTest.close
            set recDosType = nothing
            exit sub
        end if
        
        YoungerBrother = trim(rsTest("BrotherNode") & "")
        OlderSon = trim(rsTest("SonNode") & "")
        NodeID = trim(rsTest("ID") & "")
        NodeName = trim(rsTest("NodeName") & "")
        
        '顯示子節點
        if OlderSon = "" or OlderSon = "00" then    '當此項無子項時，輸出相應的代碼
            response.write "<TR>" & chr(10)
            response.write "<TD> </TD>" & chr(10)
            response.write "<TD>"
              response.write "<A href='test'>" & NodeName & "</A>"              
                response.write "</TD>" & chr(10)
            response.write "</TR>" & chr(10)        
        else        
            '*1.顯示本項內容
            response.write "<TR>" & chr(10)
            response.write "<TD language=JScript onmouseup=turnit(" & _
                        "Content" & IDIndex & "," & _
                        "img" & IDIndex & "," & _
                        "Aux" & IDIndex & ");>" & chr(10)            
              response.write "<IMG height=9 id=img" & IDIndex & " src='http://www.okasp.com/techinfo/http://www.okasp.com/techinfo/plus.gif' width=9>" & chr(10)
                response.write "</TD>" & chr(10)
            response.write "<TD>" & chr(10)
              response.write "<A href='Frame_4_publish.asp?DocTypeID=" & _
                          NodeID & "' target='frmFour'>" & NodeName & _
                          "</A>" & chr(10)
                response.write "</TD>" & chr(10)
            response.write "</TR>" & chr(10)
            
            '*2.輸出子孫樹頭代碼
            response.write "<TR>" & chr(10)
            response.write "<TD id=Aux" & IDIndex & " style='display: none'> </TD>" & chr(10)
            response.write "<TD id=Content" & IDIndex & " style='display: none'>" & chr(10)
            response.write "<TABLE border='0'>"
            IDIndex = IDIndex + 1
        
            '*3.輸出子孫樹代碼
            call    DoItem(OlderSon)
            
            '*4.輸出子孫樹尾代碼
            response.write "</TABLE>"
            response.write "</TD>" & chr(10)
            response.write "</TR>" & chr(10)
        end if
        
        if YoungerBrother <> "" and YoungerBrother <> "00" then
            call DoItem(YoungerBrother)
        end if        
                
        rsTest.close
        set rsTest = nothing
    end Sub
    
    response.write "<table border='0'>"
    call DoItem("01")
    response.write "</table>"
    
    dbConn.close
    set dbConn = nothing
%>
</BODY>
</HTML>
主站蜘蛛池模板： 亚洲一区二区免费在线观看 | 亚洲一色| 午夜久久久 | 青娱乐成人 | 日韩精品在线免费观看 | 亚洲成人婷婷 | 日韩精品亚洲人成在线播放 | 亚洲成a人v欧美综合天堂下载 | 亚洲欧美自拍另类图片色 | 视频一区日韩 | 亚洲成a人片在线观看中文动漫 | 一级做a爰片久久毛片图片 一级做a爰片久久毛片人呢 | 日本a级三级三级三级久久 日本a级片在线播放 | 日韩色图区 | 亚洲综合网在线观看 | 青青碰| 亚洲看片网站 | 青青草原亚洲视频 | 日韩欧美一区二区久久黑人 | 色中色资源站 | 中文国产成人久久精品小说 | 亚洲一区二区三区免费观看 | 亚洲日本视频在线 | 欧美亚洲专区 | 天天色天天摸 | 一级免费黄色大片 | 日本天堂网在线 | 在线视频观看亚洲 | 日本在线视频网站www色下载 | 涩涩久久 | 色就干| 日本欧美中文字幕 | 亚洲第一影视 | 亚洲国产成人久久99精品 | 日日碰日日摸日日澡视频播放 | 日韩视频一 | 日本中文字幕在线 | 偷拍精品视频一区二区三区 | 欧美视频免费在线播放 | 日本一区二区在线不卡 | 三级中文有码中文字幕 |