加入收藏 | 设为首页 | 会员中心 | 我要投稿 | 在线留言 | RSS
成网科技业务包括域名空间企业网站制作
 
国际域名com/net/org仅售80元/年
1G独立空间(PHP+MYSQL)仅售600元/年
您当前的位置:首页 > 网络编程 > ASP编程

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

时间:2011-12-15 08:36:53  来源:成网科技  作者:佚名  点击:

代码可以优化,请根据自己需求进行优化 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
说明: 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
所先把所有分类读取存放到JS数组中(如果数据量大可能就有点麻烦) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
当选择时候返回父分类ID 在从数组中找出符合的分类,然后显示给用户 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
数据库设计(可以根据自己需求添加字段,如此分类属于什么分类等等) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
字段 类型 说明 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
id 自动编号 记录编号 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
cotename 文本 分类名称 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
byid 数字 父分类ID(即为此表ID,根接点时值为0) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
JS部分代码(命名为*.asp) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
复制代码 代码如下:5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<%Dim conn 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
Set conn=Server.CreateObject("ADODB.Connection") 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
"Data Source=" & Server.MapPath("Cote.mdb") 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
conn.Open 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
%> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
function CheckLm(thevalue){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var byid=new Array(); 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var cotename=new Array(); 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var id=new Array(); 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var i; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var id_s; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var byid_s; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var cotename_s; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var thevalue_r; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var data='<select name="lm" onchange="CheckLm(this.value)">' 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
id_s="|"; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
cotename_s='-选择-|'; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<%set rs=server.CreateObject("adodb.recordset") 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
sql="select * from [DB_Cote] Order by byid,id" 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
rs.open sql,conn,1,1 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
i=0 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if not rs.eof then 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
do while not rs.eof 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
response.Write("id["&i&"]="&rs("id")&";"&chr(10)) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
response.Write("byid["&i&"]="&rs("byid")&";"&chr(10)) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
response.Write("cotename["&i&"]='"&rs("cotename")&"';"&chr(10)) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
rs.movenext 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
i=i+1 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
loop 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
else 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
response.Write("id[0]=0;byid[0]=0;cotename[0]='无分类';") 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
end if 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
rs.close 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
set rs=nothing%> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if(thevalue==null||thevalue==undefined||thevalue==''){thevalue=0;} 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
//if(lmvalue==null||lmvalue==undefined||lmvalue==''){lmvalue=0;} 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
for(k=0;k<id.length;k++){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if(thevalue==id[k]){id_s+=thevalue+"|";cotename_s+=cotename[k]+"|";thevalue_r=byid[k];break;}else{thevalue_r=0;}5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
for(i=0;i<id.length;i++){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if(thevalue==byid[i]){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
id_s+=id[i]+"|";cotename_s+=cotename[i]+"|"; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if(id_s=='-1|'){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
for(i=0;i<id.length;i++){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if(thevalue==id[i]){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
id_s+=id[i]+"|";cotename_s+=cotename[i]+"|"; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
id_v=id_s.split("|"); 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
cotename_v=cotename_s.split("|"); 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var length=id_v.length-1; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
for(j=0;j<length;j++){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if(thevalue==id_v[j]){ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
data+="<option value='"+id_v[j]+"' selected>"+cotename_v[j]+"</option>";} 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
else{ 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
data+="<option value='"+id_v[j]+"'>"+cotename_v[j]+"</option>"; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if(thevalue!=0){data+="<option value='"+thevalue_r+"'>上级分类</option>";} 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
//alert(length+'/'+thevalue); 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
var lm=document.getElementById('lmid'); 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
lm.innerHTML=data+"</select>"; 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<%Conn.Close:Set Conn=Nothing%> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
调用页面代码5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
复制代码 代码如下:5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<% 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
Dim lm 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
lm=request("lm") 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if lm=Empyt or Not Isnumeric(lm) then lm=0 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
%> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<html> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<script type="text/javascript" src="*.asp"></script> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<body onLoad="CheckLm(<%=lm%>)"> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
<div id="lmid"></div> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
</body> 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
</html>5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
运行后结果 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
  [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
数据库:5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

关于无限分级(ASP+数据库+JS)的实现代码5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
递归 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
复制代码 代码如下:5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
Sub GetA(TheID) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
set rs=server.CreateObject("adodb.recordset") 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
dim rs,sql 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
sql="select * from [DB_Cote] Where ByID in("&TheID&")" 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
rs.open sql,conn,1,1 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
i=0 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if not rs.eof then 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
do while not rs.eof 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
response.Write(rs("cotename")&"<br>") 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
call GetA(Rs("id")) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
rs.movenext 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
i=i+1 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
loop 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
end if 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
rs.close 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
set rs=nothing 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
End Sub 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
if m=empty then m=0 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
call GetA(m) 5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设
%> 
5xb成网科技_开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设

成网科技 www.it28.com竭诚为您服务!
开平网站建设_开平网站制作_开平企业网站_开平网页设计_江门网站建设_成网科技

更多
 


来顶一下
返回首页
返回首页
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表
推荐资讯
相关文章
    无相关信息
栏目更新
栏目热门