updatesysplan.inc

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

			s = s &		"	<td align=right>&nbsp;附 件 一：</td>"
			s = s &		"	<td><input type=""file"" name=""attach_1"" ></td></tr>"
			s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
			s = s &		"	<td align=right>&nbsp;附 件 二：</td>"
			s = s &		"	<td><input type=""file"" name=""attach_2"" ></td></tr>"
			s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
			s = s &		"	<td align=right>&nbsp;附 件 三：</td>"
			s = s &		"	<td><input type=""file"" name=""attach_3"" ></td></tr>"
			s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
			s = s &		"		<td align=right>备注：</td>" 
			s = s &		"		<td colspan=3><textarea rows=4 style=""width:196px"" name=""remark"">"& sRemark & "</textarea></td></tr>" & vbLF
			s = s & 		sActionLinks & vbLF
'			s = s &		"<tr height=180><td></td></tr>" & vbLF
			s = s & 		"</form>"
			s = s &		"</table>" & vbLF &	""
        else'更新
			s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
			s = s &		"		<td align=right>备注：</td>" 
			s = s &		"		<td colspan=3><textarea rows=4 style=""width:196px"" name=""remark"">"& sRemark & "</textarea></td></tr>" & vbLF
			s = s & 		sActionLinks & vbLF
			s = s & 		"</form>"
			sSQL = "select count(*) from t_maintain_attachment where plan_id =" & ToSQL(iPlanId, "Number")
			iRows = DLookUp(conn, sSQL)
			dim rs_attach
			sSQL = "select * from t_maintain_attachment where plan_id =" & ToSQL(iPlanId,"Number")
			set rs_attach = OpenRs(conn,sSQL)
			dim i,j
			i = iRows
			j = 1
			do while i > 0 
			'已经上传的附件
				s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
				s = s &		"	<td align=right>&nbsp;附 件 " & TransNumber(j) & "：</td>"
				s = s &		"	<td><a target=_blank href=""content_show.asp?attach_id="&GetValue(rs_attach,"attach_id")
				s = s &		"&"" style=""color:blue""><img border=0 src=""../images/bg/ar-g.gif"" width=8 height=8>" 
				s = s &		GetValue(rs_attach,"attach_name") & "</a>"
				s = s &		"<a target=_blank onclick=""javascript:window.open('doc_delete_action.asp?attach_id="&GetValue(rs_attach,"attach_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('doc_upload.asp?attach_id="&GetValue(rs_attach,"attach_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>"
				s = s &		"</td></tr>"
				i = i - 1
				j = j + 1
				rs_attach.movenext
			loop
			i = 3 - iRows
			do while i > 0
			'还可以上传的附件
				s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
				s = s &		"<form name = frm"&j&"  method=""post"" enctype=""multipart/form-data"" action=""doc_upload_action.asp"">"
				s = s &		"	<td align=right>&nbsp;附 件 " & TransNumber(j) & "：</td>"
				s = s &		"	<td><input type=""file"" name=""content"" >"
				s = s &		"<input type=""hidden"" name=""attach_id"" value=""0"">"
				s = s &		"<input type=""hidden"" name=""plan_id"" value=""" & iPlanId &""">"
				s = s &		"<input type=""hidden"" name=""equi_sys_id"" value=""" & pEquiSysId &""">"
				s = s &		"<input type=""hidden"" name=""object_type"" value=""" & pObjectType &""">"
				s = s &		"<input type=""image"" name=""Enter"" src=""../images/upload.gif"" style=""border-width:0"" ><span onclick=""javascript:frm"&j&".submit()"" style=""color:blue;cursor:hand"" >上传</span>"
				s = s &		"	</td></tr>"
				s = s &		"</form>"
 				i = i - 1
				j = j + 1
			loop
			s = s &		"</table>" & vbLF &	""
		end if
		FormTable = s
	else
		FormTable = s
	end if
End Function



sub AddSysPlan()
	if hasright(ID_EQUIPMENT) < RIGHT_WRITE  then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，您没有更新系统结构的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	dim sSQL, iRows
	dim iPeriod, dNexttime, sContent, iPlanHours, iLimitDays, iDepartment, iRemind
	iPeriod = GetParam("period")
	dNexttime = GetParam("nexttime")
	iPlanHours = GetParam("plan_hours")
	iLimitDays = GetParam("limit_days")
	iDepartment = GetParam("department")
	iRemind = GetParam("remindmethod")
	sContent = trim(GetParam("content"))
	sRemark = trim(GetParam("remark"))
	'' 维保内容不能为空
	if sContent = "" then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，请输入维保内容"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if

	'添加维保计划
	sSQL = "insert into t_maintain(equi_sys_id, object_type, period, nexttime, content, plan_hours, limit_days, remindmethod, department,remark ) "
	sSQL = sSQL & "values(" & ToSQL(pEquiSysId, "Number") & "," & ToSQL(pObjectType, "Number") & "," & ToSQL(iPeriod, "Number")
	sSQL = sSQL & "," & ToSQL(dNexttime, "Text") & "," & ToSQL(sContent, "Text") & "," & ToSQL(iPlanhours, "Number")
	sSQL = sSQL & "," & ToSQL(iLimitDays, "Number") & "," & ToSQL(iRemind, "Number") &"," & ToSQL(iDepartment, "Number")
	sSQL = sSQL & "," & ToSQL(sRemark, "Text") & ")"
	conn.Execute(sSQL)
end sub

sub UpdateSysPlan()
	if hasright(ID_EQUIPMENT) < RIGHT_WRITE  then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，您没有更新系统结构的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	dim sSQL, iRows
	dim iPeriod, dNexttime, sContent, iPlanHours, iLimitDays, iDepartment, iRemind, sRemark
	iPeriod = GetParam("period")
	dNexttime = GetParam("nexttime")
	iPlanHours = GetParam("plan_hours")
	iLimitDays = GetParam("limit_days")
	iDepartment = GetParam("department")
	iRemind = GetParam("remind")
	sContent = trim(GetParam("content"))
	sRemark = trim(GetParam("remark"))
	'' 维保内容不能为空
	if sContent = "" then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，请输入维保内容"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if

	'添加维保计划
	sSQL = "update t_maintain set "
	sSQL = sSQL & " period = " & ToSQL(iPeriod, "Number") & ","
	sSQL = sSQL & " nexttime = " & ToSQL(dNexttime, "Text") & ","
	sSQL = sSQL & " content = " & ToSQL(sContent, "Text") & ","
	sSQL = sSQL & " plan_hours = " & ToSQL(iPeriod, "Number") & ","
	sSQL = sSQL & " limit_days = "& ToSQL(iLimitDays, "Number") & ","
	sSQL = sSQL & " remindmethod = "& ToSQL(iRemind, "Number") & ","
	sSQL = sSQL & " department = "& ToSQL(iDepartment, "Number") & ","
	sSQL = sSQL & " remark = "& ToSQL(sRemark, "Text")
	sSQL = sSQL & " where equi_sys_id = "& ToSQL(pEquiSysId, "Number") &" and object_type="&pObjectType
	conn.Execute(sSQL)
end sub

sub DeleteSysPlan()
	if hasright(ID_EQUIPMENT) < RIGHT_WRITE  then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，您没有更新系统结构的权限(您的角色没有设备更新的权限)！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	dim sSQL, iRows

	'' 检查是否存在使用中的系统维保计划
	iRows = DLookUp(conn, "select count(*) from t_maintain where object_type = "&ToSQL(pObjectType,"Number")&" and equi_sys_id =" & ToSQL(pEquiSysId, "Number"))
	if iRows = 0 then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，系统中不存在该系统的维保计划，不能删除！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	sSQL = "delete from t_maintain where equi_sys_id = " & ToSQL(pEquiSysId, "Number") & " and object_type="&ToSQL(pObjectType,"Number")
'	response.write sSQL
'	response.end
	conn.Execute(sSQL)
'	pEquiSysId = empty		'' 重新置成新增状态
end sub
%>