📄 am_fm_fm.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<!--#INCLUDE FILE="z_common.asp"-->
<html>
<head>
<title>修改流程</title>
<style type="text/css">
<!-- @import url(../common.css); -->
</style>
<script Language="VBScript">
sub btnSubmit_OnClick()
	Dim sErr
	sErr=""
	if Trim(document.flowform.flow_name.value = "") then
		sErr= sErr & "请输入流程名称！" & Chr(13)
	end if
	if Trim(document.flowform.flow_file.value = "") then
		sErr= sErr & "请输入流程审批文件路径！" & Chr(13)
	end if
	If len(sErr)>0 Then
		MsgBox sErr
		exit sub
	End If
	document.flowform.submit()
end sub

</script>

</head>
<body>
<p>
<table cellspacing=0 cellpadding=0 align=center border=0 width=400>
<tr><td class=noborder><% MenuIndex %></td></tr>
</table>


<%
	MyDBConnect
	' Output Result
	strSQL="select flow_id,flow_name,template_name,account_name,flow_file,flow_urge_way,flow_stat "
	strSQL=strSQL & " from t_flow a,t_flow_stat b,v_user_account c,t_flow_template d "
	strSQL=strSQL & " where a.flow_stat=b.stat_id "
	strSQL=strSQL & " and a.flow_author_id=c.account_id "
	strSQL=strSQL & " and a.flow_template_id=d.template_id "
	strSQL=strSQL & " and a.flow_id=" & Request.QueryString("fid") 
	DBQuery(strSQL)
	oRs1=oRs
	If oRs1("flow_stat") <> 2 Then
		response.redirect "../docmgr/my_error_page.asp?eid=2"
	End If
%>
<br>
<br>
<form name=flowform method="post" action="am_fm_fmr.asp?fid=<%=Request.QueryString("fid")%>">
<table cellspacing=0 cellpadding=0 align=center width=400 border=1 class=tblDashed>
<tr><td colspan=2 class=tblTitle>修 改 流 程</td></tr>
<tr height=25px>
	<td class=noborder align=center width=120px>流程名称  </td>
	<td class=noborder><input type=text name=flow_name value="<%=oRs1("flow_name")%>" class=RimInput></td>
</tr>
<tr height=25px>
	<td class=noborder align=center>流程模板</td>
	<td class=noborder><select name="flow_template" style="width:131px">
<%
	strSQL="select * from t_flow_template "
	DBQuery(strSQL)

   
     Do while (Not oRs.eof)
		If(oRs("template_name")=oRs1("template_name")) Then
          Response.write("<option value="& oRs("template_id") &" selected >" & oRs("template_name") &"</option>") 
		Else
'          Response.write("<option value="& oRs("template_id") &" >" & oRs("template_name") &"</option>") 
		End If
          oRs.MoveNext 
     Loop 
	 DBEndQuery
%>
</select></td>
</tr>
<tr height=25px>
	<td class=noborder align=center>创建者</td>
	<td class=noborder><select name="account_id" style="width:131px">
<%
	strSQL="select * from v_user_account "
	DBQuery(strSQL)

   
     Do while (Not oRs.eof)
		If(oRs("account_name")=oRs1("account_name")) Then
          Response.write("<option value="& oRs("account_id") &" selected >" & oRs("account_name") &"</option>") 
		Else
          Response.write("<option value="& oRs("account_id") &" >" & oRs("account_name") &"</option>") 
		End If
          oRs.MoveNext 
     Loop 
	 DBEndQuery
%>
</select></td>
</tr>
<tr height=25px>
	<td class=noborder align=center>流程审批文件:</td>
	<td class=noborder><input type=text name=flow_file value="<%=oRs1("flow_file")%>" class=RimInput></td>
</tr>
<tr height=25px>
	<td class=noborder align=center>催办办法 </td>
	<td class=noborder><input type=text name=flow_urge_way value="<%=oRs1("flow_urge_way")%>" class=RimInput></td>
</tr>
<tr height=30px><td class=noborder colspan=2 align=center><input type=button name=btnSubmit value="确认修改" class=FlatBtn>&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset value="重设修改" class=FlatBtn>&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value="返  回" class=FlatBtn onclick=javascript:history.go(-1)></td></tr>

</table>

</form>


<p align=center><a href=am_fm_stm.asp?fid=<%=Request.QueryString("fid")%>><img border=0 src="image/RecordEdit.gif">修改流程状态</a>
<br><br><br>
<%
	Response.Write("<a href='am_fm_sa.asp?fid=" & Request.QueryString("fid") &"'>")
%>
<img border=0 src=image/newform.gif alt="新增流程步骤">新增流程步骤</a>

<table cellspacing=0 cellpadding=0 border=1 align=center width=400>
<tr align=center>
<%
	strSQL="select cur_step from t_cur_step where flow_id=" & Request.QueryString("fid")
	DBQuery(strSQL)

%>
	<td colspan=6 class=tblTitle>流程步骤[当前处于第<%=oRs("cur_step")%>步]</td>
</tr>
<tr align=center>
	<td class=tdHead>步骤序号</td>
	<td class=tdHead>审批人</td>
	<td class=tdHead>操作</td>
	<td class=tdHead>描述</td>
	<td class=tdHead>修改</td>
	<td class=tdHead>删除</td>
</tr>
<%
	strSQL="select * from t_flow_step a,v_user_account b,t_step_operation c"
	strSQL=strSQL & " where a.step_op_person=b.account_id "
	strSQL=strSQL & " and a.step_op_id=c.operation_id "
	strSQL=strSQL & " and flow_id=" & Request.QueryString("fid")
	strSQL=strSQL & " order by step_no asc"
	DBQuery(strSQL)
    Do while (Not oRs.eof) 
		Response.Write("<tr align=center>")
		Response.Write("<td>&nbsp;" & oRs("step_no")&"</td>")
		Response.Write("<td>&nbsp;" & oRs("account_name")&"</td>")
		Response.Write("<td>&nbsp;" & oRs("operation_name")&"</td>")
		Response.Write("<td>&nbsp;" & oRs("step_desc")&"</td>")
		Response.Write("<td>&nbsp;<a href=am_fm_sm.asp?fid="&Request.QueryString("fid")&"&sid="&oRs("step_no")&"><img border=0 src=image/RecordEdit.gif></a></td>")
		Response.Write("<td>&nbsp;<a href=am_fm_sd.asp?fid="&Request.QueryString("fid")&"&sid="&oRs("step_no")&"><img border=0 src=image/Remove.gif></a></td>")
		Response.Write("</tr>")
		oRs.MoveNext 
    Loop 
	DBEndQuery
%>
</table>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -