submeal.asp

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

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

if createtime>lunchTime then	lunch=0
if createtime>supperTime then   supper=0	
set rs=server.createobject("adodb.recordset")
sql="select password from userinf where username='" & userid & "' and password='" & pwd & "'"
set rs=conn.execute(sql)

if rs.eof then
  response.write "<script> alert(""用户不存在，或密码错误"");   history.go(-1); </script>"
  response.end
end if 
rs.Close 
     
if createtime<lunchTime then
	rs.open "select * from submeal where userid='" & userid & "' and vdate=#"& vdate &"#",conn,3,1
	if rs.eof then
		conn.Execute "insert into submeal (userid,lunch,supper,vdate)   values ('" & userid & "'," & lunch & "," & supper & ",#"& vdate & "#)"
'		conn.Execute "insert into submeal (userid,lunch,supper,vdate)   values ('" & userid & "'," & lunch & "," & supper & ",#"&"convert(datetime,'" & vdate & "' )"&"#)"
	else
		conn.Execute "update submeal set lunch=" & lunch & ",supper=" & supper & " where userid='" & userid & "'  and vdate=#"& vdate &"#"
	end if	
	rs.close
end if
if createtime>lunchTime and createtime<supperTime then
	rs.open "select * from submeal where userid='" & userid & "' and vdate=#" & vdate & "#",conn,3,1
	if rs.eof then
		conn.Execute "insert into submeal (userid,lunch,supper,vdate)   values ('" & userid & "',0," & supper & ",#" & vdate & "#)"
	else
		conn.Execute "update submeal set supper=" & supper & " where userid='" & userid & "'  and vdate=#" & vdate & "#"
	end if	
	rs.close
end if
%>
<script language="javascript">
	alert("定餐成功！");
	document.location ="showmeal.asp"
</script>
<%
set rs=nothing
set conn=nothing
%>