下面是提交信息处理页的代码，保存为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: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";

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:1pxoutset#B9DCFF;

border-right:1pxoutset#004488;

border-bottom:1pxoutset#004488;

border-left:1pxoutset#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:1pxoutset; }

另在根目录下建一个IMAGES目录。用来放那些文件夹样子的小图。 打包下载[请使用WINRAR3.0解压]：小图片