<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><!--#INCLUDE FILE="../HXINCLUDE/SelectDate.asp"-->
<%if WS_S.MemberPriv("WS_PublicAffairsCarApply")<>1 then HX_GoBack "对不起,您的权限不够!",""
action=request("action")
if action="saveinfo" then
ColumnName="":Tablename="HX_CarApply":CarName=request("CarName"):CarDescribe=request("CarDescribe"):Orderby=""
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
  rs.addnew
  rs("WS_CarArea")=request("cararea")
  if request("carmannum")<>"" and isnumeric(request("carmannum")) then
    rs("WS_CarManNUM")=request("carmannum")
  end if
  rs("WS_CarApplyMan")=LOGINUID
  rs("WS_CarExcuse")=request("excuse")
  rs("WS_CarRemark")=request("carremark")
  rs("WS_CarFirstDate")=request("Date1")&" "&request("xx1")&":"&"00"&":"&"00"
  rs("WS_CarLastDate")=request("Date2")&" "&request("xx2")&":"&"59"&":"&"00"
  rs("WS_CarApplyDate")=now
  rs.update
  response.write "<script>alert('申请已提交，请等待审核！');location.href='orderlist.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='orderlist.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 Carcheck(this);'><tr bgcolor='#FFFBE8'><td width='20%' height='23'>前往地点</td><td width='80%' height='23'><input type='text' name='cararea' size='42'></td></tr><tr bgcolor='#FFFBE8'><td width='20%' height='23'>用车人数</td><td width='80%' height='23'><input type='text' name='carmannum' 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='carremark' 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>"
%>