跟我学做树型菜单(四)
续上篇
上一篇中，我们实现了树型菜单的显示，通过一个递归的子程序来
实现的。现在我们给它加上简单的管理功能，功能参看第一篇中的功能
设计，主要功能有：增加、删除、修改。
一、设计思路
为了在一个ASP文件中实现显示和管理的功能，我们加上一个变量来
判断所要做的操作，用action表示动作，显示增加的表单时 action=add,
执行增加时action=doadd ;显示删除表单时 action=del,执行删除时
action=dodel;显示修改表单时 action=mod ,执行修改时action=domod
没有任何参数则表示显示。另外再加上一个参数id，来表示动作的目标。
注意，这里增加是指在id这条记录下增加一个子菜单。id和action变量直接
用URL来提交，就是get的方法，这样可以直接用下面的方式调用，比如要修改
id为14的这条记录，可以用如下的链接：
<a href='index.asp?action=mod&id=14'>修改</a>
其中index.asp是网页的文件，如果你的文件名不是index.asp，请自行
修改。
在程序的最开始，我们先判断action是否有值，如果有，就转到相应
的子程序进行处理，处理后转到显示的页面。为了通用，文件名不直接给出，
而是在程序中获取当前的文件名。
二、简单流程
有了设计思路，我们先来写出简单的流程，如下：
<%'引用包含文件%>
<!--#include file="operation$db.asp" -->
<%
'获取action和id变量
action=request.querystring("action")
id=request.querystring("id")
'获取当前文件名
scr=Request.ServerVariables("SCRIPT_NAME")
opendb my '打开数据库连接
'用一个select case 根据action的值转到相应的子程序，这里都是执行部份
select case action
case "doadd"
doadd() '执行增加子程序 doadd
case "domod"
domodify() '执行修改子程序 domodify
case "dodel"
dodelete() '执行删除子程序 dodelete
end select
'执行增加子程序
sub doadd()
end sub
'执行修改子程序
sub domodify()
end sub
'执行删除子程序
sub dodelete()
end sub
'因为执行部份最后都要转向，所以写在<html>的前面，下面是网页HTML部份
%>
<html>
<head>
'这里加入JS脚本，替换这一句
</head>
<body>
<%
'在这里还要判断action的值是否为显示动作表单
if action="" then
'action的值已经在最开始就得到了；下面这几行是原来就有的。
dim i,l,r,cellid,ph
dim cellida,cellidb,cellidc
l=0
r=0
br=vbcrlf
distree(0)
end if
'判断是不是要显示动作表单，是就转到子程序
select case action
case "add"
showadd '显示增加表单
case "mod"
showmodify '显示修改表单
case "del"
showdel '显示删除表单
end select
closedb my '关闭数据库连接
%>
<%
'下面开始都是子程序
'显示增加表单
sub showadd()
end sub
'显示修改表单
sub showmodify()
end sub
'显示删除表单
sub showdel()
end sub
'别忘了原来的显示树型菜单的子程序
sub distree(id)
end sub
%>
</body>
</html>
三、写入代码
现在把整个流程都已经定好了，就差子程序的内容了。下面一个一个来加进去，
先来加入显示表单的，这样可以先定好表单中传递过来的参数。
显示增加表单：
sub showadd()
%>
<table width="400" border="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="top">
<form name="add" method="post" action="<%=scr%>?action=doadd&id=<%=id%>">
<table border="1" cellspacing="0" cellpadding="0" bgcolor="#99CC99" width="400" class="s12">
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">ID:</td>
<td width="120" height="30" class="tt">-</td>
<td width="80" height="30" align="right" class="tt">父节点:</td>
<td width="120" height="30" class="tt"><%=id%></td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">子节点:</td>
<td width="120" height="30" class="tt">0</td>
<td width="80" height="30" align="right" class="tt">文字:</td>
<td width="120" height="30" class="tt">
<input type="text" name="txt" size="15" maxlength="50" class="txtbox">
</td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">链接:</td>
<td colspan="2" height="30" class="tt">
<input type="text" name="link" size="25" maxlength="50" class="txtbox">
</td>
<td width="120" height="30" align="center" class="tt">
<input type="submit" name="Submit" value="增加">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end sub
显示修改表单：
sub showmodify()
sql="select * from treemenu where id="&id
searchtable my,sql,rs
if not rs.eof then
%>
<table width="400" border="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="top">
<form name="mod" method="post" action="<%=scr%>?action=domod&id=<%=id%>">
<table border="1" cellspacing="0" cellpadding="0" bgcolor="#99CC99" width="400" class="s12">
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">ID:</td>
<td width="120" height="30" class="tt"><%=rs("id")%></td>
<td width="80" height="30" align="right" class="tt">父节点:</td>
<td width="120" height="30" class="tt"><%=rs("par_id")%></td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">子节点:</td>
<td width="120" height="30" class="tt"><%=rs("chi_id")%></td>
<td width="80" height="30" align="right" class="tt">文字:</td>
<td width="120" height="30" class="tt">
<input type="text" name="txt" size="15" value="<%=rs("txt")%>" maxlength="50" class="txtbox">
</td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">链接:</td>
<td colspan="2" height="30" class="tt">
<input type="text" name="link" size="25" value="<%=rs("link")%>" maxlength="50" class="txtbox">
</td>
<td width="120" height="30" align="center" class="tt">
<input type="submit" name="Submit3" value="修改">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end if
closetable rs
end sub
显示删除表单：
sub showdel()
sql="select * from treemenu where id="&id
searchtable my,sql,rs
if not rs.eof then
%>
<table width="402" border="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="top" width="400">
<form name="del" method="post" action="<%=scr%>?action=dodel&id=<%=id%>">
<table border="1" cellspacing="0" cellpadding="0" bgcolor="#99CC99" width="400" class="s12">
<tr valign="middle">
<td width="78" align="right" height="30" class="tt">ID:</td>
<td width="122" height="30" class="tt"><%=rs("id")%></td>
<td width="80" height="30" align="right" class="tt">父节点:</td>
<td width="120" height="30" class="tt"><%=rs("par_id")%></td>
</tr>
<tr valign="middle">
<td width="78" align="right" height="30" class="tt">子节点:</td>
<td width="122" height="30" class="tt"><%=rs("chi_id")%></td>
<td width="80" height="30" align="right" class="tt">文字:</td>
<td width="120" height="30" class="tt"><%=rs("txt")%> </td>
</tr>
<tr valign="middle">
<td width="78" align="right" height="30" class="tt">链接:</td>
<td colspan="2" height="30" class="tt"><%=rs("link")%> </td>
<td width="120" height="30" align="center" class="tt">
<input type="submit" name="Submit2" value="删除">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end if
closetable rs
end sub
注意表单里面action=""的写法，文件名是引用<%=scr%> action和id参数都要在这里写入。
因为在最开始获取action和id的时候是用request.querystring的方式,这样也就不用在表
单里加入隐藏的参数了。
再来写执行的部份：
执行增加
sub doadd()
txt=request.form("txt") '获取表单中的文本
link=request.form("link") '获取表单中的链接
sql="select * from treemenu where id is null"
changetable my,sql,rs
rs.addnew '增加一个新记录
rs("par_id")=id '写入它的父菜单的id
'子菜单数为0，也可以不写，因为数据表中默认值是0
rs("chi_id")=0
rs("txt")=txt '写入文本
rs("link")=link '写入链接
rs.update '更新记录
closetable rs '关闭数据表
'下面两句是把它的父菜单的子菜单数加1
sql="update treemenu set chi_id = (chi_id+1) where id="& id
my.execute sql
closedb my '关闭数据库，因为后面要转向了。
response.redirect scr '转到没有参数的页面显示。
end sub
执行修改
sub domodify()
txt=request.form("txt") '获取表单中的文本
link=request.form("link") '获取表单中的链接
'找到这个记录
sql="select * from treemenu where id ="& id
changetable my,sql,rs
rs("txt")=txt '修改文本
rs("link")=link '修改链接
rs.update '更新记录
closedb my '关闭数据库，因为后面要转向了。
response.redirect scr
end sub
执行删除
sub dodelete()
'下面三句先得到数据表的记录数
opentable my,"treemenu",rs
recno=rs.recordcount
closetable rs
if recno=1 then
'如果整个表中只有一个记录的话，就不能删除它。
'显示一个信息，然后转到
response.write ("<script>alert('靠，只剩这一个记录了，你还删？？');window.location='<%=scr%>';</script>")
else
'找到这个记录
sql="select * from treemenu where id ="& id
changetable my,sql,rs
parid=rs("par_id") '得到它的父菜单的id
chiid=rs("chi_id") '得到它的子菜单的数目
rs.delete '删除它
rs.update '更新记录
closetable rs '关闭数据库表
'下面两句把它的父菜单的子菜单数减1
sql="update treemenu set chi_id=chi_id-1+"& chiid &" where id="& parid
my.execute sql
'下面两句把它的子菜单的父菜单改成它的父菜单
sql="update treemenu set par_id="& parid &" where par_id="& id
my.execute sql
end if
closedb my '关闭数据库，因为后面要转向了。
response.redirect scr
end sub
最后，要在显示树型菜单里显示出一些链接，用于管理。这些部份已经在上篇中写进distree子
程序里了，只是把这些语句注释了，现在可以去掉这些注释了。
四、结束语
到这里为止，整个树型菜单的显示、管理功能已经全部完成了。当然还可以加入一
些新的功能比如在第一篇中提到的管理员登录、菜单的移动、增加的时候可以指定是加入
同级的菜单还是加入子菜单还可以在distree子程序中加入一个参数，来表示显示的时候
是展开整个树，还是不展开整个树。更多的功能就留着朋友们自己去开发吧。
上一篇中，我们实现了树型菜单的显示，通过一个递归的子程序来
实现的。现在我们给它加上简单的管理功能，功能参看第一篇中的功能
设计，主要功能有：增加、删除、修改。
一、设计思路
为了在一个ASP文件中实现显示和管理的功能，我们加上一个变量来
判断所要做的操作，用action表示动作，显示增加的表单时 action=add,
执行增加时action=doadd ;显示删除表单时 action=del,执行删除时
action=dodel;显示修改表单时 action=mod ,执行修改时action=domod
没有任何参数则表示显示。另外再加上一个参数id，来表示动作的目标。
注意，这里增加是指在id这条记录下增加一个子菜单。id和action变量直接
用URL来提交，就是get的方法，这样可以直接用下面的方式调用，比如要修改
id为14的这条记录，可以用如下的链接：
<a href='index.asp?action=mod&id=14'>修改</a>
其中index.asp是网页的文件，如果你的文件名不是index.asp，请自行
修改。
在程序的最开始，我们先判断action是否有值，如果有，就转到相应
的子程序进行处理，处理后转到显示的页面。为了通用，文件名不直接给出，
而是在程序中获取当前的文件名。
二、简单流程
有了设计思路，我们先来写出简单的流程，如下：
<%'引用包含文件%>
<!--#include file="operation$db.asp" -->
<%
'获取action和id变量
action=request.querystring("action")
id=request.querystring("id")
'获取当前文件名
scr=Request.ServerVariables("SCRIPT_NAME")
opendb my '打开数据库连接
'用一个select case 根据action的值转到相应的子程序，这里都是执行部份
select case action
case "doadd"
doadd() '执行增加子程序 doadd
case "domod"
domodify() '执行修改子程序 domodify
case "dodel"
dodelete() '执行删除子程序 dodelete
end select
'执行增加子程序
sub doadd()
end sub
'执行修改子程序
sub domodify()
end sub
'执行删除子程序
sub dodelete()
end sub
'因为执行部份最后都要转向，所以写在<html>的前面，下面是网页HTML部份
%>
<html>
<head>
'这里加入JS脚本，替换这一句
</head>
<body>
<%
'在这里还要判断action的值是否为显示动作表单
if action="" then
'action的值已经在最开始就得到了；下面这几行是原来就有的。
dim i,l,r,cellid,ph
dim cellida,cellidb,cellidc
l=0
r=0
br=vbcrlf
distree(0)
end if
'判断是不是要显示动作表单，是就转到子程序
select case action
case "add"
showadd '显示增加表单
case "mod"
showmodify '显示修改表单
case "del"
showdel '显示删除表单
end select
closedb my '关闭数据库连接
%>
<%
'下面开始都是子程序
'显示增加表单
sub showadd()
end sub
'显示修改表单
sub showmodify()
end sub
'显示删除表单
sub showdel()
end sub
'别忘了原来的显示树型菜单的子程序
sub distree(id)
end sub
%>
</body>
</html>
三、写入代码
现在把整个流程都已经定好了，就差子程序的内容了。下面一个一个来加进去，
先来加入显示表单的，这样可以先定好表单中传递过来的参数。
显示增加表单：
sub showadd()
%>
<table width="400" border="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="top">
<form name="add" method="post" action="<%=scr%>?action=doadd&id=<%=id%>">
<table border="1" cellspacing="0" cellpadding="0" bgcolor="#99CC99" width="400" class="s12">
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">ID:</td>
<td width="120" height="30" class="tt">-</td>
<td width="80" height="30" align="right" class="tt">父节点:</td>
<td width="120" height="30" class="tt"><%=id%></td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">子节点:</td>
<td width="120" height="30" class="tt">0</td>
<td width="80" height="30" align="right" class="tt">文字:</td>
<td width="120" height="30" class="tt">
<input type="text" name="txt" size="15" maxlength="50" class="txtbox">
</td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">链接:</td>
<td colspan="2" height="30" class="tt">
<input type="text" name="link" size="25" maxlength="50" class="txtbox">
</td>
<td width="120" height="30" align="center" class="tt">
<input type="submit" name="Submit" value="增加">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end sub
显示修改表单：
sub showmodify()
sql="select * from treemenu where id="&id
searchtable my,sql,rs
if not rs.eof then
%>
<table width="400" border="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="top">
<form name="mod" method="post" action="<%=scr%>?action=domod&id=<%=id%>">
<table border="1" cellspacing="0" cellpadding="0" bgcolor="#99CC99" width="400" class="s12">
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">ID:</td>
<td width="120" height="30" class="tt"><%=rs("id")%></td>
<td width="80" height="30" align="right" class="tt">父节点:</td>
<td width="120" height="30" class="tt"><%=rs("par_id")%></td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">子节点:</td>
<td width="120" height="30" class="tt"><%=rs("chi_id")%></td>
<td width="80" height="30" align="right" class="tt">文字:</td>
<td width="120" height="30" class="tt">
<input type="text" name="txt" size="15" value="<%=rs("txt")%>" maxlength="50" class="txtbox">
</td>
</tr>
<tr valign="middle">
<td width="80" align="right" height="30" class="tt">链接:</td>
<td colspan="2" height="30" class="tt">
<input type="text" name="link" size="25" value="<%=rs("link")%>" maxlength="50" class="txtbox">
</td>
<td width="120" height="30" align="center" class="tt">
<input type="submit" name="Submit3" value="修改">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end if
closetable rs
end sub
显示删除表单：
sub showdel()
sql="select * from treemenu where id="&id
searchtable my,sql,rs
if not rs.eof then
%>
<table width="402" border="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="top" width="400">
<form name="del" method="post" action="<%=scr%>?action=dodel&id=<%=id%>">
<table border="1" cellspacing="0" cellpadding="0" bgcolor="#99CC99" width="400" class="s12">
<tr valign="middle">
<td width="78" align="right" height="30" class="tt">ID:</td>
<td width="122" height="30" class="tt"><%=rs("id")%></td>
<td width="80" height="30" align="right" class="tt">父节点:</td>
<td width="120" height="30" class="tt"><%=rs("par_id")%></td>
</tr>
<tr valign="middle">
<td width="78" align="right" height="30" class="tt">子节点:</td>
<td width="122" height="30" class="tt"><%=rs("chi_id")%></td>
<td width="80" height="30" align="right" class="tt">文字:</td>
<td width="120" height="30" class="tt"><%=rs("txt")%> </td>
</tr>
<tr valign="middle">
<td width="78" align="right" height="30" class="tt">链接:</td>
<td colspan="2" height="30" class="tt"><%=rs("link")%> </td>
<td width="120" height="30" align="center" class="tt">
<input type="submit" name="Submit2" value="删除">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end if
closetable rs
end sub
注意表单里面action=""的写法，文件名是引用<%=scr%> action和id参数都要在这里写入。
因为在最开始获取action和id的时候是用request.querystring的方式,这样也就不用在表
单里加入隐藏的参数了。
再来写执行的部份：
执行增加
sub doadd()
txt=request.form("txt") '获取表单中的文本
link=request.form("link") '获取表单中的链接
sql="select * from treemenu where id is null"
changetable my,sql,rs
rs.addnew '增加一个新记录
rs("par_id")=id '写入它的父菜单的id
'子菜单数为0，也可以不写，因为数据表中默认值是0
rs("chi_id")=0
rs("txt")=txt '写入文本
rs("link")=link '写入链接
rs.update '更新记录
closetable rs '关闭数据表
'下面两句是把它的父菜单的子菜单数加1
sql="update treemenu set chi_id = (chi_id+1) where id="& id
my.execute sql
closedb my '关闭数据库，因为后面要转向了。
response.redirect scr '转到没有参数的页面显示。
end sub
执行修改
sub domodify()
txt=request.form("txt") '获取表单中的文本
link=request.form("link") '获取表单中的链接
'找到这个记录
sql="select * from treemenu where id ="& id
changetable my,sql,rs
rs("txt")=txt '修改文本
rs("link")=link '修改链接
rs.update '更新记录
closedb my '关闭数据库，因为后面要转向了。
response.redirect scr
end sub
执行删除
sub dodelete()
'下面三句先得到数据表的记录数
opentable my,"treemenu",rs
recno=rs.recordcount
closetable rs
if recno=1 then
'如果整个表中只有一个记录的话，就不能删除它。
'显示一个信息，然后转到
response.write ("<script>alert('靠，只剩这一个记录了，你还删？？');window.location='<%=scr%>';</script>")
else
'找到这个记录
sql="select * from treemenu where id ="& id
changetable my,sql,rs
parid=rs("par_id") '得到它的父菜单的id
chiid=rs("chi_id") '得到它的子菜单的数目
rs.delete '删除它
rs.update '更新记录
closetable rs '关闭数据库表
'下面两句把它的父菜单的子菜单数减1
sql="update treemenu set chi_id=chi_id-1+"& chiid &" where id="& parid
my.execute sql
'下面两句把它的子菜单的父菜单改成它的父菜单
sql="update treemenu set par_id="& parid &" where par_id="& id
my.execute sql
end if
closedb my '关闭数据库，因为后面要转向了。
response.redirect scr
end sub
最后，要在显示树型菜单里显示出一些链接，用于管理。这些部份已经在上篇中写进distree子
程序里了，只是把这些语句注释了，现在可以去掉这些注释了。
四、结束语
到这里为止，整个树型菜单的显示、管理功能已经全部完成了。当然还可以加入一
些新的功能比如在第一篇中提到的管理员登录、菜单的移动、增加的时候可以指定是加入
同级的菜单还是加入子菜单还可以在distree子程序中加入一个参数，来表示显示的时候
是展开整个树，还是不展开整个树。更多的功能就留着朋友们自己去开发吧。
