cancel.asp

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

<script>
// 
// 	        	力天2002网络办公系统
//          Copyright (c) 深圳市力天软件开发有限公司
//                   http://www.ebexpert.net
//
//  文件名       : cancel.asp
//  描述         : 取消定餐
//  版本         : 
//  作者         : sky
//  最新更新     : 04/26/2001
//  备注         :
</script>
<!--#include file="const.inc"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
 userid=oabusyusername

 style=request("style")
 if style="lunch" then
	if createTime<lunchTime then
		sql="update submeal set lunch=0 where userid='" & userid & "' and vdate=#" & vdate & "#"
		conn.execute sql
		Response.Write "<center><br><br>成功取消午餐！<a href='showmeal.asp'><font color=blue>返回</font></a></center>" 
	else
		Response.Write "<center><br><br>因过时，取消失败！<a href='showmeal.asp'><font color=blue>返回</font></a></center>" 
	end if
 else
	if createTime<supperTime then
		sql="update submeal set supper=0 where userid='" & userid & "' and vdate=#" & vdate & "#"
		conn.execute sql
		%>
		<script language="javascript">
		document.location.href="showmeal.asp";
		</script>
		<%else
		Response.Write "<center><br><br>因过时，取消失败！<a href='showmeal.asp'><font color=blue>返回</font></a></center>" 
	end if 
 end if
%>