使用DW用ASP ACCESS编写目录树

</td>
<td>&nbsp;</td>
</tr>
</table></td>
<td>&nbsp;</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</div>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<!--此处为包含文件//-->
<div id="Layer1" class="treeDiv">
<!--#include file="inc."-->
</div>
</td>
</tr>
</table>
</body>
</html>

　　下面是提交信息处理页的代码，保存为disp.
<!--#include file="initialize."-->
<%
function checkstr(str)
str=replace(str,"'","''",1,-1,1)
checkstr=str
end function

dim disp,parentId,listName,listInfo
disp=request.QueryString("disp") 本文来自织梦
parentId=request.QueryString("parentId")
select case disp
case "add"
listName=checkstr(left(request.QueryString("listName"),10))
listInfo=checkstr(left(request.QueryString("listInfo"),50))
if listName="" then listName="空白节点"
if listInfo="" then ListInfo="此节点在添加入未填写内容"
sSql="insert into listTable (listName,listInfo,parentId) values('" & listName & "','" & listInfo & "'," & parentId & ")"
case "edit"
listName=checkstr(left(request.QueryString("listName"),10))
listInfo=checkstr(left(request.QueryString("listInfo"),50))
if listName="" then listName="空白节点"
if listInfo="" then listInfo="此节点在添加入未填写内容"
sSql="update listTable set listName='" & listName & "',listInfo='" & listInfo & "' where listId=" & parentId 内容来自dedecms
case "del"
sSql="delete from listTable where listId=" & parentId & " or parentId=" & parentId
end select
sConn.execute sSql,,1
response.redirect("index.")
%>

　　以上代码保存成的文件放在同一目录下面（在这里我们称为根目录）。
　　在根目录下新建一个CSS目录.
　　下面为CSS定义，保存成css.css文件，放在CSS目录下。注：有一两个样式是不要的，我没删
.menuPro{
border-top:1pxdotted#A5BBE0;
border-right:1pxdotted#31548E;
border-bottom:1pxdotted#31548E;
border-left:1pxdotted#A5BBE0;
overflow:visible;
font-family:"Verdana","Arial","Helvetica","sans-serif";
font-size:12px;

}
.menuGro{
border-top:2pxoutset#31548E;
border-right:2pxoutset#A5BBE0;
border-bottom:2pxoutset#A5BBE0;
border-left:2pxoutset#31548E;
overflow:visible;
font-family:"Verdana","Arial","Helvetica","sans-serif";