eqprint.inc.bak

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

<%
	dim en(18),ev(18)	' name and value array
	' initial ename array
	en(0)="系统"
	en(1)="设备名称":	 en(2)="设备编号"
	en(3)="设备类别":	 en(4)="所属部门"
	en(5)="型号规格":	 en(6)="安装位置"
	en(7)="控制对象":	 en(8)="启用日期"		
	en(9)="使用寿命":	 en(10)="折旧率"
	en(11)="交接日期":en(12)="交接序号"
	en(13)="数  量":	 en(14)="制造商"
	en(15)="保养商":	 en(16)="供货商"
	en(17)="楼  层":	 en(18)="机房编号"

	ev(0)="sys_id"
	ev(1)="name":		ev(2)="number"
	ev(3)="type":		ev(4)="department"
	ev(5)="model":		ev(6)="site"
	ev(7)="control":	ev(8)="starttime"		
	ev(9)="lifespan":	ev(10)="depreciation"
	ev(11)="handovertime":	ev(12)="handoverno"
	ev(13)="quantity":	ev(14)="maker"
	ev(15)="maintainer":	ev(16)="supplier"
	ev(17)="floor":		ev(18)="room_no"

	dim roomOptions, floorOptions
	dim pRoomNo, pFloor


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

	FormHead = s

End Function

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

	TitleTable= wtbas(wra(wdas("上海信息大楼设备台帐"," width=600 align=center"))," 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)," align=center ")

	
	
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


Function UpdateTable()
	dim ft			'organize a formtable
	dim de			' delimit
	dim s1,s2
	dim r,c,i,j,s
	
	dim ev5(18),ev1(18)
	dim einfo
	dim rs
	dim sql 
	sql = "select * from t_equipment where equi_id = " & ToSQL(gEid, "Number")
'	ww(sql)
	set rs=openrs(conn,sql)
'	for i = LBound(ev) to UBound(ev)
		ev5(i)=ev(i)
'		ww(i & "=" & ev5(i))
'	Next


	If not rs.eof then
		for each i in Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
			ev5(i) = getvalue(rs,ev(i))
		Next
	Else
		werr("该设备不存在")

		Exit Function
	End if
	closers(rs)


	if cint(ev5(14)) = 0 Then
		ev5(14)="未知"
	Else
		ev5(14) = DLookup(conn,"select name from t_firm where id=" & ev5(14))
	End IF

	
	if cint(ev5(15)) = 0 Then
		ev5(15)="未知"
	Else
		ev5(15) = DLookup(conn,"select name from t_firm where id=" & ev5(15))
	End IF
	if cint(ev5(16)) = 0 Then
		ev5(16)="未知"
	Else
		ev5(16) = DLookup(conn,"select name from t_firm where id=" & ev5(16))
	End IF

	for each i in Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
			if ev5(i) = "" Then
				ev5(i) = "&nbsp;"
			End If
	Next

	ev5(17) = left(ev5(18),2)

	' display ename and evalue array
	r=6 : c=3
	s2="":s1=""
	for i = 1 to r
		s1=""
		for j= 1 to c
			s1= s1 & wdas(en(Cint((i-1)*c+j))," class=tdHead ") & wda(ev5(Cint((i-1)*c+j)))
'			response.write(s1)
'			response.end
		next 
		s2 = s2 & wra(s1)
	next 
	
	s1 = "<tr style=""display:none""><td width=100>111111111</td><td width=100>33333333</td><td width=100>2</td><td width=100>3</td><td width=100>4</td><td width=100>6</td></tr>"
	ft = wtbas(s1 & s2," width=600 cellspacing=1 cellpadding=3 width=600 align=center style=""table-layout:fixed"" bgcolor=""white"" border=2 ")
 
	UpdateTable= "<center>" & TitleTable(gEid) &"<BR>"& FormHead & ft &"<BR>"& ToolTable
	
end Function






%>