📄 docinfo.asp
字号:
<!--#include file="docdb.inc"-->
<%
if "" & request.QueryString("id") = "" then
raiseErr "缺少参数id"
end if
dim intDoc
dim boolFlag
dim adoRS
intDoc = Trim(request.QueryString("id"))
if "" & getAttrById(intDoc) = "" then
raiseErr "无此档案"
end if
if getAttrById(intDoc) = 1 then
boolFlag = 1
else
boolFlag = 0
end if
set adoRS = getRSById(intDoc)
%>
<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 name="form" method="post" action="action.asp">
<table width="95%" border="1">
<tr>
<td width="22%"><div align="right">档案名称：</div></td>
<td width="78%"><div align="left">
<%=adoRS("name")%>
</div></td>
</tr>
<tr>
<td><div align="right">所属机构：</div></td>
<td><div align="left">
<%
if boolFlag = 0 then
%>
<select name="dept">
<%
writeDeptListOption adoRS("dept")
%>
</select>
<%
else
response.Write adoRS("dept")
end if
%>
</div></td>
</tr>
<tr>
<td><div align="right">年度：</div></td>
<td><div align="left">
<%
if boolFlag = 0 then
%>
<select name="docyear">
<%
writeYearOption adoRS("docyear")
%>
</select>
<%
else
response.Write adoRS("docyear")
end if
%>
</div></td>
</tr>
<tr>
<td><div align="right">保存类型：</div></td>
<td>
<%
if boolFlag = 0 then
if adoRS("timelimit") = 0 then
%>
<select name="timelimit">
<option value="0" selected>短期</option>
<option value="1">长期</option>
</select>
<%
else
%>
<select name="timelimit">
<option value="0">短期</option>
<option value="1" selected>长期</option>
</select>
<%
end if
else
if adoRS("timelimit") = 0 then
response.Write("短期")
else
response.Write("长期")
end if
end if
%>
</td>
</tr>
<tr>
<td height="120"><div align="right">备注说明：</div></td>
<td><div align="left">
<%
if boolFlag = 0 then
%>
<textarea name="note" cols="60" rows="8"><%=adoRS("note")%></textarea>
<%
else
%>
<textarea name="note" cols="60" rows="8" readonly><%=adoRS("note")%></textarea>
<%
end if
%>
<input name="id" type="hidden" value="<%=intDoc%>">
</div></td>
</tr>
<%
if boolFlag = 1 then
response.Write "<tr><td><div align='right'>借阅人：</div></td><td>"
response.Write "" & getDocBorrowerById(intDoc)
response.Write "</td></tr>"
end if
%>
<tr>
<td height="25"> </td>
<td>
<%
if boolFlag = 0 then
if isWritableForDocCls(getDocClsById(intDoc)) = 1 then
%>
<input name="op" type="hidden" value="updateDoc">
<input type="submit" name="Submit" value="更新信息"> <input type="submit" name="Submit" value="归档"> <input type="button" name="golist" value="返回档案库" onClick="javascript:gotourl('doclist.asp?docclass=<%=getDocClsById(intDoc)%>')">
<%
end if
else
%>
<input name="op" type="hidden" value="setAttrOut"><br>
<%
if isWritableForDocCls(getDocClsById(intDoc)) = 1 then
%>
<input type="submit" name="Submit" value="移出档案库">
<%
end if
%>
<input type="button" name="lend" value="借阅" onClick="javascript:gotourl('addlibinfo.asp?docid=<%=intDoc%>')">
<input type="button" name="back" value="返回" onClick="goback()">
<%
end if
%>
</td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -