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  
%>