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

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

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

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

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

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

更多
 


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