?? fprint.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=../main/css.asp -->
<% '定義變量
dim Number,opFlag
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
%>
<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>
<div align="center">
<center>
<big><b><%=rs("Dname")%></b></big>
<hr size="1" noshade>
<table class=vtext width="95%" align="center" >
<tr>
<td width="16%">方案編號:</td>
<td width="84%"><%=rs("Id")%> </td>
</tr>
<tr>
<td width="16%">設 計 人:</td>
<td width="84%"><%=rs("Dman")%> </td>
</tr>
<tr>
<td width="16%">設計時間:</td>
<td width="84%"><%=rs("Ddate")%> </td>
</tr>
<tr>
<td width="16%">發布時間:</td>
<td width="84%"><%=rs("Pdata")%> </td>
</tr>
<tr>
<td width="16%" valign="top" align="left">采用情況:</td>
<td width="84%"><%=rs("Athing")%> </td>
</tr>
<tr>
<td width="16%" valign="top" align="left">內容簡介:</td>
<td width="84%"><%=rs("Beizhu")%> </td>
</tr>
</table>
</center>
</div>
<script language=javascript>
window.print();
</script>
<% '關閉記錄源
rs.close
set rs=nothing
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -