maintain_record_list.inc.bak

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

<%
Function ListTableHeader()
	ListTableHeader = _
		"<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=100>这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=""*""></td>" & vbLF & _
		"	<td width=80></td></tr>" & vbLF & _
 
		"<tr><td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"" height=20 >"&sEquiSysDesc&"("&pEquiSysId&")维保记录列表</td></tr>" & vbLF & _
		"<tr bgcolor=""#eeeeee"">" &  vbLF & _
		"	<td class=tdHead>&nbsp;" & _
						TableHeaderField(sFileName, "starttime", "维保日期", sFormParams, sSorting, sSorted) & "</td>" & vbLF & _
		"	<td class=tdHead>&nbsp;<img src=""../images/bg/ar-y.gif"" width=8 height=8>&nbsp;" & _
						TableHeaderField(sFileName, "content", "维保内容", sFormParams, sSorting, sSorted) & "</td>" & vbLF & _
		"	<td class=tdHead>&nbsp;" & _
						TableHeaderField(sFileName, "confirmer", "确认人", sFormParams, sSorting, sSorted) & "</td>" & vbLF & _
		"</tr>" & vbLF
End Function

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

Function ListTableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
'	response.write sSQL
'	response.end
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j					' 临时循环变量

	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 1
	Dim iPrevPage, iNextPage
	
	'------------------------------------
	' 获取数据库连接
	'------------------------------------
	dim rs	: set rs = Openrs(conn,sSQL)
	dim dStarttime, sContent, sConfirmer, iWorksheetid

	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	if Not rs.EOF then	
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
	end if
	while not rs.EOF and iCounter <= iRecordsPerPage
		dStarttime				= GetValue(rs, "starttime")
		sContent				= GetValue(rs, "content")
		sConfirmer			= GetValue(rs, "confirmer")
		iWorksheetid = GetValue(rs, "worksheet_id")

		sTemp = sTemp & "<tr bgcolor=white>" & vbLF & _
				"	<td align=left>" & formatdt(dStarttime,"yyyy-mm-dd") & "</td>" & vbLF & _
				"	<td title=""" & sContent & """ style=""color:blue"">&nbsp;<a target=maintain_record.asp href = ../worksheet/worksheet.asp?worksheetid="&iWorksheetid&"><img src=""../images/bg/ar-g.gif"" width=8 height=8 border=0>&nbsp;" & Bref(sContent,20) & "&nbsp;</a></td>" & vbLF & _
				"	<td align=center>" & sConfirmer & "</td>" & vbLF & _
				"</tr>" & vbLF
		iCounter = iCounter + 1
		rs.movenext
	wend

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

	' 首页、前页、后页、尾页等分页信息
	dim p
	p="		<img border=0 src=""../images/button/print.gif"" onclick=""javascript:window.open('erprint.asp?eid="& pEquiSysId & "','','width=800,height=600,top=20,left=20');"" style=""cursor:hand"" target=_blank>" 
	sTemp = sTemp & "<tr bgcolor=white><td colspan=" & iCols & " align=center>" & vbLF & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & vbLF & _
				"&nbsp;"& p &"</td></tr>" & vbLF
	ListTableRecords = sTemp
End Function



%>