使用DW用ASP+ACCESS编写目录树

来源：PConline 作者：六月海设计出处：巧巧读书 2005-11-02 进入讨论组

　　下面是提交信息处理页的代码，保存为disp.asp

<%
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
case "del"
sSql="delete from listTable where listId=" & parentId & " or parentId=" & parentId
end select
sConn.execute sSql,,1
response.redirect("index.asp")
%>

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

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

}
.menuFont {
    font-family: "Verdana", "Arial", "Helvetica", "sans-serif";
    font-size: 12px;
}
.showDiv {
    display:'';
}
.hiddenDiv {
    display:none;
}
.treeDiv {
    background-color: #A8D5EA;
    height: 100%;
    width: 100%;
    border-top-width: 2px;
    border-right-width: 2px;
    border-bottom-width: 2px;
    border-left-width: 2px;
    border-top-style: inset;
    border-right-style: inset;
    border-bottom-style: inset;
    border-left-style: inset;
    border-top-color: #3680C9;
    border-right-color: #BCD5ED;
    border-bottom-color: #BCD5ED;
    border-left-color: #3680C9;
    overflow: auto;
    padding: 20px;

}
body {
    overflow: hidden;
}
.formDiv {
    font-family: "Verdana", "Arial", "Helvetica", "sans-serif";
    font-size: 12px;
    font-weight: normal;
    background-color: #7ABDDE;
    height: 200px;
    width: 300px;
    border-top: 1px outset #B9DCFF;
    border-right: 1px outset #004488;
    border-bottom: 1px outset #004488;
    border-left: 1px outset #B9DCFF;
    overflow: hidden;

}
.text1 {
    width: 160px;
}
.DivBut {
    font-family: "Verdana", "Arial", "Helvetica", "sans-serif";
    font-size: 12px;
    font-weight: normal;
    background-color: #3399CC;
    height: 20px;
    width: 40px;
    border: 1px outset;

}

　　另在根目录下建一个IMAGES目录。用来放那些文件夹样子的小图。

　　打包下载[请使用WINRAR3.0解压]：小图片

打开： http://www.qqread.com/dreamweaver/u222173010.html