连接方法:
<% dim sConn,sConnStr,sSql sConnStr="DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("listBase.mdb") set sConn=server.createobject("adodb.connection") sConn.open sConnStr %> |
把以上代码保存成文件:initialize.asp
下面这段程序代码是用来显示目录树用的,保存成文件:inc.asp
end if sRec.close '关闭记录集 set sRec=nothing '关闭记录集 end function sConn.close '关闭数据库链接 set sConn=nothing '关闭数据库链接 %> |
下面这是调用页代码,保存成index.asp
<%@LANGUAGE='VBSCRIPT' CODEPAGE='936'%> |
<% 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目录。用来放那些文件夹样子的小图。
相关视频
相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
热门文章 没有查询到任何记录。
最新文章
CSS优雅的公布栏源码高级CSS选择器的使用
将网站(主页)变成黑白DW设计网页时组织CSS的建议利用Dreamweaver合理优化网页元素布局22个Dreamweaver内置网页过渡特效简介
人气排行 如何用Dreamweaver制作电子相册下拉菜单全攻略-用Dreamweaver制作下拉菜单用Dreamweaver实现ASP数据库动态网站建设用Dreamweaver CS3制作下拉菜单如何在DW中插入Flash的参数详解Dreamweaver标签选择器的妙用巧用dreamweaver模板批量制作网页优化HTML代码加快网页速度
查看所有0条评论>>