evprint.inc

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

<%

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

	for i = 1 to 15
		en(i-1) = "sd" & i & "n"
		ev(i-1) = "sd" & i
	Next

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

	If not rs.eof Then
		for i = 1 to 15
			en1(i-1) = getvalue(rs,en(i-1))
			ev1(i-1) = getvalue(rs,ev(i-1))
			if(en1(i-1)="") Then
				en1(i-1)="&nbsp;"
			End If
			if(ev1(i-1)="") Then
				ev1(i-1)="&nbsp;"
			End If

		Next
	Else
		for i = 1 to 15
			en1(i-1) = ""
			ev1(i-1) = ""
		Next
	End If

	closers(rs)

	for i = 1 to 15
		en1(i-1) = wdas(en1(i-1)," width=100 align=center class=tdHead")
		ev1(i-1) = wdas(ev1(i-1)," width=100 align=center ")
	Next	
	s3 = ""
	For i = 1 to 13 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
	
	
	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>" & TableHeader & s3 & wtbe & "</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 TableHeader()
	TableHeader = _
		"<table cellspacing=0 cellpadding=3 width=600 align=center style=""table-layout:fixed"" bgcolor=""white"" border=1>" & _
		"<tr align=center  >" & _
		"<td colspan=6 class=tdHead width=600 align=center>技术参数列表</td>" & _
		"</tr>" & _
		"<tr align=center >" & _
		"<td class=tdHead width=100 align=center>参数名</td>" & _
		"<td  width=100 align=center>参数值</td>" & _
		"<td class=tdHead width=100 align=center>参数名</td>" & _
		"<td  width=100 align=center>参数值</td>" & _
		"<td class=tdHead width=100 align=center>参数名</td>" & _
		"<td  width=100 align=center>参数值</td>" & _
		"</tr>"
End Function

Function FormHead()
	dim s : s=""
	s = s &	"<form method=post name=frmMgr action=""evar.asp"">" & vbLF 
	s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
	s = s &	"<input type=""hidden"" name=""eid"" value=""" & gEid & """>" & vbLF
	FormHead = s

End Function


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

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

	for i = 1 to 15
		en(i-1) = "sd" & i & "n"
		ev(i-1) = "sd" & i
	Next

	for i = 1 to 15
		en1(i-1) = en(i-1) & "=" & ToSQL(GetParam(en(i-1)),"Text")
		ev1(i-1) = ev(i-1) & "=" & ToSQL(GetParam(ev(i-1)),"Text")
	Next

	sql = "update t_equipment set " & Join(en1,",") & "," & Join(ev1,",") & " where equi_id=" & eid

	conn.Execute(sql)

End Sub
%>