📄 menu_list.asp
字号:
<!--#include file="../inc/conn.asp"-->
<%
FunCode="F999"
session("title")="菜单管理"
session("headline")="首页 -> 注册系统 -> 菜单管理"
%>
<!--#include file="../inc/head2.asp"-->
<%
ID=request("ID")
if ID="" then
session("mesg")="产品种类的ID不能为空"
Response.Redirect "../result.asp"
end if
'if request("menuAction") = "del" then
' conn.execute ("delete from menu where id='"&request("MenuID")&"'")
'end if
menuAction = request("menuAction")
select case menuAction
case "del"
conn.execute ("delete from menu where id='"&request("MenuID")&"'")
call List()
case "add_pre"
call Add_Pre()
case "add"
call Add()
call List()
case "edit_pre"
call Edit_Pre()
case "edit"
call Edit()
call List()
case else
call List()
end select
sub Edit
ID=request("ID")
newID = request("newID")
MenuID=request("MenuID")
strMenu=request("menu")
strURL=request("strURL")
listID=request("ListID")
status=request("status")
if MenuID="" or ID="" or newID="" or listID="" or strMenu="" or strURL="" or status="" then
session("mesg")="输入域都不能为空"
Response.Redirect "../result.asp"
end if
'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from menu where ID='"&MenuID&"'"
rs.open sql,conn,1,3
if rs.eof then
session("mesg")="该ID的产品不存在"
Response.Redirect "../result.asp"
end if
rs("class")=newID
rs("listID")=listID
rs("Menu")=strMenu
rs("URL")=strURL
rs("status")=status
classID=rs("class")
rs.update
rs.close
set rs=nothing
end sub
sub Edit_Pre()
call Check()
set rs=server.createobject("adodb.recordset")
sql="select * from menu where ID='"&request("MenuID")&"'"
rs.open sql,conn,1,1
if rs.eof then
session("mesg")="该ID的菜单不存在"
Response.Redirect "../result.asp"
end if
%>
<br><br><br>
<form method='POST' name="F1" action='menu_list.asp' onsubmit='return check_input()'>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=50% class='size09' align='center'>
<tr>
<td width='25%' bgcolor='#efefef'>功能编码*</td>
<td width='25%'><%=rs("ID")%>
</td>
</tr>
<tr>
<tr>
<td width='25%' bgcolor='#efefef'>功能类型*</td>
<td width='25%'>
<select name="newID">
<%set rsc = conn.execute("select * from menuclass order by listid")
do while not rsc.eof
if rsc("ID") = ID then
response.write "<option value="&rsc("ID")&" selected>"&rsc("class")&"</option>"
else
response.write "<option value="&rsc("ID")&">"&rsc("class")&"</option>"
end if
rsc.movenext
loop
rsc.close
set rsc=nothing
%>
</select>
</td>
</tr>
<tr>
<tr>
<td width='25%' bgcolor='#efefef'>顺序号*</td>
<td width='25%'>
<input type="Hidden" name="menuAction" value="edit">
<input type='hidden' class='form' name='ID' value='<%=ID%>'>
<input type='hidden' class='form' name='MenuID' value='<%=rs("ID")%>'>
<input type='text' class='form' name='listID' size='5' maxlength="5" value='<%=rs("listID")%>'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>产品*</td>
<td width='75%'><input type='text' class='form' name='menu' size='20' value='<%=rs("menu")%>'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>URL(处理程序)*</td>
<td width='75%'><input type='text' class='form' name='strURL' size='40' value='<%=rs("URL")%>'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>状态*</td>
<td width='75%'><select name="status" size="1">
<option value="1" <%if rs("status")="1" then response.write "selected" end if%>>正常</option>
<option value="0" <%if rs("status")="0" then response.write "selected" end if%>>锁定</option>
</select> 锁定表示不开展该项业务</td>
</tr>
</table>
<p align='center'><input type='submit' value='修 改' name='B1'></p>
</form>
<%
end sub
sub Add()
MenuID=request("MenuID")
strClass=request("ID")
strMenu=request("menu")
strURL=request("strURL")
listID=request("ListID")
status=request("status")
if MenuID="" or strclass="" or listID="" or strMenu="" or strURL="" or status="" then
session("mesg")="输入域都不能为空"
Response.Redirect "../result.asp"
end if
'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from menu where ID='"&MenuID&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs.close
set rs=nothing
session("mesg")="已经存在编码为["&MenuID&"]的菜单"
session("mesgtype")="mesg"
Response.Redirect "../result.asp"
end if
rs.addnew
rs("ID")=MenuID
rs("class")=strclass
rs("listID")=listID
rs("menu")=strMenu
rs("URL")=strURL
rs("status")=status
rs.update
rs.close
set rs=nothing
end sub
sub Add_Pre()
call Check()
%>
<br><br><br>
<form method='POST' name="F1" action='menu_list.asp' onsubmit='return check_input()'>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=50% class='size09' align='center'>
<tr>
<td width='25%' bgcolor='#efefef'>功能编码*</td>
<td width='25%'>
<input type="Hidden" name="menuAction" value="add">
<input type='text' class='form' name='MenuID' size='5' maxlength="5" value='F'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>显示ID*</td>
<td width='25%'>
<input type='hidden' class='form' name='ID' value='<%=ID%>'>
<input type='text' class='form' name='listID' size='5' maxlength="5" value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>菜单*</td>
<td width='75%'><input type='text' class='form' name='menu' size='20' value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>处理程序(URL)*</td>
<td width='75%'><input type='text' class='form' name='strURL' size='20' value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>状态*</td>
<td width='75%'><select name="status" size="1"><option value="1">正常</option><option value="0">锁定</option></select>锁定表示不开展该项业务</td>
</tr>
</table>
<p align='center'><input type='submit' value='增 加' name='B1'></p>
</form>
<%
end sub
sub List()
set rs=server.createobject("adodb.recordset")
sql="select * from menu where class='"&ID&"' order by listid"
rs.open sql,conn,1,1
%>
<br>
<img src='../images/dotdb.gif' width='10' height='10'>
<font color='#000000'>共计 <%=rs.recordcount%> 条记录</font>
<br><br>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=95% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>功能编号</td><td class='color01' bgcolor='#efefef'>排序</td><td class='color01' bgcolor='#efefef'>菜单</td><td class='color01' bgcolor='#efefef'>URL（处理程序）</td><td class='color01' bgcolor='#efefef'>状态</td><td class='color01' bgcolor='#efefef'>删 除</td><td class='color01' bgcolor='#efefef'>修 改</td></tr>
<%
i=1
do while not rs.eof %>
<tr><td><%=rs("ID")%></td><td><%=rs("ListID")%></td><td><%=rs("menu")%></td><td> <%=rs("URL")%></td>
<td><%if rs("status")="1" then response.write "正常" else response.write "锁定" end if %>
</td>
<form action="menu_list.asp"><input type="Hidden" name="MenuID" value="<%=rs("ID")%>"><input type="Hidden" name="menuAction" value="del"><input type="Hidden" name="ID" value="<%=ID%>"><td><input type='submit' value='删 除' name='B1' class=form></td></form>
<form action="menu_list.asp"><input type="Hidden" name="menuAction" value="edit_pre"><input type="Hidden" name="MenuID" value="<%=rs("ID")%>"><input type="Hidden" name="ID" value="<%=ID%>"><td><input type='submit' value='修 改' name='B1' class=form></td></form>
</tr>
<% i=i+1
rs.movenext
loop
%>
<tr><form method='POST' action='menu_list.asp' >
<input type="Hidden" name="menuAction" value="add_pre">
<td colspan="12" align="center"><input type="Hidden" name="ID" value="<%=ID%>"> <input type='submit' value='增 加' name='B2'></td></form>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
sub Check()
%>
<script language='JavaScript'>
<!--
function check_input()
{
f=document.F1;
if(f.MenuID.value=='')
{
alert('功能代码不能为空');
f.MenuID.focus();
return false;
}
if(f.listID.value=='')
{
alert('排序不能为空');
f.listID.focus();
return false;
}
if(isNaN(f.listID.value))
{
alert('排序只能为数字');
f.listID.focus();
return false;
}
if(f.menu.value=='')
{
alert('菜单名不能为空');
f.menu.focus();
return false;
}
if(f.strURL.value=='')
{
alert("处理程序名不能为空");
f.strURL.focus();
return false;
}
}
//-->
</script>
<%
End sub
%>
<!--#include file="../inc/bottom2.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -