分享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="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("该频道暂无栏目") 
end if 
Do While 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 
%>