📄 menuclass_list.asp
字号:
<!--#include file="../inc/conn.asp"-->
<%
FunCode="F999"
session("title")="菜单类别管理"
session("headline")="首页 -> 注册系统 -> 菜单类别管理"
%>
<!--#include file="../inc/head2.asp"-->
<%
menuAction = request("menuAction")
select case menuAction
case "del"
conn.execute ("delete from menu where class='"&request("ID")&"'")
conn.execute ("delete from menuclass where ID='"&request("ID")&"'")
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")
strclass=request("strclass")
image=request("image")
listID=request("ListID")
if ID="" or listID="" or strclass="" then
session("mesg")="输入域都不能为空"
Response.Redirect "../result.asp"
end if
'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from menuClass where id='"&ID&"'"
rs.open sql,conn,1,3
if rs.eof then
session("mesg")="该ID的菜单类型不存在"
Response.Redirect "../result.asp"
end if
rs("listID")=listID
rs("class")=strClass
rs("image")=image
rs.update
rs.close
set rs=nothing
end sub
sub Edit_Pre()
call Check()
ID=request("ID")
if ID="" then
session("mesg")="菜单类别ID不能为空"&ID
Response.Redirect "../result.asp"
end if
set rs=server.createobject("adodb.recordset")
sql="select * from menuClass where ID='"&request("ID")&"'"
rs.open sql,conn,1,1
%>
<br><br><br>
<form method='POST' name="F1" action='menuClass_list.asp?menuAction=edit' onsubmit='return check_input()'>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=40% class='size09' align='center'>
<tr>
<td width='25%' bgcolor='#efefef'>类别代码*</td>
<td width='25%'>
<input type='hidden' class='form' name='ID' value='<%=rs("ID")%>'>
<%=rs("ID")%>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>类别*</td>
<td width='25%'><input type='text' class='form' name='strclass' size='20' value='<%=rs("class")%>'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>标题图片*</td>
<td width='25%'><input type='text' class='form' name='image' size='20' value='<%=rs("image")%>'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>排序*</td>
<td width='25%'>
<input type='text' class='form' name='listID' size='5' maxlength="5" value='<%=rs("listID")%>'></td>
</tr>
</table>
<p align='center'><input type='submit' value='修 改' name='B1'></p>
</form>
<%rs.close
set rs=nothing
end sub
sub Add()
ID=request("ID")
strclass=request("strclass")
image=request("image")
listID=request("ListID")
if ID="" or listID="" or strclass="" or listID="" then
session("mesg")="输入域都不能为空"
Response.Redirect "../result.asp"
end if
'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from menuClass where ID='"&ID&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs.close
set rs=nothing
session("mesg")="已经存在编码为["&ID&"]的菜单类别"
session("mesgtype")="mesg"
Response.Redirect "../result.asp"
end if
rs.addnew
rs("ID") = ID
rs("listID")=listID
rs("class")=strClass
rs("image")=image
rs.update
rs.close
set rs=nothing
end sub
sub Add_Pre()
call Check()
%>
<br><br><br>
<form method='POST' name="F1" action='menuClass_List.asp' onsubmit='return check_input()'>
<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3
cellspacing=0 width=40% 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='ID' size='5' maxlength="5" value='F'></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>类别*</td>
<td width='25%'><input type='text' class='form' name='strclass' size='20' value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>标题图片*</td>
<td width='25%'><input type='text' class='form' name='image' size='20' value=''></td>
</tr>
<tr>
<td width='25%' bgcolor='#efefef'>排序*</td>
<td width='25%'>
<input type='text' class='form' name='listID' size='5' maxlength="5" value=''></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 menuclass 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=88% 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'>标题图片</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("class")%></td><td> <%=rs("image")%></td>
<form action="menuClass_list.asp"><input type="Hidden" name="ID" value="<%=rs("ID")%>"><input type="Hidden" name="MenuAction" value="del"><td><input type='submit' value='删 除' name='B1' class=form></td></form>
<form action="menuClass_list.asp"><input type="Hidden" name="menuAction" value="edit_pre"><input type="Hidden" name="ID" value="<%=rs("ID")%>"><td><input type='submit' value='修 改' name='B1' class=form></td></form>
<form action="menu_list.asp"><input type="Hidden" name="ID" value="<%=rs("ID")%>"><td><input type='submit' value='下一级' name='B1' class=form></td></form></tr>
<% i=i+1
rs.movenext
loop
%>
<tr><form method='POST' action='menuClass_list.asp' >
<input type="Hidden" name="menuAction" value="add_pre">
<td colspan="7" align="center"> <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.ID.value=='')
{
alert('类别编码不能为空');
f.ID.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.strclass.value=='')
{
alert('菜单类别不能为空');
f.strclass.focus();
return false;
}
}
//-->
</script>
<%
End Sub
%>
<!--#include file="../inc/bottom2.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -