evar.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))
		Next
	Else
		for i = 1 to 15
			en1(i-1) = ""
			ev1(i-1) = ""
		Next
	End If

	for i = 1 to 15
		en1(i-1) = "<input style=""border-width:0"" type=text name='"& en(i-1) & "' value='" & en1(i-1) & "' maxlength=20 size=14>"
		ev1(i-1) = "<input style=""border-width:0"" type=text name='"& ev(i-1) & "' value='" & ev1(i-1) & "' maxlength=20 size=14>"
	Next	
	s3 = ""
	For i = 1 to 13 step 3
		s2=""
		For each j in Array(i,i+1,i+2)
			
			s1 = wda(en1(j-1)) & wda(ev1(j-1))
			s2 = s2 & s1
		Next

		s3 = s3 & wra(s2)
	
	Next
	
	
			
			
	VarTable =FormHead & TableHeader & s3 & wtbe & ToolTable
End Function
	
'************************************************************************************************
' 函数名　: TableHeader()
' 输　入　: 
' 输　出　: 一个用于显示角色列表的表头
' 功能描述: 
' 调用模块: list_role.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-08-01
' 版　本　: 
'		wras(TableTitle("技术参数列表", 600, "", "#0040a0")," colspan=5 ") & _

'************************************************************************************************
Function TableHeader()
	TableHeader = _
		"<table cellspacing=0 cellpadding=3 width=""100%"" align=center style=""table-layout:fixed;border-collapse:collapse;border:1px solid silver"" border=1>" & _
		"<!--tr align=center style=""display:block"">" & _
		"<td class=tdHead width=98 align=center>参数名</td>" & _
		"<td class=tdHead width=98 align=center>参数值</td>" & _
		"<td class=tdHead width=98 align=center>参数名</td>" & _
		"<td class=tdHead width=98 align=center>参数值</td>" & _
		"<td class=tdHead width=98 align=center>参数名</td>" & _
		"<td class=tdHead width=""*"" align=center>参数值</td>" & _
		"</tr-->"&_
		"<tr align=center >" & _
		"<td colspan=6 class=tdHead width=""100%"" align=center>技术参数列表</td>" & _
		"</tr>" & _
		"<tr align=center >" & _
		"<td class=tdHead align=center>参数名</td>" & _
		"<td class=tdHead align=center>参数值</td>" & _
		"<td class=tdHead align=center>参数名</td>" & _
		"<td class=tdHead align=center>参数值</td>" & _
		"<td class=tdHead align=center>参数名</td>" & _
		"<td class=tdHead 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 & _
			"	<td colspan=8 align=center>" & vbLF & _
			"		<img border=0 src=""../images/button/update.gif"" onclick=""btnUpdate_OnClick()"" style=""cursor:hand"">" & vbLF & _
			"		&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
			"		<img border=0 src=""../images/button/print.gif"" onclick=""javascript:window.open('evprint.asp?eid="& gEid & "','','width=800,height=600,top=20,left=20');"" style=""cursor:hand"" target=_blank>" & vbLF & _
			"	</td>" & vbLF & _
			"</tr>" & vbLF

	If Hasright(ID_EQUIPMENT) < RIGHT_WRITE Then
		sActionLinks = ""
	End If
	ToolTable = "<center>" & wtba(sActionLinks)

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
%>