【www.bbyears.com--英文短信】
<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>
<%
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") & "")
"显示子节点