📄 print.asp
字号:
<%@LANGUAGE="VBScript"%>
<%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")
session("id")=session("oabusyname")
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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>New Page 1</title>
<%
dim Number,opFlag,title,image
'获取输入参数:记录号和操作标志
Number=request("Number")
if Number="" then Number="0"
Number=Cint(Number)
opFlag=request("opFlag")
'创建记录访问对象
Set rs = Server.CreateObject("ADODB.Recordset")
'打开记录源,并定位到输入参数决定的记录号
rs.Open Session("SQL"),Session("conn"),1,3
rs.move Number
%>
<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>
</head>
<body id=all>
<p align="center"><b><font size="5">备忘录</font></b></p>
<p align="right">发布日期：<%=rs("vdate")%></p>
<hr size=1>
<table class=vtext width="95%" align="center" border=1>
<TR valign="top" class=vtext>
<TD height="25" align="left" valign="middle">
<b>个人备忘录:</b><%=rs("vtitle")%></TD>
</TR>
<TR valign="top">
<TD height="300">
<%=rs("vtext")%>
</TD>
</TR>
</table>
<script language=javascript>
window.print();
</script>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -