<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="minus.gif"; } else {ss.style.display="none"; aa.style.display="none"; ii.src="plus.gif";} } function onlyclose(ss,ii,aa) { ss.style.display="none"; aa.style.display="none"; ii.src="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") & "") '显示子节点
|