<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<!--#INCLUDE FILE="../HXINCLUDE/SelectDate.asp"-->
<%if WS_S.MemberPriv("WS_PublicAffairsMeetingApply")<>1 then HX_GoBack "对不起,您的权限不够!",""
action=request("action")
if action="saveinfo" then
ColumnName="":Tablename="HX_MeetingApply":MeetingName=request("MeetingName"):MeetingDescribe=request("MeetingDescribe"):Orderby=""
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
  rs.addnew
  rs("WS_MeetingArea")=request("Meetingarea")
  if request("Meetingmannum")<>"" and isnumeric(request("Meetingmannum")) then
    rs("WS_MeetingManNUM")=request("Meetingmannum")
  end if
  rs("WS_MeetingApplyMan")=LOGINUID:  rs("WS_MeetingExcuse")=request("excuse"):  rs("WS_MeetingRemark")=request("Meetingremark"):rs("WS_MeetingFirstDate")=request("Date1")&" "&request("xx1")&":"&"00"&":"&"00"
  rs("WS_MeetingLastDate")=request("Date2")&" "&request("xx2")&":"&"59"&":"&"00"
  rs("WS_MeetingApplyDate")=now
  rs.update
  response.write "<script>alert('申请已提交，请等待审核！');location.href='Meetingorderlist.asp';</script>"
  response.end
end if
response.Write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title></title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>会议室申请</font>　　　　　　<a href='Meetingorderlist.asp'><font color='#FFFBE8'>以往会议室申请记录</font></a></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form name='form1' method='post' action='?action=saveinfo' onSubmit='return Meetingcheck(this);'><tr bgcolor='#FFFBE8'><td width='20%' height='23'>开会地点</td><td width='80%' height='23'><input type='text' name='Meetingarea' size='42'></td></tr><tr bgcolor='#FFFBE8'><td width='20%' height='23'>开会人数</td><td width='80%' height='23'><input type='text' name='Meetingmannum' size='10' style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();'>人 <font color=FF0000>*只允许填入数字</font></td></tr><tr bgcolor='#FFFBE8'><td width='20%' height='23'>简要描述</td><td width='80%'  height='23'><input type='text' name='Meetingremark' size='42'></td></tr><tr bgcolor='#FFFBE8'><td width='20%' height='23'>使用时间</td><td width='80%'  height='23'><p><input name='Date1' type='text' value='"&date&"' size=12 readonly> <input onclick=""popUpcalendar(this, form1.Date1, 'yyyy/mm/dd')"" type='button' value='选择' title='选择开始时间'> 日                       <select name='xx1' classname='5'  size='1' ><option value='0'>00</option>"
for i=1 to 23
response.Write "<option value='"&i&"'"
  if i=hour(now()) then response.Write " selected"
  response.Write ">"
  if i<10 then	response.Write "0"&i else response.Write i
  response.Write "</option>"
next
response.Write "</select>点00分到<br><input name='Date2' type='text' value='"&date+1&"' size=12 readonly> <input onclick=""popUpcalendar(this, form1.Date2, 'yyyy/mm/dd')"" type='button' value='选择' title='选择结束时间'> 日 <select name='xx2' classname='5'  size='1' ><option value='0'>00</option>"
for i=1 to 23
response.Write "<option value='"&i&"'"
   if i=hour(now()) then response.Write " selected"
   response.Write ">"
   if i<10 then response.Write "0"&i else response.Write i
  response.Write "</option>"
 next
response.Write "</select>点59分</p></td></tr><tr bgcolor='#FFFBE8'><td width='20%' valign='top'>申请原因</td><td width='80%'><textarea rows='8' name='excuse' cols='50' class='bgLine'></textarea></td></tr><tr bgcolor='#FFFBE8'><td>&nbsp;</td><td><input type='submit' name='Submit' value=' 申 请 '> <input type='reset' name='Submit' value=' 重 输 '></td></tr></form></table></td></tr></table>"
%>