asp无限分级(递归调用)

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

<%
dimm
m=0
callShowTree(0)%>
<%
SubShowTree(parentID)
dims
m=m+1
Dimrs
Setrs=Server.CreateObject("ADODB.RecordSet")
sql="Selectclass_id,class_nameFROM[WMS_Class]whereclass_father_id="&Cint(parentID)
rs.opensql,Conn,1,1
ifrs.eofandm=1then
response.Write("该频道暂无栏目")
endif
DoWhileNotrs.Eof
response.Writers(0)
forn=1tom
ifn=mandm=1then
Response.Write("╋")
elseifn=1then
Response.Write("　")
elseifn=mthen
Response.Write("├")
else
Response.Write("│")
endif
next
response.Writers(1)&"<br>"
CallShowTree(rs(0))
m=m-1
rs.Movenext
Loop
EndSub
%>