asp无限级分类:ASP无限级分类列举代码

<!--# file=\"conntxt.asp\"-->
<%
\'\'\'\'\'\'\'\'\'\'\'读取分类\'\'\'\'\'\'\'\'
Private Function getlist(mi,k)
Dim rs0
Set rs0 = Conn.Execute(\"select * from type where ParentID=\"&mi&\"\")
Do While Not rs0.EOF
getlist = getlist & \"<tr><td height=\'20\'>\" & tmp(k) & rs0(2)&rs0(1) &\"</td></tr>\"
getlist = getlist & getlist(rs0(0),k+1)
rs0.MoveNext
loop
rs0.close
rs0 = nothing
End Function
Private Function tmp(n)
Dim i
For i = 0 To n
tmp = tmp & \"--\"
Next
End Function
%>
<%
Response.Write(\"<table border=\'0\' cellspacing=\'0\' cellpadding=\'0\' width=\'300\'>\")
\'\'\'\'\'\'\'\'\'\'\'打开数据库\'\'\'\'\'\'\'\'\'\'
Set Rs = Conn.Execute(\"select * from type where ParentID=0\")
Do While Not Rs.EOF
Response.Write \"<tr><td height=\'20\'>\" & Rs(2) & \"</td></tr>\"
Response.Write getlist(Rs(0),0)
Rs.MoveNext
loop
Rs.Close
\'\'\'\'\'\'\'\'\'\'\'关闭数据库\'\'\'\'\'\'\'\'\'\'
Response.Write(\"</table>\")
%>

延伸阅读

• 2010-12-15-- php无限分类,一个无限分类的处理类
• 2009-1-12-- php无限分类:PHP无限级分类思路方法及代码
• 2009-2-12-- php无限级分类:PHP无限级分类方法及代码