您所在位置：主题：asp中如何输出无限分给树节点
1f2l3y
[专家分：0] 发布于 2007-12-10 14:26:00
<%
function ShowTree(pID)
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select * FROM WMS_Class where parentID='"&pID&"'"
rs.open sql,conn,1,3
While Not rs.Eof
response.Write(rs("class_name"))
response.Write("<br>")
'这里构一节点
Call ShowTree(rs("id"))'这里是递归显示子菜单
rs.Movenext
wend
End function
call ShowTree(0)
%>
代码如上，输出节点部份怎么编写？完整文档见附件
function ShowTree(pID)
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select * FROM WMS_Class where parentID='"&pID&"'"
rs.open sql,conn,1,3
While Not rs.Eof
response.Write(rs("class_name"))
response.Write("<br>")
'这里构一节点
Call ShowTree(rs("id"))'这里是递归显示子菜单
rs.Movenext
wend
End function
call ShowTree(0)
%>
代码如上，输出节点部份怎么编写？完整文档见附件