📄 formpreview.asp
字号:
<%
'#############################################################################################
'#
'# 文件名 : formpreview.asp
'# Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'# 创建人 : BinZha
'# 日 期 : 2002-07-19
'#
'# 修改历史 : ****年**月**日 ****** 修改内容:**********************************************
'#
'# 功能描述 : 打印预览材料设备采购申请单
'# 版 本 :
'#
'#############################################################################################
'----------------------------------------------------------
' 服务器端设置
'----------------------------------------------------------
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->
<!-- #include file="../common/commonpage.inc" -->
<!-- #include file="formpreview.inc" -->
<%
'call CheckSecurity()
'********************************************************************************************************
' 服务器端代码
dim sSQL, sOrderby
Dim sFileName : sFileName = "formpreview.asp"
Dim iFormID : iFormID = GetParam("id")
Dim iEmpSerial : iEmpSerial = GetEmpSerial
Dim sEmpName : sEmpName = GetUserName
Dim iTotalRecords : iTotalRecords = 0 ' 分页
Dim iRecordsPerPage : iRecordsPerPage = 5
Dim iTotalPages : iTotalPages = 0
Dim iCols : iCols = 8
sSQL = "select * from T_FormInfo where FormID = " & iFormID & sOrderby
%>
<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<link rel="stylesheet" href="../common/common.css" type="text/css">
<style type="text/css" media=print>.noprint {display:none}</style>
<style type="text/css" media=screen>.noprint {display:block}</style>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="0">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Page-Enter" content="revealTrans(Duration=5.0,Transition=3)">
<OBJECT id=WB classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 width=0></OBJECT>
<script language="JavaScript">
function btnPrint_OnClick() { WB.ExecWB(6,1) }
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<%
'********************************************************************************************************
' 主体从这里开始
'-------------------------------------------------------------------------------------------------------------------------------------------------
Response.Write FormDetail()
'-------------------------------------------------------------------------------------------------------------------------------------------------
' 主体到这里结束
'********************************************************************************************************
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -