关于无限分级(ASP+数据库+JS)的实现代码

代码可以优化，请根据自己需求进行优化

说明：

所先把所有分类读取存放到JS数组中(如果数据量大可能就有点麻烦)

当选择时候返回父分类ID在从数组中找出符合的分类，然后显示给用户

数据库设计(可以根据自己需求添加字段，如此分类属于什么分类等等)

字段类型说明

id自动编号记录编号

cotename文本分类名称

byid数字父分类ID(即为此表ID,根接点时值为0)

JS部分代码(命名为*.asp)

复制代码代码如下:

<%Dimconn

Setconn=Server.CreateObject("ADODB.Connection")

conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_

"DataSource="&Server.MapPath("Cote.mdb")

conn.Open

%>

functionCheckLm(thevalue){

varbyid=newArray();

varcotename=newArray();

varid=newArray();

vari;

varid_s;

varbyid_s;

varcotename_s;

varthevalue_r;

vardata='<selectname="lm"onchange="CheckLm(this.value)">'

id_s="|";

cotename_s='-选择-|';

<%setrs=server.CreateObject("adodb.recordset")

sql="select*from[DB_Cote]Orderbybyid,id"

rs.opensql,conn,1,1

i=0

ifnotrs.eofthen

dowhilenotrs.eof

response.Write("id["&i&"]="&rs("id")&";"&chr(10))

response.Write("byid["&i&"]="&rs("byid")&";"&chr(10))

response.Write("cotename["&i&"]='"&rs("cotename")&"';"&chr(10))

rs.movenext

i=i+1

loop

else

response.Write("id[0]=0;byid[0]=0;cotename[0]='无分类';")

endif

rs.close

setrs=nothing%>

if(thevalue==null||thevalue==undefined||thevalue==''){thevalue=0;}

//if(lmvalue==null||lmvalue==undefined||lmvalue==''){lmvalue=0;}

for(k=0;k<id.length;k++){