📄 meallist.asp
字号:
<script>
//
// 力天2002网络办公系统
// Copyright (c) 深圳市力天软件开发有限公司
// http://www.ebexpert.net
//
// 文件名 : meallist.asp
// 描述 : 快餐列表
// 版本 :
// 作者 : sky
// 最新更新 : 04/26/2001
// 备注 :
</script>
<!--#include file="const.inc"-->
<html>
<head>
<title>新增快餐</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/eintrdemo.css">
</head>
<body>
<center>
<table width="90%" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666" >
<tr><td colspan=1 bgcolor="#000000" class="heading"><font color="#ffffff"><b>定餐管理</b></font></td>
<td colspan=2 bgcolor="#000000" align=right><a href="addrule.asp"><font color="white">定餐之约</font></a></td>
</tr>
<%
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from Adminmeal ",conn,3,1
do while not rs.EOF
%>
<tr bgcolor="#FFFFFF">
<td><%=trim(rs("mealname"))%></td>
<td><a href="modmeal.asp?mealid=<%=rs("mealid")%>">修改</a></td>
<td><a href="Javascript:DelChk(<%=rs("mealid")%>);">删除</a></td>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
<form action="addmeal.asp" onsubmit="return subchk();" method=post name="form1">
<table width="90%" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666" >
<tr>
<td bgcolor="#EFEFEF">快餐名称：</td>
<td bgcolor="#FFFFFF">
<input size=20 maxlength=30 name="mealName"> <input type="submit" value="添加" name="sub1">
</td>
</tr>
</table>
</form>
</center>
</body>
</HTML>
<script language="javascript">
function subchk()
{
if(form1.mealName.value=="")
{
alert("名称不能为空！");
return false;
}
else
return true;
}
function DelChk(mealid)
{
if(confirm("您确信删除该记录吗？"))
document.location="delmeal.asp?channelid=<%=channelid%>&mealid="+mealid ;
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -