asp无限分级(递归调用)

数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id)

< %
dim m
m = 0
call ShowTree( 0 )% >
< %
Sub ShowTree(parentID)
dim s
m = m + 1
Dim rs
Set rs = Server.CreateObject( " ADODB.RecordSet " )
sql = " Selectclass_id,class_nameFROM[WMS_Class]whereclass_father_id= " & Cint (parentID)
rs.opensql,Conn, 1 , 1
if rs.eof and m = 1 then
response.Write( " 该频道暂无栏目 " )
end if
Do While Not rs.Eof
response.Writers( 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.Writers( 1 ) & " <br> "
Call ShowTree(rs( 0 ))
m = m - 1
rs.Movenext
Loop
EndSub
% >