📄 addmeal.asp
字号:
<script>
//
// 力天2002网络办公系统
// Copyright (c) 深圳市力天软件开发有限公司
// http://www.ebexpert.net
//
// 文件名 : addmeal.asp
// 描述 : 新增
// 版本 :
// 作者 : sky
// 最新更新 : 04/26/2001
// 备注 :
</script>
<!--#include file="const.inc"-->
<%
if meal_Admin<>1 then
Response.Write "对不起,您没有权限!"
Response.End
end if
mealName=trim(request("mealName"))
set rs=server.CreateObject ("adodb.recordset")
rs.Open "select * from Adminmeal where mealname='"&mealName&"'",conn,3,1
if not rs.EOF then
%>
<script language="javascript">
alert("库里有该记录,不能作添加!");
history.go(-1);
</script>
<%
else
sql="insert into Adminmeal(mealName) values('"& mealName &"')"
conn.Execute sql
Response.Write "添加成功,请<a href='meallist.asp'>返回</a>"
end if
conn.Close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -