efile.inc.bak

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

<%

Function FormTable(eid)
	dim sTitle, sActionLinks, iRows, sSQL
	dim s :	s = "" & wra(wdas("说明书/维保合同"," align=center colspan=2 height=60 "))
'	response.write "pEquiSysId="&pEquiSysId
'	response.end

	'show 说明书
	sSQL = "select count(*) from t_equip_file where attach_type=0 and equi_id =" & ToSQL(eid, "Number")
	iRows = DLookUp(conn, sSQL)

	dim rs_attach
	sSQL = "select * from t_equip_file where attach_type=0 and equi_id =" & ToSQL(eid,"Number")
	set rs_attach = OpenRs(conn,sSQL)
	dim i,j
	i = iRows
	j = 1
	do while i > 0 
	'已经上传的sms
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"	<td align=right width=200>&nbsp;说 明 书 " & j & "：</td>"
		s = s &		"	<td><a target=_blank href=""ec_show.asp?cid="&GetValue(rs_attach,"contract_id")
		s = s &		"&"" style=""color:blue""><img border=0 src=""../images/bg/ar-g.gif"" width=8 height=8>" 
		s = s &		GetValue(rs_attach,"name") & "</a>"
		If Hasright(ID_EQUIPMENT) >= RIGHT_WRITE Then
		s = s &		"<a target=_blank onclick=""javascript:window.open('edoc_delete_action.asp?cid="&GetValue(rs_attach,"contract_id")
		s = s &		"','','width=490,height=140,top=200,left=200');"" style=""color:blue;cursor:hand""><img border=0 src=""../images/del.gif"" title=""删除附件"">删除</a>"
		s = s &		"<a target=_blank onclick=""javascript:window.open('edoc_upload.asp?cid="&GetValue(rs_attach,"contract_id")
		s = s &		"','','width=490,height=140,top=200,left=200');"" style=""color:blue;cursor:hand""><img border=0 src=""../images/upload.gif"" title=""重新上传维保附件"">重传</a>"
		End If
		s = s &		"</td></tr>"
		i = i - 1
		j = j + 1
		rs_attach.movenext
	loop
	closers(rs_attach)

	'show 维保合同
	sSQL = "select count(*) from t_equip_file where attach_type=1 and equi_id =" & ToSQL(eid, "Number")
	iRows = DLookUp(conn, sSQL)

	
	sSQL = "select * from t_equip_file where attach_type=1 and equi_id =" & ToSQL(eid,"Number")
	set rs_attach = OpenRs(conn,sSQL)
	
	i = iRows
	j = 1
	do while i > 0 
	'已经上传的sms
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"	<td align=right>&nbsp;维保合同 " & j & "：</td>"
		s = s &		"	<td><a target=_blank href=""ec_show.asp?cid="&GetValue(rs_attach,"contract_id")
		s = s &		"&"" style=""color:blue""><img border=0 src=""../images/bg/ar-g.gif"" width=8 height=8>" 
		s = s &		GetValue(rs_attach,"name") & "</a>"

		If Hasright(ID_EQUIPMENT) >= RIGHT_WRITE Then

		s = s &		"<a target=_blank onclick=""javascript:window.open('edoc_delete_action.asp?cid="&GetValue(rs_attach,"contract_id")
		s = s &		"','','width=490,height=140,top=200,left=200');"" style=""color:blue;cursor:hand""><img border=0 src=""../images/del.gif"" title=""删除附件"">删除</a>"
		s = s &		"<a target=_blank onclick=""javascript:window.open('edoc_upload.asp?cid="&GetValue(rs_attach,"contract_id")
		s = s &		"','','width=490,height=140,top=200,left=200');"" style=""color:blue;cursor:hand""><img border=0 src=""../images/upload.gif"" title=""重新上传维保附件"">重传</a>"

		End If
		s = s &		"</td></tr>"
		i = i - 1
		j = j + 1
		rs_attach.movenext
	loop
	closers(rs_attach)

'	s = s & wra(wdas("<hr width=600 align=center>"," colspan=2 align=left "))

	'还可以上传的附件
	If Hasright(ID_EQUIPMENT) >= RIGHT_WRITE Then

		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"<form name = frm  method=""post"" enctype=""multipart/form-data"" action=""edoc_upload_action.asp"">"
'		s = s &		"	<td align=right>&nbsp;说明书/维保合同" & "：</td>"
		s = s &		"	<td align=right ><select name=""attach_type""><option value=0>说明书</option><option value=1>维保合同</option></select>：</td>" 
		s = s &		"	<td><input type=""file"" name=""content"" >"
		s = s &		"<input type=""hidden"" name=""cid"" value=""0"">"
		s = s &		"<input type=""hidden"" name=""eid"" value=""" & gEid &""">"
'		s = s &		"<select name=""attach_type""><option value=0>说明书</option><option value=1>维保合同</option></select>" 
		s = s &		"<input type=""image"" name=""Enter"" src=""../images/upload.gif"" style=""border-width:0"">上传"
		s = s &		"	</td></tr>"
		s = s &		"</form>"
	End If
		i = i - 1
		j = j + 1

	FormTable = wtbas(s," width=600 border=0")
End Function



%>