📄 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>
<title>工作日志</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #Include file="../main/css.asp" -->
<% '定义变量
dim Number ' 当前操作记录号
dim opFlag ' 操作标志('cmdAddNew'/'cmdEdit'/'cmdSee')
'过滤错误
on error resume next
'response.end
'获取输入参数:记录号和操作标志
Number=request("Number")
if Number="" then Number="0"
Number=Cint(Number)
opFlag=request("opFlag")
'创建记录访问对象
Set rs = Server.CreateObject("ADODB.Recordset")
if opFlag="start" then Session("SQL")="select * from [plan] where vowner='0' order by vtime desc"
'打开记录源,并定位到输入参数决定的记录号
rs.Open Session("SQL"),Session("conn"),1,1
rs.move Number
%>
<style>
.css0 {<%=Session("vinputtext")%> }
SELECT { font-size:12px}
</style>
</head>
<body leftmargin="0" topmargin="0" >
<br><center><b><big><%=rs("vtitle")%> </big><b></center>
<table border="0" cellspacing="1" align="center" width="95%" bordercolordark="#ffffff" bordercolorlight="#000000" cellspacing="0">
<tr bgcolor="" class=vtext>
<td align="center" height="35" width="80">时间</td>
<td align="left" >
<%=rs("vtime")%>
</td>
</tr>
<tr valign="top" class="">
<td align="center" height="143" colspan="2">
<div align="left"><%=rs("vplan")%></div>
</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 + -