eaccessory.inc.bak

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

<%

''*******************************************************************************
' 服务器端代码

''*******************************************************************************
' 建立数据库连接
dim conn	: Set conn = DBConnection
dim gEid	: gEid = GetParam("eid")
dim gAid	: gAid= GetParam("aid")

'-------------------------------------------------------------------------------------------------------------------------------
' 分页相关的变量定义
'-------------------------------------------------------------------------------------------------------------------------------
Dim sSQL, sWhere, sOrderby		:
Dim sFileName				: sFileName = "eaccessory.asp"
Dim iTotalRecords			: iTotalRecords = 0			' 分页
Dim iRecordsPerPage			: iRecordsPerPage = 5
Dim iTotalPages				: iTotalPages = 0
Dim iCols				: iCols = 5
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_accessory where equi_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)
''*******************************************************************************

Dim sFormAction
if UCase(Request.ServerVariables("REQUEST_METHOD") = "POST") then
	sFormAction = GetParam("FormAction")
	select case sFormAction
	case "insert":
		call AddEq()
	case "insertchild":
		call AddChildEq()
	case "update":
		call UpdateEq()
	case "delete":
		call DeleteEq()
	end select
end if


Function ListTableHeader()
	 dim s
	 dim s1
	 dim i
	 s = _
		"<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=160>这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=182></td>" & vbLF & _
		"	<td width=120></td>" & vbLF & _
		"	<td width=65></td>" & vbLF & _
		"	<td width='*'></td>" & vbLF & _
		"<tr><td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"" height=20 >设 备 附 件 列 表</td></tr>" & vbLF & _
		"<tr bgcolor=""#eeeeee"">" &  vbLF 
	
	s1 = "	<td class=tdHead>&nbsp;<img src=""../images/bg/ar-y.gif"" width=8 height=8>&nbsp;" & _
					TableHeaderField(sFileName, arrayFields(0), nf(0), sFormParams, sSorting, sSorted) & "</td>" & vbLF 


	for i = lb+1 to ub
		s1 = s1 & "	<td class=tdHead align=center>" & _
					TableHeaderField(sFileName, arrayFields(i), nf(i), sFormParams, sSorting, sSorted) & "</td>" & vbLF 
	next

'	s1 = wdas("删除|更新"," class=tdHead ")

	s= s & s1 & "</tr>" & vbLF

	ListTableHeader = s

End Function

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

Function ListTableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j,i				' 临时循环变量
	dim ne		: ne = nf
	dim s1,s2
	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 1
	Dim iPrevPage, iNextPage
	
	'------------------------------------
	' 获取数据库连接
	'------------------------------------
'	response.write sSQL
'	response.end
	dim rs	: set rs = Openrs(conn,sSQL)
	dim iEquiId, iSysId, iParentEquiId, sName, sNumber, sModel, sTypeDesc, sRoomno

	dim sty	: sty = ""
	dim a,t
	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	if Not rs.EOF then	
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
	end if
	while not rs.EOF and iCounter <= iRecordsPerPage
		for i = lb to ub
			ne(i)			= GetValue(rs, arrayFields(i))
		Next
		
		'baoyangshang
		if cint(ne(4)) = 0 Then
			ne(4)="未知"
		Else
			ne(4) = DLookup(conn,"select name from t_firm where id=" & ne(4))
		End IF

		a = GetValue(rs,"id")
		
		If cint(a) = cint(gAid) Then
			sty = "color:red"
''			t   = ModifyTable
		Else
			sty= "color:blue"
'			t=""
		End If
		s1 = "<tr bgcolor=white style = "& sty &">" & vbLF
		s1 = s1 & "	<td title=""" & ne(0) & """ style=""cursor:hand"" onclick=""javascript:location.href='eaccessory.asp?eid="&gEid & "&aid="&a&"';"">&nbsp;<img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;" & Bref(ne(0),16) & "&nbsp;</td>" & vbLF
		for i = lb+1 to ub
			s1 = s1 & "	<td align=center>" & ne(i) & "</td>" & vbLF
		next
		sTemp = sTemp & s1 & "</tr>" & vbLF 
		iCounter = iCounter + 1
		rs.movenext
	wend

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

	' 首页、前页、后页、尾页等分页信息
	sTemp = sTemp & "<tr bgcolor=white><td colspan=" & iCols & " align=right>" & vbLF & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & vbLF & _
				"&nbsp;</td></tr>" & vbLF

	ListTableRecords = sTemp
End Function

Function FormHead()
	dim s : s=""
	s = s &	"<form method=post name=frmMgr action=""eaccessory.asp"">" & vbLF 
	s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
	s = s &	"<input type=""hidden"" name=""aid"" value=""" & gAid & """>" & 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 ToolTable()
	dim sActionLinks
	if IsEmpty(gAid) then
			sActionLinks = _
				"<tr bgcolor=white height=30>" & vbLF & _
				"	<td colspan=8 align=center>" & vbLF & _
				"		<img border=0 src=""../images/button/add.gif"" onclick=""btnAdd_OnClick()"" style=""cursor:hand"">" & vbLF & _
				"		&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
				"		<img border=0 src=""../images/button/clear.gif"" onclick=""btnClear_OnClick()"" style=""cursor:hand"">" & vbLF & _
				"	</td>" & vbLF & _
				"</tr>" & vbLF
	else
			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/delete.gif"" onclick=""btnDelete_OnClick()"" style=""cursor:hand"">" & vbLF & _
					"		&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
					"		<img border=0 src=""../images/button/cancel.gif"" onclick=""btnCancel_OnClick()"" style=""cursor:hand"">" & vbLF & _
					"	</td>" & vbLF & _
					"</tr>" & vbLF
	
	end if
	If Hasright(ID_EQUIPMENT) < RIGHT_WRITE Then
		sActionLinks = ""
	End If

	ToolTable = wtba(sActionLinks)
End Function

Function InsertTable()
	dim s : s = ""
	dim ee : ee = arrayFields
	dim s1 : s1= ""
	dim i

	

	ee(0) = "<input type=text maxlength=20 size=20 name="&ee(0)&">"
	ee(1) = "<input type=text maxlength=20  size=20 name="&ee(1)&">"
	ee(2) = DrawCal("", Date, ee(2), "img4")
	ee(3) = "<input type=text maxlength=4  size=4 name="&ee(3)&">"
	ee(4) = "<SELECT style=""width:70px""NAME="& ee(4) &"><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", "")&"</SELECT>"

	s1 =	"<tr style=""display:none"">" & vbLF & _
		"	<td width=160>这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=182></td>" & vbLF & _
		"	<td width=120></td>" & vbLF & _
		"	<td width=50></td>" & vbLF & _
		"	<td width='*'></td>" & vbLF 

	for i = lb to ub
		ee(i) = wdas(nf(i) & ": " & ee(i), "")
	Next

	s = s & "<table cellspacing=1 cellpadding=0 width=""100%"" border=0 align=center  style=""table-layout:fixed"">" & vbLF 
	s = s & s1 & wra(JOin(ee," "))
	s = s & wtbe

	InsertTable = "<center>" & FormHead & s & ToolTable	

End Function

Function ModifyTable()
	dim s : s = ""
	dim en : en = arrayFields
	dim s1 : s1= ""
	dim i
	dim sql
	dim ee : ee = en
	sql = "select * from t_accessory where id = " & ToSQL(gAid, "Number")
'	ww(sql)
	dim rs : set rs = openrs(conn,sql)

	If not rs.eof then
		for i = lb to ub
			ee(i) = getvalue(rs,arrayFields(i))
		Next
	Else
		werr("无该附件!")
	End If
	closers(rs)
	
	ee(0) = "<input type=text maxlength=20 size=20 name="&en(0)&" value="&ee(0)&">"
	ee(1) = "<input type=text maxlength=20  size=20 name="&en(1)&" value="&ee(1)&">"
	ee(2) = DrawCal("", ee(2), en(2), "img4")
	ee(3) = "<input type=text maxlength=4  size=4 name="&en(3)&" value="&ee(3)&">"
	ee(4) = "<SELECT NAME="& en(4) &"><option value=0>未知</option>" & SelectOptions(conn, "select * from t_firm", "id", "name", ee(4))&"</SELECT>"

	s1 =	"<tr style=""display:none"">" & vbLF & _
		"	<td width=160>这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=182></td>" & vbLF & _
		"	<td width=120></td>" & vbLF & _
		"	<td width=50></td>" & vbLF & _
		"	<td width='*'></td>" & vbLF 

	for i = lb to ub
		ee(i) = wdas(nf(i) & ": " & ee(i), "")
	Next

	s = s & "<table cellspacing=1 cellpadding=0 width=""100%"" border=0 align=center  style=""table-layout:fixed"">" & vbLF 
	s = s & s1 & wra(JOin(ee," "))
	s = s & wtbe

	ModifyTable = "<center>" & FormHead & s & ToolTable	

End Function

Function FormTable()
	If IsEmpty(gAid) Then
		FormTable = InsertTable
	Else
		FormTable = ModifyTable
	End If
End Function


Sub AddEq()
	dim ev2 : ev2 = nf
	dim i,j
	dim sql
	dim mev
	
	for each i in Array(0,1,2)
		ev2(i) = ToSQL(GetParam(arrayFields(i)),"Text")
	Next
	for each i in Array(3,4)
		ev2(i) = ToSQL(GetParam(arrayFields(i)),"Number")
	Next

	sql= "insert into t_accessory (equi_id," & Join(arrayFields,",") & ")" & _
		"values ("&gEid & "," & JOin(ev2,",") & ")"
'	response.write sql
	conn.Execute(sql)
		
End Sub

Sub DeleteEq()
	' LookUp sub equipment
	dim sSQL, iRows

	sSQL = "delete from t_accessory where id=" & gAid
'	ww(sSQL)
	conn.Execute(sSQL)

	gAid = empty
	

End Sub

Sub UpdateEq()
	dim ev3,ev4
	dim i,j
	dim sql
	dim mev
	
	ev3 = arrayFields
	
	


	for each i in Array(0,1,2)
		ev3(i) = ev3(i) & "=" & ToSQL(GetParam(ev3(i)),"Text")
	Next
	for each i in Array(3,4)
		ev3(i) = ev3(i) & "=" & ToSQL(GetParam(ev3(i)),"Number")
	Next


	sql= "update t_accessory set " & Join(ev3,",") & " where id=" & gAid 
'	ww sql
	conn.Execute(sql)
		
End Sub

%>