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

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 关于无限分级(ASP+数据库+JS)的实现代码

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 242 ::

收藏到网摘: n/a

FSO遍历目录实现全站插马的代码如何写ASP入库小偷程序

代码可以优化，请根据自己需求进行优化
说明：
所先把所有分类读取存放到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>

运行后结果

点击运行可以看到效果:

<html>
<script language="javascript">
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='-选择-|'; 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<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>";
}
</script>
<body onLoad="CheckLm(0)">
<div id="lmid"></div>
</body>
</html>

[Ctrl+A 全选提示:你可先修改部分代码,再按运行]

数据库:

递归

复制代码代码如下:

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

FSO遍历目录实现全站插马的代码如何写ASP入库小偷程序

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

评论 (0) All