erprint.inc

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

<%

''*******************************************************************************
'********************************************************************************************************
	Dim gEid : gEid = GetParam("eid")
	Dim gObjectType: gObjectType = GetParam("objecttype")

If IsEmpty(gEid) Then
	werr("参数不足")
End If

' 建立数据库连接

'-------------------------------------------------------------------------------------------------------------------------------
' 分页相关的变量定义
'-------------------------------------------------------------------------------------------------------------------------------
Dim sSQL, sWhere, sOrderby		:
Dim sFileName				: sFileName = "erprint.asp"
Dim iTotalRecords			: iTotalRecords = 0			' 分页
Dim iRecordsPerPage			: iRecordsPerPage = 5
Dim iTotalPages				: iTotalPages = 0
Dim iCols				: iCols = 3
Dim iCurrentPage			: iCurrentPage = GetParam("Page")
Dim sSorting				: sSorting = GetParam("Sorting")
Dim sSorted				: sSorted = GetParam("Sorted")
Dim sSortParams				: sSortParams = ""
Dim sFormParams				: sFormParams = "eid=" & gEid & "&"
Dim sDirection				: sDirection = ""


''*******************************************************************************
'' 构造分页的SQL语句
''*******************************************************************************
sSQL = "select * from t_worksheet where object_type =1 and equi_sys_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","starttime","quantity","maintainer")
dim sDelimiter		:	sDelimiter	= "*"
dim lb			:	lb		= LBound(nf)
dim ub			:	ub		= UBound(nf)
'call PrepareListData(conn, sSQL, Join(arrayFields, sDelimiter), sDelimiter)
''*******************************************************************************


Function VarTable(eid)
	dim en(14),ev(14)
	dim en1(14),ev1(14)
	dim sql
	dim rs
	dim s1,s2,s3
	dim i,j

	
	s3 = ListTableHeader 
	s3 = s3 & ListTableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
	s3 = s3& ListTableTailer
	
	dim sTemp
	sTemp = "<table width=600 cellspacing=0 rules=none cellpadding=3 border=1 align=center >"
	sTemp = sTemp & "<tr><td>" & EqTable(eid) &"</td></tr>"
	sTemp = sTemp & "<tr><td>"  & s3 & "</td></tr>"
	sTemp = sTemp & "</table>"
	VarTable = TitleTable(eid) & sTemp & ToolTable	
	
'	VarTable = TitleTable(eid) & EqTable(eid) & TableHeader & s3 & wtbe & ToolTable
End Function
' 

Function TitleTable(eid)
	dim f1,f2,f3
	dim sql

	TitleTable= wtbas(wra(wdas("上海信息大楼设备台帐（维保记录）","style=""font:20px"" width=600 align=center")),"border=0 align=center ")
	
	sql = "select department from t_equipment where equi_id=" & eid
	f1 = DLookup(conn,sql)
	f1 = "部门: " & f1 
	

	sql = "select sys_desc from t_sys a,t_equipment b where a.sys_id=b.sys_id and b.equi_id=" & eid
	f2 = DLookup(conn,sql)

	f2 = "系统: "  & f2

'	sql = "select sys_desp from t_sys a,t_equipment b where a.sys_id=b.sys_id and equi_id=" & eid
	f3 = "设备代码:" & eid & " "

	f1 = wdas(f1," width=100 ")
	f2 = wdas(f2," width=100 ")
	f3 = wdas(f3," width=400 align=right ")
	
	
	TitleTable = TitleTable & wtbas(wra(f1&f2&f3),"border=0 align=center ")

	
	
End Function
Function EqTable(eid)
	dim up : up = 6
	dim en,ev
	dim en1(6),ev1(6)
	dim i,j
	dim sql,rs
	dim s1,s2,s3

	up=6

	en = Array("设备名称","型号规格","机房","设备编号","控制对象","安装位置")
	ev = Array("name","model","room_no","number","control","site")

	sql = "select * from t_equipment where equi_id= "& eid
	set rs = openrs(conn,sql)

	If not rs.eof Then
		for i = 1 to up
			en1(i-1) = en(i-1)
			ev1(i-1) = getvalue(rs,ev(i-1))
			if(IsEmpty(ev1(i-1))) Then
				ev1(i-1)="&nbsp;"
			End If
		Next
	Else
		werr("系统中不存在该设备！")
	End If
	closers(rs)
	for i = 1 to up
		en1(i-1)=wdas(en1(i-1)," class=tdHead width=100 ")
		if(ev1(i-1) = "" ) tHEN
			ev1(i-1) = "&nbsp;"
		End if
		ev1(i-1)=wdas(ev1(i-1)," align=center width=100 ")
	Next
	
	s3 = ""
	For i = 1 to 4 step 3
		s2=""
		For each j in Array(i,i+1,i+2)
			
			s1 = en1(j-1) & ev1(j-1)
			s2 = s2 & s1
		Next

		s3 = s3 & wra(s2)
	
	Next
	
	s3 = wras(wdas("基本信息列表"," width=600 colspan=6 class=tdHead")," align=center ") & s3

	EqTable = "<center>" & wtbas(s3," width=600 cellspacing=0 cellpadding=3 width=600 border=1 align=center style=""table-layout:fixed"" bgcolor=""white"" border=1 ")
	
End Function
	
'************************************************************************************************
' 函数名　: TableHeader()
' 输　入　: 
' 输　出　: 一个用于显示角色列表的表头
' 功能描述: 
' 调用模块: list_role.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-08-01
' 版　本　: 
'		wras(TableTitle("技术参数列表", 600, "", "#0040a0")," colspan=5 ") & _

'************************************************************************************************


Function ToolTable()
	dim sActionLinks
	sActionLinks = _
			"<tr bgcolor=white height=30 > "& vbLF & _
			wdas("仲量联行上海信息大楼物业管理中心<br>"," colspan=6 align=right ") & wre &_
			"<tr bgcolor=white height=30>" & vbLF & _
			"	<td colspan=6 align=center>" & vbLF & _
		"		<img border=0 src=""../images/button/preview.gif"" class=""noprint"" style=""cursor:hand"" OnClick=""JavaScript:doPrintPreview();"" name=btnPreview>" & _
		"		<img border=0 src=""../images/button/return.gif"" class=""noprint"" style=""cursor:hand"" onclick=""javascript:window.close();"">"  & _
			"	</td>" & vbLF & _
			"</tr>" & vbLF
	ToolTable = "<center>" & wtbas(sActionLinks,"  width=600 ")

End Function


Function ListTableHeader()
	ListTableHeader = _
		"<table cellspacing=1 cellpadding=3 width=""100%"" border=1 align=center 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 & "  class=tdHead align=center height=20 >"&sEquiSysDesc&"("&pEquiSysId&")维保记录列表</td></tr>" & vbLF & _
		"<tr >" &  vbLF & _
		"	<td class=tdHead align=center>&nbsp;维保日期</td>" & vbLF & _
		"	<td class=tdHead align=center>&nbsp;维保内容</td>" & vbLF & _
		"	<td class=tdHead align=center>&nbsp;确认人</td>" & vbLF & _
		"</tr>" & vbLF 
	
	If Cint(Dlookup(conn,"select count(*) from t_worksheet where object_type =1 and equi_sys_id=" & gEid)) = 0 Then
		ListTableHeader = ""
	End If
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

	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	while not rs.EOF 
		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=center>" & formatdt(dStarttime,"yyyy-mm-dd") & "</td>" & vbLF & _
				"	<td align=center>&nbsp; "& sContent &"</td>" & vbLF & _
				"	<td align=center>&nbsp; " & sConfirmer & "</td>" & vbLF & _
				"</tr>" & vbLF
		iCounter = iCounter + 1
		rs.movenext
	wend

	ListTableRecords = sTemp
End Function

%>