📄 m_audmit.asp
字号:
<!-- #include File=../../showsort/showsort(meeting).asp -->
<%if sort<=2 then%>
<script language="JavaScript">
alert("对不起，您没有权限！！");
window.history.back();
</script>
<%end if%>
<% set rs4=server.createobject("ADODB.Recordset")
rs4.Open "Select * from meeting_use where idd='"&request("idd")&"'",source,3,3
first_date=rs4("first_date")
last_date=rs4("last_date")
set rs1=server.createobject("ADODB.Recordset")
rs1.Open "Select * from meeting_main where id='"&rs4("id")&"'",source,3,3
if request("submit")=1 then
set rs7=server.createobject("ADODB.Recordset")
rs7.Open "Select * from meeting_use where name='"&rs4("name")&"' and idd<>'"&request("idd")&"' and sign=1",source,3,3
do while not rs7.eof
'----判断申请的开始时间是否早过已批的开始时间
a=datediff("h",rs7("first_date"),first_date)
'----判断申请的结束时间是否早过已批的结束时间
b=datediff("h",rs7("last_date"),last_date)
'----判断申请的开始时间是否早过已批的结束时间
c=datediff("h",rs7("last_date"),first_date)
'----判断申请的结束时间是否早过已批的开始时间
d=datediff("h",rs7("first_date"),last_date)
if a>=0 and d>=0 then
tttt=""
elseif c<=0 and b<=0 then
tttt=""
else
ttt="有冲突"
end if
if ttt="有冲突" then
response.write"对不起，这段时间会议室已有通过审批的预定或是正在使用！"
response.end
end if
rs7.movenext
loop
rs7.close%>
<%set rs2=server.createobject("ADODB.Recordset")
rs2.Open "Select * from meeting_use where idd='"&request("idd")&"'",source,3,3
rs2("sign")=1
rs2("doman")=session("name")
rs2.update
set rs6=server.createobject("ADODB.Recordset")
rs6.Open "Select * from manage_user where name='"&rs4("man")&"'",source,3,3
set rs5=server.createobject("ADODB.Recordset")
rs5.Open "Select * from imail_chit",source,3,3
rs5.addnew
rs5("udate")=now()
rs5("tuserid")=rs6("id")
rs5("body")="您使用会议室的申请已通过审批"
rs5.update
set rs_r=server.createobject("ADODB.Recordset")
rs_r.open "select * from manage_mark where 1>2",source,3,3
rs_r.addnew
rs_r("sourceid")=session("userid")
rs_r("date")=now
rs_r("operationid")=16
rs_r("object")=rs1("name")
rs_r("object2")=rs6("name")
rs_r.update
rs_r.close
%>
<script language="JavaScript">
alert("审批成功");
window.location="m_manage.asp";
</script>
<%end if%>
<%if request("submit")=2 then
set rs6=server.createobject("ADODB.Recordset")
rs6.Open "Select * from manage_user where name='"&rs4("man")&"'",source,3,3
set rs5=server.createobject("ADODB.Recordset")
rs5.Open "Select * from imail_chit",source,3,3
rs5.addnew
rs5("udate")=now()
rs5("tuserid")=rs6("id")
rs5("body")="您使用会议室的申请未通过审批"
rs5.update
set rs2=server.createobject("ADODB.Recordset")
rs2.Open "Select * from meeting_use where idd='"&request("idd")&"'",source,3,3
rs2.delete
%>
<script language="JavaScript">
alert("审批成功");
window.location="m_manage.asp";
</script>
<%
response.end
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>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../car/c_manage.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="../meeting/m_list.asp"><font color="#FFFFFF">>
查看会议室</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td><a href="../meeting/m_add.asp"><font color="#FFFFFF">> 添加会议室</font></a></td>
</tr>
<tr class="bgcolor2">
<td></td>
<td></td>
<td align="left"><a href="../meeting/m_manage.asp"><font color="#FFFFFF">>
管理会议室</font></a></td>
</tr>
<tr class="bgcolor4">
<td colspan="3" height="80"></td>
</tr>
</table></td>
<td width="1%" bgcolor="#FFFFFF"></td>
<td width="79%" bgcolor="#FFFFFF" valign="top">
<table width="100%" cellspacing cellpadding>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%">
<table width="100%" cellspacing cellpadding>
<tr>
<td width="100%" height="25" style="background-image: url('../../images/<%=session("color")%>/resource.gif'); background-repeat: no-repeat">
<font color="#000080"> 企业资源</font>
会议室使用审批</td>
</tr>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%" height="10">
<form name="form1" >
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC" align="center" class="L2">
<tr>
<td width="12%">会议室名称</td>
<td width="20%"> <%if rs1("name")<>"" then%> <%=rs1("name")%>
<%else%> <%end if%> </td>
<td width="14%">申请者</td>
<td width="54%"><%=rs4("man")%></td>
</tr>
<tr>
<td width="12%">简要描述</td>
<td title="<%=rs1("describe")%>" colspan="3"> <%if rs1("describe")<>"" then%>
<%=left(rs1("describe"),10)%>.. <%else%>
<%end if%> </td>
</tr>
<tr>
<td width="12%" height="27">使用时间</td>
<td " colspan="3" height="27"> <%=rs4("first_date")%>-<%=rs4("last_date")%>
</td>
</tr>
<tr>
<td width="12%" valign="top">申请原因</td>
<td title="<%=rs1("describe")%>" colspan="3"><%=rs4("excuse")%></td>
</tr>
<%set rs3=server.createobject("ADODB.Recordset")
rs3.Open "Select * from meeting_use where name='"&rs1("name")&"' and idd<>'"&request("idd")&"'",source,3,3
do while not rs3.eof
a=datediff("h",now(),rs3("last_date"))
if a>=0 then
%>
<tr>
<td width="12%" valign="top" height="19">已有申请</td>
<td title="<%=rs1("describe")%>" height="19" colspan="3">申请者：<%=rs3("man")%>
申请使用时间：<%=rs3("first_date")%>-<%=rs3("last_date")%>
<%if rs3("sign")=0 then%> 还未审批 <%else%> 已获审批 <%end if %>
</td>
</tr>
<%end if
rs3.movenext
loop
rs3.close
rs4.close
%>
</table>
<div align="right">
<input type="hidden" name="submit" value="">
<input type="hidden" name="id" value="<%=request("id")%>">
<input type="hidden" name="idd" value="<%=request("idd")%>">
<input type="image" border="0" name="submit1" src="../../images/i_button_31.gif" width="61" height="18" onClick="form1.submit.value=1">
<input type="image" border="0" name="submit2" src="../../images/i_button_32.gif" width="61" height="18" onClick="form1.submit.value=2">
</div>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<!-- #include File=../../include/last2.asp -->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -