ASP Unlimited Rating (recursive call) _ Application techniques

database field: ID (AutoNumber), class_name (menu name), ParentID (parent menu ID)

Copy Code code as follows:

<%
Dim m
M=0
Call Showtree (0)%>
<%
Sub Showtree (ParentID)
Dim s
M=m+1
Dim RS
Set rs = Server.CreateObject ("ADODB.") RecordSet ")
Sql= "Select class_id,class_name from [Wms_class] where class_father_id=" &cint (ParentID)
Rs.Open sql,conn,1,1
If rs.eof and M = 1 Then
Response. Write ("No column on this channel")
End If
Do but not Rs. Eof
Response. Write RS (0)
For N=1 to M
If n = m and M = 1 Then
Response.Write ("╋")
ElseIf n = 1 Then
Response.Write ("")
ElseIf n = m Then
Response.Write ("├")
Else
Response.Write ("│")
End If
Next
Response. Write RS (1) & "<br>"
Call Showtree (RS (0))
M=m-1
Rs. Movenext
Loop
End Sub
%>