news.55.la - 我拉站长咨询网

站长资讯通告:
搜索: 您的位置主页 > 网络编程 > Asp编程 > 阅读资讯:ASP ACCESS实现的无限级目录树

ASP ACCESS实现的无限级目录树

2012-11-20 18:17:16 来源: 【 评论: 作者:admin
摘要: 下载地址: http://www.webjx.com/upload/treemenu.rar 要害代码: % set conn=server.createobject("ADODB.CONNECTION") connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" conn.open connstr

下载地址:http://www.webjx.com/upload/treemenu.rar

要害代码:

<%
set conn=server.createobject('ADODB.CONNECTION')
connstr='DBQ=' server.mappath('db1.mdb') ';DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};'
conn.open connstr
function menu(id)
set rs=server.CreateObject('adodb.recordset')
sql='select * from menu where id1='&id&' order by url,id'
rs.open sql,conn,1,1
if rs.recordcount=0 then
rs.close
set rs=nothing
exit function
end if
response.write('<table border='0' cellspacing='0' cellpadding='0'>')
i=1
while not rs.eof
if len(rs('url'))>0 then
if i=rs.recordcount then
 menutype='file1'
else
 menutype='file'
end if
menuname='<a href=''&rs('url')&'' target='_blank'>'&rs('menuname')&'</a>'
onmouseup=''
else
if i=rs.recordcount then
 menutype='menu3'
 listtype='list1'
 onmouseup='with(eval('id'&rs('id')&''))if(style.display==''){style.display='none';this.className='menu3';}else{style.display='';this.className='menu4';}'
else
 menutype='menu1'
 listtype='list'
 onmouseup='with(eval('id'&rs('id')&''))if(style.display==''){style.display='none';this.className='menu1';}else{style.display='';this.className='menu2';}'
end if
menuname=rs('menuname')
end if
%>
 <tr>
  <td class='<%= menutype%>' onMouseUp='<%= onmouseup%>'><%= menuname%></td>
 </tr>
<%if len(rs('url'))<3 then%>
 <tr id='id<%= rs('id')%>' style='display:none'>
  <td class='<%= listtype%>'><%menu(rs('id'))%></td>
 </tr>
<%
end if
rs.movenext
i=i 1
wend
response.write('</table>')
rs.close
set rs=nothing
end function
%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>=========无限级目录树=========http://www.webjx.com</title>
<style type='text/css'>
<!--
.menu1 {
background-image: url(folder1.gif);
background-repeat: no-repeat;
height: 17px;
left: 32px;
padding-left: 32px;
cursor: hand;
}
.menu2 {
background-image: url(folder2.gif);
background-repeat: no-repeat;
height: 17px;
left: 32px;
padding-left: 32px;
cursor: hand;
}
.menu3 {
background-image: url(folder3.gif);
background-repeat: no-repeat;
height: 17px;
left: 32px;
padding-left: 32px;
cursor: hand;
}
.menu4 {
background-image: url(folder4.gif);
background-repeat: no-repeat;
height: 17px;
left: 32px;
padding-left: 32px;
cursor: hand;
}
.list {
padding-left: 20px;
background-image: url(list.gif);
background-repeat: repeat-y;
}
.list1 {
padding-left: 20px;
}
.file {
background-image: url(file.gif);
background-repeat: no-repeat;
height: 16px;
cursor: hand;
padding-left: 32px;

顶一下
(0)
0%
踩一下
(0)
0%
Tags:
责任编辑:静水流深
收藏】 【挑错】 【推荐】 【打印
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片