📄 b_doapply.asp
字号:
<!--#include file="../../showsort/showsort(book).asp"-->
<%if sort<2 then%>
<script language="JavaScript">
alert("对不起，您没有权限！！");
window.history.back();
</script>
<%end if%>
<%sql="select * from book_main where id='"&request("id")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,source,3,3 %> <%if request("submit")=1 then%> <% sql="select * from book_main where id='"&request("id")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,source,3,3
rs("sign")=0
rs.update
sql1="select * from book_borrow where id='"&request("id")&"'"
set rs1=server.createobject("ADODB.Recordset")
rs1.Open sql1,source,3,3
rs1("sign")=1
rs1("borrow_time")=now()
rs1.update
sql2="select * from book_main where id='"&request("id")&"'"
set rs2=server.createobject("ADODB.Recordset")
rs2.Open sql2,source,3,3
rs2("borrow")=1
rs2.update
sql3="select * from imail_chit"
set rs3=server.createobject("ADODB.Recordset")
rs3.Open sql3,source,3,3
sql4="select * from manage_user where name='"&rs1("borrow_man")&"'"
set rs4=server.createobject("ADODB.Recordset")
rs4.Open sql4,source,3,3
rs3.addnew
rs3("tuserid")=rs4("id")
rs3("body")="您想借《"&rs1("book_name")&"》已获批准，快去拿书吧！！"
rs3("udate")=now()
rs3.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")=13
rs_r("object")=rs("name")
rs_r("object2")=rs4("name")
rs_r.update
rs_r.close
rs4.close
%>
<script language="JavaScript">
alert("审批成功");
window.location="b_doapply.asp?id=<%=request("id")%>";
</script>
<%end if%>
<%if request("submit")=2 then%>
<% sql="select * from book_main where id='"&request("id")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,source,3,3
rs("sign")=0
rs.update
sql1="select * from book_borrow where id='"&request("id")&"'"
set rs1=server.createobject("ADODB.Recordset")
rs1.Open sql1,source,3,3
sql3="select * from imail_chit"
set rs3=server.createobject("ADODB.Recordset")
rs3.Open sql3,source,3,3
sql4="select * from manage_user where name='"&rs1("borrow_man")&"'"
set rs4=server.createobject("ADODB.Recordset")
rs4.Open sql4,source,3,3
rs3.addnew
rs3("tuserid")=rs4("id")
rs3("body")="对不起，您想借《"&rs1("book_name")&"》未获批准！！"
rs3("udate")=now()
rs3.update
rs1.delete%>
<script language="JavaScript">
alert("取消成功");
window.location="b_doapply1.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>
<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" action="b_doapply.asp" method="post" >
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF" class="L2">
<tr>
<td width="13%">编号</td>
<td width="36%"> <%=rs("number")%> </td>
<td width="11%">书名</td>
<td width="40%"> <%=rs("name")%> </td>
</tr>
<tr>
<td width="13%">作者</td>
<td width="36%"> <%=rs("author")%> </td>
<td width="11%">单价</td>
<td width="40%"> <%=rs("price")%> </td>
</tr>
<tr>
<td width="13%">出版社</td>
<td width="36%"> <%=rs("book_concern")%> </td>
<td width="11%">出版时间</td>
<td width="40%"><%=rs("publishment_date")%></td>
</tr>
<tr>
<td width="13%">内容简介</td>
<td width="87%" colspan="3"> <%=rs("detail")%>
</td>
</tr>
<tr>
<td width="13%">申请者</td>
<td width="87%" colspan="3"> <%sql3="select * from book_borrow where id='"&rs("id")&"' and sign=0"
set rs3=server.createobject("ADODB.Recordset")
rs3.Open sql3,source,3,3
if not rs3.eof then%> <%=rs3("borrow_man")%> <%else%> <%end if %> </td>
</tr>
</table>
<h3 align="right">
<input type="hidden" name="submit" value="">
<input type="hidden" name="id" value="<%=request("id")%>">
<input type="image" border="0" name="submit2" onClick="form1.submit.value=1" src="images/r_buttom_1.gif" width="61" height="18">
<input type="image" border="0" name="submit1" onClick="form1.submit.value=2" src="images/r_buttom_2.gif" width="61" height="18">
</h3>
</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 + -