菜单
续上篇
上一篇中，我们实现了树型菜单的显示，通过一个递归的子程序来
实现的。现在我们给它加上简单的管理功能，功能参看第一篇中的功能
设计，主要功能有：增加、删除、修改。
一、设计思路
为了在一个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">