📄 preview.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'#############################################################################################
'#
'#	文件名	 : preview.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="preview.inc" -->

<%
'call CheckSecurity()
'********************************************************************************************************
' 服务器端代码
dim sSQL, sWhere
Dim sFileName			: sFileName			= "preview.asp"
Dim iEmpSerial			: iEmpSerial		= GetEmpSerial
Dim sEmpName			: sEmpName			= GetUserName
Dim iTotalRecords		: iTotalRecords		= 0			' 分页
Dim iRecordsPerPage		: iRecordsPerPage	= 5
Dim iTotalPages			: iTotalPages		= 0
Dim iCols				: iCols				= 8
Dim sPart				: sPart				= GetParam("part")

dim pName				: pName				= GetParam("cardname")
dim pDepartment			: pDepartment		= GetParam("depart")
dim pUserName			: pUserName			= GetParam("user_name")
dim pApplyDate1			: pApplyDate1		= GetParam("apply_date1")
dim pApplyDate2			: pApplyDate2		= GetParam("apply_date2")

sSQL = "select * from T_Expendable" 
sWhere = " where signer = '" & sEmpName & "'" 

'if iEmpSerial = GetOfficer then 
	select case sPart
		case "passed"
			sWhere = " where status = '已经发放'" 
		case "forpass"
			sWhere = " where status = '等待审批'" 
	end select
'end if

if Not IsEmpty(pName) then sWhere = sWhere & " and Name like " & ToSQL("%" & pName & "%","Text")
if Not IsEmpty(pDepartment) then sWhere = sWhere & " and Department like " & ToSQL("%" & pDepartment & "%","Text")
if Not IsEmpty(pUserName) then sWhere = sWhere & " and UserName like " & ToSQL("%" & pUserName & "%","Text")
if Not IsEmpty(pApplyDate1) then sWhere = sWhere & " and ApplyDate >= " & ToSQL(pApplyDate1,"Text")
if Not IsEmpty(pApplyDate2) then sWhere = sWhere & " and ApplyDate <= " & ToSQL(pApplyDate2,"Text")
%>

<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 + -