快捷導(dǎo)航

關(guān)于無限分級(ASP+數(shù)據(jù)庫+JS)的實(shí)現(xiàn)代碼

更新時(shí)間：2007年05月25日 00:00:00 作者：

代碼可以優(yōu)化，請根據(jù)自己需求進(jìn)行優(yōu)化
說明：
所先把所有分類讀取存放到JS數(shù)組中(如果數(shù)據(jù)量大可能就有點(diǎn)麻煩)
當(dāng)選擇時(shí)候返回父分類ID 在從數(shù)組中找出符合的分類，然后顯示給用戶
數(shù)據(jù)庫設(shè)計(jì)(可以根據(jù)自己需求添加字段，如此分類屬于什么分類等等)
字段            類型          說明
id               自動(dòng)編號(hào)     記錄編號(hào)
cotename    文本           分類名稱
byid            數(shù)字           父分類ID(即為此表ID,根接點(diǎn)時(shí)值為0)

JS部分代碼(命名為*.asp)

復(fù)制代碼代碼如下:

<%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%> 

調(diào)用頁面代碼

復(fù)制代碼代碼如下:

<% 
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>

運(yùn)行后結(jié)果

[Ctrl+A 全選注:引入外部Js需再刷新一下頁面才能執(zhí)行]

數(shù)據(jù)庫:

遞歸

復(fù)制代碼代碼如下:

Sub GetA(TheID) 

set rs=server.CreateObject("adodb.recordset") 
dim rs,sql 
     sql="select * from [DB_Cote] Where ByID in("&TheID&")" 
    rs.open sql,conn,1,1 
      i=0 
   if not rs.eof then 
     do while not rs.eof  
       response.Write(rs("cotename")&"<br>") 
    call GetA(Rs("id")) 
     rs.movenext 
     i=i+1 
     loop    
   end if 
   rs.close 
  set rs=nothing 

End Sub 

if m=empty then m=0 
call GetA(m) 
%> 