📄 sheet_mgr.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'##############################################################################
'#
'#		文 件 名	 : sheet_mgr.asp
'#
'#
'#		创 建 人	 : yaoxiaohui
'# 　	日　  期	 : 2002-11-27
'#
'#		修改历史  : ****年**月**日 ******
'#      修改内容  : **************************************************
'#
'#		功能描述	 : 出入库单管理
'# 　	版  　本	 : v1.0
'#	
'#	    Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'##############################################################################
'------------------------------------------------------------------------------
'----   服务器端设置
'------------------------------------------------------------------------------
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
<!-- include files begin -->

<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/commonpage.inc" -->

<!-- #include file="sheet_mgr.inc" -->

<!-- include files end -->
<%

'##############################################################################
'----   服务器端代码
'##############################################################################
call CheckSecurity()

if hasright(ID_STOCK) < RIGHT_READ  then
	Response.Clear
	Response.Redirect "../include/error.asp?error=你没有查询权限！"
	Response.end
end if

'******************************************************************************
'----   建立数据库连接
'------------------------------------------------------------------------------
dim conn
set conn = DBConnection

'******************************************************************************
'----   分页相关的变量定义
'------------------------------------------------------------------------------
Dim sSQL, sOrderby
Dim sWhere1		'' 入库
Dim sWhere2		'' 移交
Dim sWhere3		'' 领用
Dim sWhere4		'' 退货
Dim sWhere5		'' 报废
Dim sWhere6		'' 借用
Dim sFileName			: sFileName			= "sheet_mgr.asp"
Dim iTotalRecords		: iTotalRecords		= 0			                ' 分页
Dim iRecordsPerPage		: iRecordsPerPage	= 1                         ' 一页8行
Dim iTotalPages			: iTotalPages		= 0
Dim iCols				: iCols				= 8                         ' 9列
Dim iCurrentPage		: iCurrentPage		= GetParam("Page")
Dim sSorting			: sSorting			= GetParam("Sorting")
Dim sSorted				: sSorted			= GetParam("Sorted")
Dim sSortParams			: sSortParams		= ""
Dim sFormParams			: sFormParams		= ""
Dim sDirection			: sDirection		= ""
'******************************************************************************
'******************************************************************************
'----   构造分页的SQL语句
'------------------------------------------------------------------------------
'' 出库方式分类，1入库，2移入，3归还，4领用，5退货，6报废，7移出，8借出
sSQL = "select sheet_id,optype,sheet_status" & _
" from t_stock_master"
sWhere1 = " where optype = 1"
sWhere2 = " where optype in (2,7)"
sWhere3 = " where optype = 4"
sWhere4 = " where optype = 5"
sWhere5 = " where optype = 6"
sWhere6 = " where optype = 8"
sOrderby = " order by sheet_id desc"
'******************************************************************************
'----   分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'------------------------------------------------------------------------------
dim arrayFields(2), sDelimiter
sDelimiter = "*"
arrayFields(0)	=	"sheet_id"
arrayFields(1)	=	"optype"
arrayFields(2)	=	"sheet_status"
'******************************************************************************
%>

<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../include/common.css" type="text/css">

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../images/bg/bg0.jpg">
<br>

<%
Response.Write OuterTableHeader
Response.Write HeaderWithMenu
Response.Write InnerTableHeader
'******************************************************************************
'----   主体从这里开始
'------------------------------------------------------------------------------

if hasright(ID_STOCK) < RIGHT_WRITE then
else
Response.Write TableTop
end if
Response.Write	"<table cellspacing=0 cellpadding=0 width=""100%"" align=center style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:1px;"">" & _
				"  <tr height=25 bgcolor=white>" & vbLF & _
				"	<td align=left style=""color:green;"">&nbsp;<img border=0 src=""../images/search.gif"">&nbsp;入库单一览：&nbsp;</td>" & vbLF & _
				"  </tr>" & vbLF & _	
				"</table>"
Response.Write TableHeader
call PrepareData(conn,sSQL & sWhere1 & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
Response.Write TableRecords1(sSQL & sWhere1 & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write	"<table cellspacing=0 cellpadding=0 width=""100%"" align=center style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:1px;"">" & _
				"  <tr height=25 bgcolor=white>" & vbLF & _
				"	<td align=left style=""color:green;"">&nbsp;<img border=0 src=""../images/search.gif"">&nbsp;移交清单一览：&nbsp;</td>" & vbLF & _
				"  </tr>" & vbLF & _	
				"</table>"
Response.Write TableHeader
call PrepareData(conn,sSQL & sWhere2 & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
Response.Write TableRecords1(sSQL & sWhere2 & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write	"<table cellspacing=0 cellpadding=0 width=""100%"" align=center style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:1px;"">" & _
				"  <tr height=25 bgcolor=white>" & vbLF & _
				"	<td align=left style=""color:green;"">&nbsp;<img border=0 src=""../images/search.gif"">&nbsp;领料单一览：&nbsp;</td>" & vbLF & _
				"  </tr>" & vbLF & _	
				"</table>"
Response.Write TableHeader
call PrepareData(conn,sSQL & sWhere3 & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
Response.Write TableRecords1(sSQL & sWhere3 & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write	"<table cellspacing=0 cellpadding=0 width=""100%"" align=center style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:1px;"">" & _
				"  <tr height=25 bgcolor=white>" & vbLF & _
				"	<td align=left style=""color:green;"">&nbsp;<img border=0 src=""../images/search.gif"">&nbsp;物品退货清单一览：&nbsp;</td>" & vbLF & _
				"  </tr>" & vbLF & _	
				"</table>"
Response.Write TableHeader
call PrepareData(conn,sSQL & sWhere4 & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
Response.Write TableRecords1(sSQL & sWhere4 & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write	"<table cellspacing=0 cellpadding=0 width=""100%"" align=center style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:1px;"">" & _
				"  <tr height=25 bgcolor=white>" & vbLF & _
				"	<td align=left style=""color:green;"">&nbsp;<img border=0 src=""../images/search.gif"">&nbsp;物料报废单一览：&nbsp;</td>" & vbLF & _
				"  </tr>" & vbLF & _	
				"</table>"
Response.Write TableHeader
call PrepareData(conn,sSQL & sWhere5 & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
Response.Write TableRecords1(sSQL & sWhere5 & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write	"<table cellspacing=0 cellpadding=0 width=""100%"" align=center style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:0px;border-left-width:1px;border-right-width:1px;"">" & _
				"  <tr height=25 bgcolor=white>" & vbLF & _
				"	<td align=left style=""color:green;"">&nbsp;<img border=0 src=""../images/search.gif"">&nbsp;物品借用登记表一览：&nbsp;</td>" & vbLF & _
				"  </tr>" & vbLF & _	
				"</table>"
Response.Write TableHeader
call PrepareData(conn,sSQL & sWhere6 & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
Response.Write TableRecords1(sSQL & sWhere6 & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )

Response.Write TableAction
Response.Write TableLink
'------------------------------------------------------------------------------
'----   主体到这里结束
'******************************************************************************
Response.Write InnerTableTailer
Response.Write Footer
Response.Write OuterTableTailer
Disconnect(conn)
%>

</body>
</html>
💿 文件大小 16987 K
👤 上传用户 jzp_home_2009
📂 所属分类 OA系统
🏷️ 相关标签

#物业管理 #办公自动化系统
⌨️ 快捷键说明

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