print.asp

来自「Lirong网络办公系统」· ASP 代码 · 共 46 行

ASP
46
字号

<HTML>
<HEAD>
<TITLE>打印档案内容</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">

<%	'定义变量
	dim Number,opFlag,rs
	on error resume next
	
	'获取输入参数:记录号和操作标志
	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


%>
</HEAD>
<body   id=all>
<p align="center"><b><font size="5">企业大事记</font></b>
<p>
事件日期:<%=rs("vtime")%><br>
事件作者:<%=rs("vname")%><br>
事件标题:<%=rs("vtitle")%></p>

<hr size=1>
<%=rs("vtext")%>
<script language=javascript>
window.print();
</script>
<% '关闭记录源
   rs.close
   set rs=nothing
%>   
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?