einfo.inc.bak

物业管理和办公自动化系统

<%

''*******************************************************************************
' 服务器端代码

''*******************************************************************************
' 建立数据库连接
dim conn	: Set conn = DBConnection
dim gEid	: gEid = GetParam("eid")
'-------------------------------------------------------------------------------------------------------------------------------
' 分页相关的变量定义
'-------------------------------------------------------------------------------------------------------------------------------
Dim sSQL, sWhere, sOrderby		:
Dim sFileName				: sFileName = "eaccessory.asp"
Dim iTotalRecords			: iTotalRecords = 0			' 分页
Dim iRecordsPerPage			: iRecordsPerPage = 5
Dim iTotalPages				: iTotalPages = 0
Dim iCols				: iCols = 5
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语句
''*******************************************************************************
sSQL = "select * from t_accessory where equi_id=" & gEid
'sOrderby = " order by name asc"
'sWhere = 
''*******************************************************************************
'' 构造Where子句
'-------------------------------------------------------------------------------------------------------------------------------
' 定义全局变量 ---- 查询参数


'response.write sSQL & sWhere & sOrderby & "<br>"
'response.end
''*******************************************************************************
' 分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'-------------------------------------------------------------------------------------------------------------------------------
dim nf			:	nf		= Array("名称","型号规格","数量","保养商","启用时间")
dim arrayFields		:	arrayFields	= Array("name","model","quantity","maintainer","starttime")
dim sDelimiter		:	sDelimiter	= "*"
dim lb			:	lb		= LBound(nf)
dim ub			:	ub		= UBound(nf)
call PrepareListData(conn, sSQL, Join(arrayFields, sDelimiter), sDelimiter)
''*******************************************************************************


Function ListTableHeader()
	 dim s
	 dim s1
	 dim i
	 s = _
		"<table cellspacing=1 cellpadding=3 width=""100%"" border=0 align=center bgcolor=silver style=""table-layout:fixed"">" & vbLF & _
		"<tr style=""display:none"">" & vbLF & _
		"	<td width=120>这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=120></td>" & vbLF & _
		"	<td width=120></td>" & vbLF & _
		"	<td width=120></td>" & vbLF & _
		"	<td width='*'></td>" & vbLF & _
		"<tr><td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"" height=20 >设 备 附 件 列 表</td></tr>" & vbLF & _
		"<tr bgcolor=""#eeeeee"">" &  vbLF 
	
	s1 = "	<td class=tdHead>&nbsp;<img src=""../images/bg/ar-y.gif"" width=8 height=8>&nbsp;" & _
					TableHeaderField(sFileName, arrayFields(0), nf(0), sFormParams, sSorting, sSorted) & "</td>" & vbLF 


	for i = lb+1 to ub
		s1 = s1 & "	<td class=tdHead>" & _
					TableHeaderField(sFileName, arrayFields(i), nf(i), sFormParams, sSorting, sSorted) & "</td>" & vbLF 
	next

'	s1 = wdas("删除|更新"," class=tdHead ")

	s= s & s1 & "</tr>" & vbLF

	ListTableHeader = s

End Function

Function ListTableTailer()
	ListTableTailer = "</table>" & vbLF
End Function

Function ListTableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j					' 临时循环变量
	dim ne		: ne = nf
	dim s1,s2
	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 1
	Dim iPrevPage, iNextPage
	
	'------------------------------------
	' 获取数据库连接
	'------------------------------------
'	response.write sSQL
'	response.end
	dim rs	: set rs = Openrs(conn,sSQL)
	dim iEquiId, iSysId, iParentEquiId, sName, sNumber, sModel, sTypeDesc, sRoomno

	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	if Not rs.EOF then	
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
	end if
	while not rs.EOF and iCounter <= iRecordsPerPage
		for i = lb to ub
			ne(i)			= GetValue(rs, arrayFields(i))
		Next

		s1 = "<tr bgcolor=white>" & vbLF
		s1 = s1 & "	<td title=""" & ne(0) & """ style=""color:blue"">&nbsp;<img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;" & Bref(ne(0),16) & "&nbsp;</td>" & vbLF
		for i = lb+1 to ub
			s1 = s1 & "	<td align=center>" & ne(i) & "</td>" & vbLF
		next
		sTemp = s1 & "</tr>" & vbLF
		iCounter = iCounter + 1
		rs.movenext
	wend

	' 填补空白行
	sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)

	' 首页、前页、后页、尾页等分页信息
	sTemp = sTemp & "<tr bgcolor=white><td colspan=" & iCols & " align=right>" & vbLF & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & vbLF & _
				"&nbsp;</td></tr>" & vbLF

	ListTableRecords = sTemp
End Function



%>