求一个无限级联递归栏目分类源码

[k_941job]

效果一：（下拉式）
<select>
<option value="">所有分类</option>
<option value="">栏目名称1</option>
<option value="">　├ 栏目名称1</option>
<option value="">　│　├ 栏目名称1</option>
<option value="">　│　├ 栏目名称2</option>
<option value="">　│　│　├ 栏目名称1</option>
<option value="">　│　│　├ 栏目名称2</option>
<option value="">栏目名称2</option>
<option value="">　├ 栏目名称1</option>
<option value="">　│　├ 栏目名称1</option>
<option value="">　│　├ 栏目名称2</option>
<option value="">　│　│　├ 栏目名称1</option>
<option value="">　│　│　├ 栏目名称2</option>
</select>

option 的value=每级栏目的ID、父ID、栏目名称。如：value="1,1,0,栏目名称"


效果二：（平面式）

所有分类
栏目名称
　├ 栏目名称
　│　├ 栏目名称
　│　├ 栏目名称
　│　│　├ 栏目名称
　│　│　├ 栏目名称
栏目名称
　├ 栏目名称
　│　├ 栏目名称
　│　├ 栏目名称
　│　│　├ 栏目名称
　│　│　├ 栏目名称


要求：实现无限级联下拉式分类（变量最好简单加注释）
语言：ASP+ACCESS
结贴：一个星期内
接收:[e-mail]

注：我很需要一份这样的级联下拉，请各位帮帮忙吧。

[ybfqlyq]

看zhaoxiaoyang剛才發的那個貼子。。。。
http://community.csdn.net/Expert/topic/4516/4516545.xml?temp=8.552188E-02

[k_941job]

看我收集修改的这个：

http://only-d.com/my/menu/

[Only_D]

顶

[net205]

偶这样写的。。是偶用在论坛里的版块列表。你看看。。修改点就行了
效果：http://www.sunbala.cn/nbbs/List.asp?boardid=198 右下的select列表框
偶这有些感觉不爽的
1.在外面定了一个di变量来达到当前是几级，然后实现层次关系，感觉对于函数封装有破坏性，不爽。
2.里面包含了html代码，不爽。。
其他不知道还有什么不好的。。。请大家拍砖。。。

说明：
clsDatabase是一个数据操作类，ReturnRecordSet返回记录集
nSpace(di)是返回di个空格...
另外你可以看看动网的，它好像是用xml的，具体偶没看。。。
递归方便，好使，但对大数据量来说效率就不好了，不知道各位有啥更好的办法？？？


dim di
di=0

Public Function BoardSel(idd)
dim rst,strSQL,strTmp,objDatabase
Set objDatabase = New clsDatabase
strSQL = "SELECT ID, BoardName, ParentID FROM BBS_Board WHERE State <> 0 and ParentID = "&idd&" Order By SortNum Desc"
Set rst = objDatabase.ReturnRecordSet(strSQL)
Do While Not rst.eof
strTmp = "<option id=""B"&rst("ID")&""" value="""&rst("ID")&""">"&nSpace(di)
If rst("ParentID")=0 Then
strTmp = strTmp & "╋"
ElseIf rst.AbsolutePosition=rst.RecordCount Then
strTmp = strTmp & "└"
Else
strTmp = strTmp & "├"
End If

strTmp = strTmp & rst("BoardName")&"</option>"&vbcrlf
di=di+1
BoardSel = BoardSel & strTmp & BoardSel(rst("ID"))
di=di-1
rst.MoveNext
Loop
rst.Close
Set rst=Nothing
Set objDatabase = Nothing
End Function

[竹林听雨2005]

http://community.csdn.net/Expert/topic/4512/4512881.xml?temp=.1466638

偶的东西，看看

[fason]

好久没有写代码，运行过还行, 不过是JScript的

<%@language="JScript"%>
<%

// Forbes Pu 2006-1-15

var conn;

conn = Server.CreateObject("Adodb.Connection");
conn.Open("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + Server.MapPath("Data.mdb"));

var aIndent = [];

function fnShowList(ID)
{
var iID;
var iCnt = 0;
var sText = "";
var bLast;
var rs = Server.CreateObject("Adodb.Recordset");

rs.Open("SELECT *,(SELECT COUNT(*) FROM Tree WHERE ParentID=T.ID) as Child FROM Tree T WHERE ParentID=" + ID, conn, 1, 3);
if (!rs.Eof)
{
var a = "";
for (var i = 0; i < aIndent.length; i++)
a += aIndent[i] ? "  " : "│";
while (!rs.Eof)
{
iID = rs.Fields("ID").Value;
bLast = ++iCnt == rs.RecordCount;
sText += "<option value=\"" + iID + "\">" + a + ( ID > 0 ? (bLast ? "└ " : "├ ") : "") + Server.HtmlEncode(rs.Fields("Desc").Value) + "</option>\n";
if (rs.Fields("Child").Value > 0)
{
if(ID > 0)aIndent.push(bLast);
sText += fnShowList(iID);
if(ID > 0)aIndent.pop();
}
rs.MoveNext();
}
}

rs.Close();
return sText;
}


Response.Write("<select>" + fnShowList(0) + "</select>");

conn.Close();

%>

[newskyline]

看来这100分归我了，楼主去这里看：
http://www.justrun.net/Product/SkyTree/
点“SkyTree的选单形式”，我的东西是免费的，没人关注是我的失败。

[newskyline]

提醒一下楼主，该结帖了:)

[liuph3000]

不错,mark!

http://peipei3000.jishuqi.com/reg.asp
http://www.goofar.com/?ID=634664011139