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

代码可以优化，请根据自己需求进行优化
说明：
所先把所有分类读取存放到js数组中(如果数据量大可能就有点麻烦)
当选择时候返回父分类id 在从数组中找出符合的分类，然后显示给用户
数据库设计(可以根据自己需求添加字段，如此分类属于什么分类等等)
字段            类型          说明
id               自动编号     记录编号
cotename    文本           分类名称
byid            数字           父分类id(即为此表id,根接点时值为0)

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

复制代码代码如下:

<%dim conn 
set conn=server.createobject("adodb.connection") 
conn.connectionstring = "provider=microsoft.jet.oledb.4.0;" & _ 
"data source=" & server.mappath("cote.mdb") 
conn.open 
%> 

function checklm(thevalue){ 
  var byid=new array(); 
  var cotename=new array(); 
  var id=new array(); 
  var i; 
  var id_s; 
  var byid_s; 
  var cotename_s; 
  var thevalue_r;  
  var data='<select name="lm" onchange="checklm(this.value)">' 
  id_s="|"; 
  cotename_s='-选择-|'; 
  <%set rs=server.createobject("adodb.recordset") 
     sql="select * from [db_cote] order by byid,id" 
    rs.open sql,conn,1,1 
      i=0 
   if not rs.eof then 
     do while not rs.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]='无分类';") 
   end if 
   rs.close 
  set rs=nothing%> 
  if(thevalue==null||thevalue==undefined||thevalue==''){thevalue=0;} 
  //if(lmvalue==null||lmvalue==undefined||lmvalue==''){lmvalue=0;} 
    for(k=0;k<id.length;k++){ 
      if(thevalue==id[k]){id_s+=thevalue+"|";cotename_s+=cotename[k]+"|";thevalue_r=byid[k];break;}else{thevalue_r=0;} 
    } 
   for(i=0;i<id.length;i++){ 
     if(thevalue==byid[i]){ 
    id_s+=id[i]+"|";cotename_s+=cotename[i]+"|"; 
    }  
   } 
   if(id_s=='-1|'){ 
      for(i=0;i<id.length;i++){ 
     if(thevalue==id[i]){ 
  id_s+=id[i]+"|";cotename_s+=cotename[i]+"|"; 
  }  
   }  
    } 
  id_v=id_s.split("|"); 
  cotename_v=cotename_s.split("|"); 
  var length=id_v.length-1;   
  for(j=0;j<length;j++){ 
    if(thevalue==id_v[j]){ 
    data+="<option value='"+id_v[j]+"' selected>"+cotename_v[j]+"</option>";} 
    else{ 
    data+="<option value='"+id_v[j]+"'>"+cotename_v[j]+"</option>"; 
    } 
   } 
  if(thevalue!=0){data+="<option value='"+thevalue_r+"'>上级分类</option>";} 
 //alert(length+'/'+thevalue); 
    var lm=document.getelementbyid('lmid'); 
 lm.innerhtml=data+"</select>"; 
} 
<%conn.close:set conn=nothing%> 

调用页面代码

复制代码代码如下:

<% 
dim lm 
lm=request("lm") 
if lm=empyt or not isnumeric(lm) then lm=0 
%> 
<html> 
<script type="text/javascript" src="*.asp"></script> 
<body onload="checklm(<%=lm%>)"> 
<div id="lmid"></div> 
</body> 
</html>

运行后结果

function checklm(thevalue){ var byid=new array(); var cotename=new array(); var id=new array(); var i; var id_s; var byid_s; var cotename_s; var thevalue_r; var data='' id_s="|"; cotename_s='-选择-|'; id[0]=1; byid[0]=0; cotename[0]='大栏目1'; id[1]=7; byid[1]=0; cotename[1]='大栏目2'; id[2]=2; byid[2]=1; cotename[2]='├大栏目1-1'; id[3]=3; byid[3]=1; cotename[3]='├大栏目1-2'; id[4]=4; byid[4]=1; cotename[4]='├大栏目1-3'; id[5]=5; byid[5]=4; cotename[5]='├-大栏目1-3-a'; id[6]=6; byid[6]=4; cotename[6]='├-大栏目1-3-b'; id[7]=10; byid[7]=6; cotename[7]='├--大栏目1-3-b-1'; id[8]=11; byid[8]=6; cotename[8]='├--大栏目1-3-b-2'; id[9]=12; byid[9]=6; cotename[9]='├--大栏目1-3-b-3'; id[10]=8; byid[10]=7; cotename[10]='├大栏目2-1'; id[11]=9; byid[11]=7; cotename[11]='├大栏目2-2'; if(thevalue==null||thevalue==undefined||thevalue==''){thevalue=0;} //if(lmvalue==null||lmvalue==undefined||lmvalue==''){lmvalue=0;} for(k=0;k
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！

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

相关教程推荐

其他课程推荐