作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:41:05 阅读 我要评论

代码可以优化,请根据自己需求进行优化 说明: 所先把所有分类读取存放到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>运行后结果 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]数据库: 递归 复制代码 代码如下: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) %>

  推荐阅读

  解决用Access数据库建站维护不便的问题的方法

选用Access作为建站数据库,除了低成本的原因之外,主要是Access数据库的易发布性,一个MDB文件就包括了全部的表和数据,开发完后连同 网页和ASP脚本一起上传到网站上就可以了,开发工具也不少,除了 Office 之外,>>>详细阅读


本文标题:关于无限分级(ASP+数据库+JS)的实现代码

地址:http://www.17bianji.com/kaifa2/ASP/32572.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)