subaddrule.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<script>
// 
// 	        	力天2002网络办公系统
//          Copyright (c) 深圳市力天软件开发有限公司
//                   http://www.ebexpert.net
//
//  文件名       : subaddrule.asp
//  描述         : 定餐之约
//  版本         : 
//  作者         : sky
//  最新更新     : 04/26/2001
//  备注         :
</script>
<!--#include file="const.inc"-->
<%
if meal_Admin<>1 then
	Response.Write "对不起，您没有权限！"
	Response.End 
end if  
lunchtime=request("lunchtime")
suppertime=request("suppertime")
rules=request("rules")
 
  set rs=server.CreateObject ("adodb.recordset")
  rs.Open "select * from mealrule ",conn,3,2
  if rs.EOF  then
	conn.execute "insert into mealrule (lunchtime,suppertime,rules,editdate) values('" & lunchtime & "','" & suppertime & "','" & rules & "',now())"
  else	 
  rs("lunchtime")=lunchtime
  rs("suppertime")=suppertime
  rs("rules")=rules
  rs("editdate")=date()
  rs.Update     
 end if   
 rs.Close
 set rs=nothing
 conn.Close
 set conn=nothing   
%>    
<script language="javascript">
	alert("制定或修改成功！");
	window.close(); 
</script>