📄 libinfo.asp
字号:
<!--#include file="docdb.inc"-->
<%
if "" & request.QueryString("id") = "" then
raiseErr "缺少参数id"
end if
dim intLib
dim boolFlag
dim strState
dim adoRS
intLib = CInt(Trim(request.QueryString("id")))
if "" & getLibDocById(intLib) = "" then
raiseErr "无此借阅记录"
end if
if getLibStateById(intLib) = 0 then
boolFlag = 0
strState = "申请中"
elseif getLibStateById(intLib) = 1 then
boolFlag = 1
strState = "已借出"
else
raiseErr "借阅记录状态不正确"
end if
set adoRS = getLibRSById(intLib)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="../include/tools.js"></script>
</head>
<body>
<form action="action.asp" method="get">
<input name="libid" type="hidden" value="<%=intLib%>">
<input name="op" type="hidden" value="libinfo">
<table width="95%" border="1">
<tr>
<td><div align="right">所借档案：</div></td>
<td><div align="left"><%=getDocNameById(adoRS("document"))%></div></td>
</tr>
<tr>
<td><div align="right">借阅人：</div></td>
<td><div align="left"><%=adoRS("borrower")%></div></td>
</tr>
<tr>
<td><div align="right">借出时间：</div></td>
<td><div align="left"><%=adoRS("begintime")%></div></td>
</tr>
<tr>
<td><div align="right">归还时间：</div></td>
<td><div align="left"><%=adoRS("endtime")%></div></td>
</tr>
<tr>
<td><div align="right">当前状态：</div></td>
<td><div align="left"><%=strState%></div></td>
</tr>
<tr>
<td><div align="right">经手管理员：</div></td>
<td><div align="left"><%=adoRS("lender")%></div></td>
</tr>
<tr>
<td><div align="right">借阅理由：</div></td>
<td><textarea name="textarea" cols="60" rows="12" readonly><%=adoRS("reason")%></textarea></td>
</tr>
<tr>
<td><div align="right"></div></td>
<td><div align="left">
<%
if boolFlag = 0 then
%>
<input name="submit" type="submit" value="批准"> <input name="submit" type="submit" value="不批准">
<%
elseif boolFlag = 1 then
%>
<input name="submit" type="submit" value="提醒归还"> <input name="submit" type="submit" value="归还">
<%
end if
%>
</div></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -