使用DW用ASP ACCESS编写目录树
数据表：listTable
数据字段：listIdlistNamelistInfoparentId
连接方法：
<%
dimsConn,sConnStr,sSql
sConnStr="DRIVER={MicrosoftAccessDriver(*.mdb)};dbq="&server.mappath("listBase.mdb")
setsConn=server.createobject("adodb.connection")
sConn.opensConnStr
%>
把以上代码保存成文件：initialize.
下面这段程序代码是用来显示目录树用的，保存成文件：inc.
<!--#include file="initialize."-->
<script language=jscript>
<!--
//此函数用来显示与关闭它的子菜单的，并切换其前面的小图片
function showMenu(menuObj,isSub){
if(menuObj.style.display=="none"){
menuObj.style.display="";
if(isSub==1){
event.srcElement.src=http://www.cndw.com/tech/dw/"images/open.gif";
}
}
else{ 内容来自dedecms
menuObj.style.display="none";
if(isSub==1){
event.srcElement.src=http://www.cndw.com/tech/dw/"http://www.cndw.com/tech/dw/images/close.gif";
}
}
}
//-->
</script>
<!--下面这段蓝色的区域，是设置目录树的根，其中的内容非数据内的数据，内的数据都附着在它的下面//-->
<%
response.write("<table width='100%' border='0' cellspacing='0' cellpadding='0'>" & chr(13))
response.write("<tr>" & chr(13)&"<td>" & chr(13) & "<table width='100%' border='0' cellspacing='0' cellpadding='0'>")
response.write("<tr>" & chr(13) & "<td width='18' ><img src='http://www.cndw.com/tech/dw/images/root.gif' onclick='jscript:showMenu(subMenu0,0)' style='cursor:hand' alt='不可修改'></td>" & chr(13) & "<td width='100' class='menuPro' id='listName0'>根节点</td>" & chr(13))
response.write("<td width='40' class='menuFont' align='center' style='cursor:hand' onclick=""jscript:showForm('add',0)"">添加</td>" & chr(13))
response.write("<td width='40' class='menuFont' align='center' onclick=''></td>" & chr(13))
response.write("<td> </td></tr></table></td></tr>" & chr(13))
response.write("<tr id='subMenu0'>" & chr(13) & "<td colspan='2'>" & chr(13))
'此处调用显示目录树的递归函数
listChild(0)
response.write("</td>" & chr(13) & "</tr>" & chr(13) & "</table>" & chr(13))
'下面代码为显示目录树最要害的函数，使用了递归方法（很多象这样类型的都是用递归来做的。）
function listChild(id)
dim sRec,sSql,sNum,sTmp
set sRec=server.createobject("adodb.recordset")
sSql="select listId,listName,listInfo,parentId from listTable where parentId=" & id
文章评论
共有位Admini5网友发表了评论 查看完整内容