?? sysprint.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" -->
<% '定義變量
on error resume next
dim image,title,opFlag,Number
opFlag=request("opFlag")
if opFlag="" then opFlag="cmdAddNew"
Number=request("Number")
if Number="" then Number="0"
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.Open Session("SQL"),Session("conn"),1,3
rs.move number
title="檔案管理制度"
image="../images/document.gif"
%>
</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 height="30" colspan="2" align="center" ><font size="5"><strong><%=rs("vtitle")%></strong></font></td>
</tr>
<tr>
<td colspan="2"><%=rs("content")%></td>
</tr>
<tr>
<td colspan="2" align="right" >制訂者:<%=rs("men")%><br>發布日期:<%=rs("times")%></td>
</tr>
</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 + -