所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

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";}<%dim dbConndim IDIndexIDIndex = 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 rsTestdim YoungerBrother '下一个兄弟节点的IDdim OlderSon '第一个字节点的ID'建立记录集set rsTest = Server.CreateObject("Adodb.recordset")'生成sql语句，操作Doc_TypeTree表strSql = "select * from tab_test where ID = '" & NowItem & "'"'生成记录集rsTest.open strSql,dbConn,1,3if rsTest.eof thenrsTest.closeset recDosType = nothingexit subend ifYoungerBrother = trim(rsTest("BrotherNode") & "")OlderSon = trim(rsTest("SonNode") & "")NodeID = trim(rsTest("ID") & "")NodeName = trim(rsTest("NodeName") & "")'显示子节点if OlderSon = "" or OlderSon = "00" then '当此项无子项时，输出相应的代码response.write "" & chr(10)response.write " " & chr(10)response.write ""response.write "" & NodeName & ""response.write "" & chr(10)response.write "" & chr(10)else'*1.显示本项内容response.write "" & chr(10)response.write "" & chr(10)response.write "" & chr(10)response.write "" & chr(10)response.write "" & chr(10)response.write "" & NodeName & _"" & chr(10)response.write "" & chr(10)response.write "" & chr(10)'*2.输出子孙树头代码response.write "" & chr(10)response.write " " & chr(10)response.write "" & chr(10)response.write ""IDIndex = IDIndex + 1'*3.输出子孙树代码call DoItem(OlderSon)'*4.输出子孙树尾代码response.write ""response.write "" & chr(10)response.write "" & chr(10)end ifif YoungerBrother <> "" and YoungerBrother <> "00" thencall DoItem(YoungerBrother)end ifrsTest.closeset rsTest = nothingend Subresponse.write ""call DoItem("01")response.write ""dbConn.closeset dbConn = nothing%> 关闭本页

....