關于無限分級(ASP+數據庫+JS)的實現代碼

2024-05-04 10:58:00

字體：大中小

來源：轉載

供稿：網友

代碼可以優化，請根據自己需求進行優化
說明：
所先把所有分類讀取存放到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>";
}

上一篇：解決用Access數據庫建站維護不便的問題的方法

下一篇：在Z-BLOG可用的新版ASP的GIF驗證碼[V70404]

發表評論

共有條評論