📄 m_order.asp
字号:
<!-- #include File=../../showsort/showsort(meeting).asp -->
<% set rs1=server.createobject("ADODB.Recordset")
rs1.Open "Select * from meeting_main where id='"&request("id")&"'",source,3,3
if request("submit")="申请预订" then
set rs2=server.createobject("ADODB.Recordset")
rs2.Open "Select * from meeting_use",source,3,3
rs2.addnew
rs2("id")=request("id")
rs2("name")=rs1("name")
rs2("man")=session("name")
rs2("excuse")=request("excuse")
a=DateSerial(cint(request("yy1")),cint(request("mm1")),cint(request("dd1")))
b=DateSerial(cint(request("yy2")),cint(request("mm2")),cint(request("dd2")))
rs2("first_date")=a&" "&request("xx1")&":"&"00"&":"&"00"
rs2("last_date")=b&" "&request("xx2")&":"&"59"&":"&"00"
rs2.update
'-------判断拥有会议室管理模块的管理组
car="car"
set rs4=server.createobject("adodb.recordset")
rs4.open "select * from manage_page where pagename='"&car&"'",source,3,3
if not rs4.eof then
carid=rs4("id")
set rs3=server.createobject("ADODB.Recordset")
rs3.open "select groupid from manage_pagegroup where sort=3 and groupid<>1 and pageid="&carid,source,3,3
while not rs3.eof
groupid=rs3("groupid")
set rs8=server.createobject("ADODB.Recordset")
rs8.Open "Select userid from manage_usergroup where groupid='"&groupid&"'",source,3,3
while not rs8.eof
set rs5=server.createobject("ADODB.Recordset")
rs5.Open "imail_chit",source,3,3
rs5.addnew
rs5("udate")=now()
rs5("tuserid")=rs8("userid")
rs5("url")="resource/meeting/m_manage.asp"
rs5("body")=rs2("man")&"申请使用"&rs2("name")&",请审批"
rs5.update
rs8.movenext
wend
rs8.close
rs3.movenext
wend
rs3.close
end if
rs4.close
%>
<script language="JavaScript">
alert("添加成功");
window.location="m_order.asp?id=<%=request("id")%>";
</script>
<%end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PMIS</title>
<LINK href="../../<%=session("color")%>.css" rel=stylesheet type=text/css>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<!-- #include File=../../include/title2.asp -->
</center>
</div>
<div align="center">
<center>
<table width="100%" cellspacing cellpadding>
<tr>
<td width="20%" class="Titletd1" height="365" valign="top">
<table width="158" cellspacing cellpadding class="L2">
<tr>
<td height="10" colspan="3" class="bgcolor4"></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">办公用品</font></a></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../office/o_index.asp"><font color="#FFFFFF">>
办公用品列表</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../office/o_pathlist.asp"><font color="#FFFFFF">>
申请流程设定</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../office/o_deptwait.asp"><font color="#FFFFFF">>
待批办公用品</font></a></td>
</tr> <tr class="bgcolor2"> <td></td> <td></td> <td><a href="../office/o_deptlist.asp"><font color="#FFFFFF">> 部门办公用品</font></a></td> </tr> <tr class="bgcolor4"> <td width="18%"></td> <td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">文档管理</font></a></td> </tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../file/f_index.asp"><font color="#FFFFFF">>
查看文档</font></a><a href="allforums.asp?action=all"></a><a href="../schedule/s_menu_wait.asp"></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../file/f_adddept.asp"><font color="#FFFFFF">> 新建文档</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../file/f_setsort.asp"><font color="#FFFFFF">>
设置文档</font></a><font color="#FFFFFF"></font></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../file/f_search.asp"><font color="#FFFFFF">> 检索文档</font></a></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">图书管理</font></a></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../book/b_index.asp"><font color="#FFFFFF">>
查看图书</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../book/b_add1.asp"><font color="#FFFFFF">> 添加图书</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../book/b_doapply1.asp"><font color="#FFFFFF">>
管理图书</font></a><a href="findplacard.asp"></a></td>
</tr>
<tr class="bgcolor4">
<td width="18%"></td>
<td width="82%" colspan="2"><font color="#FFFFFF">::::</font> <a href="#"><font color="#FFFFFF">车辆管理</font></a></td>
</tr>
<tr class="bgcolor2">
<td width="18%"></td>
<td width="16%"></td>
<td width="66%"><a href="../car/c_list.asp"><font color="#FFFFFF">>
查看车辆</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../car/c_add.asp"><font color="#FFFFFF">> 添加车辆</font></a></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -