📄 disp.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=session("oabusyname")
oabusyusername=session("oabusyusername")
oabusyuserdept=session("oabusyuserdept")
oabusyuserlevel=session("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title>档案管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../inc/css.asp" -->
<% '定义变量
'response.end
on error resume next
dim image,title,Number,rs2
Number=cint(request("Number"))
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
SET rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open "select * from doclend where vnumber='" & rs("vnumber") & "'",Session("conn"),1,1
title="档案信息"
image="../images/document.gif"
%>
<style>
.css0{border:none;}
</style>
</head>
<body>
<form name="submitinput" method="post" action="">
<!-- #include file="../inc/title.asp" -->
<%'if mid(Session("qx"),162,1)="1" then %>
<table cellspacing=0 cellpadding=0 width=95% border=0 class=vtext align="center">
<tbody>
<tr>
<td>
<p class=p10 align=left><a href="lendedit.asp?opFlag=cmdlend&Number=<%=Number%>"><font color="#FF0000">借阅</font></a></p>
</td>
</tr>
</tbody>
</table>
<%'end if%>
<table cellspacing=1 cellpadding=2 width=95% bgcolor=<%=Session("vtablebordercolor")%> border=0 class=vtext align="center">
<tr>
<td width="83" height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>档案编号:</td>
<td colspan="3" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("vnumber")%></td>
<td width="83" bgcolor=<%=Session("vtabletitlebackcolor")%>>档案时间:</td>
<td class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("doctime")%></td>
</tr>
<tr>
<td width="83" height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>档案名称:</td>
<td colspan="5" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("vtitle")%></td>
</tr>
<tr>
<td width="83" height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>档案类型:</td>
<td colspan="5" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("vstyle")%></td>
</tr>
<tr>
<td width="83" height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>存放位置:</td>
<td colspan="5" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("saveurl")%></td>
</tr>
<tr>
<td width="83" height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>原件:</td>
<td width="138" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("former")%>份</td>
<td width="71" bgcolor=<%=Session("vtabletitlebackcolor")%>>复件:</td>
<td width="105" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("again")%>份</td>
<td width="83" bgcolor=<%=Session("vtabletitlebackcolor")%>>附件:</td>
<td width="204" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("affix")%>份</td>
</tr>
<tr>
<td width="83" height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>交文人:</td>
<td colspan="3" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("deal")%></td>
<td class=p9 bgcolor=<%=Session("vtabletitlebackcolor")%>>收文人:</td>
<td class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("vauthor")%></td>
</tr>
<tr>
<td width="83" height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>保存期限:</td>
<td class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("saveyear")%>年</td>
<td width="71" bgcolor=<%=Session("vtabletitlebackcolor")%>>密级:</td>
<td class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("secret")%></td>
<td width="83" bgcolor=<%=Session("vtabletitlebackcolor")%>>归档时间:</td>
<td class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("vtime")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>档案简介:</td>
<td colspan="5" class=p9 bgcolor=<%=Session("vcolcolor")%>><%=rs("vtext")%> </td>
</tr>
<%if not(rs2.eof or rs2.bof) then%>
<tr>
<td height="25" align="right" bgcolor=<%=Session("vtabletitlebackcolor")%>>借阅记录:</td>
<td colspan="5" class=p9 bgcolor=<%=Session("vcolcolor")%>> <table width="100%" border="0" cellspacing="1" cellpadding="1" class=vtext bgcolor="<%=Session("vtablebordercolor")%>" >
<tr align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" >
<td>借阅人</td>
<td>档案形式</td>
<td>借出时间</td>
<td>归还时间</td>
<td>批准人</td>
<td>用途</td>
</tr>
<% while not rs2.eof
response.write("<tr bgcolor='ffffff'><td>" & rs2("lend") & " </td>")
response.write("<td>" & rs2("docstyle") & " </td>")
response.write("<td>" & rs2("lendtime") & " </td>")
response.write("<td>" & rs2("returntime") & " </td>")
response.write("<td>" & rs2("pass") & " </td>")
response.write("<td>" & rs2("uses") & " </td></tr>")
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
</table>
</td>
</tr>
<%end if%>
</table>
<p align=center> <button style="height=24" onClick="window.location.href='print.asp?Number=<%=Number%>'" class=vinputbutton><img src="../images/print.gif" align="absmiddle"> 打印</button>
<button style="height=24" onClick=javascript:history.go(-2) class=vinputbutton><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
</form>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -