📄 print.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" -->
<% '定义变量
dim image,title,Number,rs2
Number=cint(request("Number"))
on error resume next
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="打印档案详细信息"
%>
</head>
<style>table{border:solid windowtext .5pt;border-right:none;border-bottom:none;}td{border:solid windowtext .5pt;border-left:none;border-top:none;mso-border-left-alt:solid windowtext .5pt;padding:0mm 5.4pt 0mm 5.4pt }</style>
<body style="background:none">
<form name="d" id="d" action="save.asp?opFlag=<%=opFlag%>&Number=<%=Number%>" method="post">
<table width="95%" align="center" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="15%">档案编号:</td>
<td colspan="2"><%=rs("vnumber")%> </td>
<td width="17%">档案时间:</td>
<td colspan="2"><%=rs("doctime")%> </td>
</tr>
<tr>
<td>档案名称:</td>
<td colspan="5"><%=rs("vtitle")%> </td>
</tr>
<tr>
<td>档案类型:</td>
<td colspan="5"><%=rs("vstyle")%> </td>
</tr>
<tr>
<td>存放位置:</td>
<td colspan="5"><%=rs("saveurl")%> </td>
</tr>
<tr>
<td >原件:</td>
<td width="13%" ><%=rs("former")%>份</td>
<td width="10%" >复件:</td>
<td><%=rs("again")%>份</td>
<td width="15%">附件:</td>
<td width="30%"><%=rs("affix")%>份</td>
</tr>
<tr>
<td>交文人:</td>
<td colspan="2"><%=rs("deal")%> </td>
<td>收文人:</td>
<td colspan="2"><%=rs("vauthor")%> </td>
</tr>
<tr>
<td >保存期限:</td>
<td ><%=rs("saveyear")%>年</td>
<td>密级:</td>
<td><%=rs("secret")%> </td>
<td>归档时间:</td>
<td><%=rs("vtime")%> </td>
</tr>
<tr>
<td >档案简介:</td>
<td colspan="5" align="left" ><%=rs("vtext")%> </td>
</tr>
<%if not(rs2.eof or rs2.bof) then%>
<tr>
<td >借阅记录:</td>
<td colspan="5" valign="middle" >
<table width="100%" align="center" valign="middle" border="1" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="18%">借阅人</td>
<td width="18%">档案形式</td>
<td width="16%">借出时间</td>
<td width="18%">归还时间</td>
<td>批准人</td>
<td width="30%">用途</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>
</form>
<script language=javascript>
window.print();
</script>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -