📄 am_fm_far.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<!--#INCLUDE FILE="z_common.asp"-->
<html>
<head>
<title>新增流程结果</title>
<style type="text/css">
<!-- @import url(../common.css); -->
</style>
</head>
<body>
<p>
<table cellspacing=0 cellpadding=0 align=center border=0 width=600>
<tr><td class=noborder><% MenuIndex %></td></tr>
</table>

<%

	MyDBConnect
	'decide if the template has several steps


	'insert 
	strSQL="insert into t_flow (flow_name,flow_stat,flow_template_id,flow_author_id,flow_file,flow_urge_way)"
	 
	strSQL= strSQL & "values ('" & Request.Form("flow_name") & "',2, " 
	strSQL= strSQL & Request.Form("flow_template") & ",'" & Session("UserID") &"','"
	strSQL= strSQL & Request.Form("flow_file") & "','" & Request.Form("flow_urge_way")
	strSQL= strSQL & "')"
	DBExecute strSQL

    
	' Output Result
	strSQL="select flow_id, flow_name,template_name,stat_name,account_name,flow_file,flow_urge_way"
	strSQL=strSQL & " from t_flow a,t_flow_template b,v_user_account c,t_flow_stat d"
	strSQL=strSQL & " where a.flow_template_id=b.template_id "
	strSQL=strSQL & " and a.flow_author_id=c.account_id "
	strSQL=strSQL & " and a.flow_stat=d.stat_id"
	strSQL=strSQL & " and a.flow_name='" & Request.Form("flow_name") & "'  order by flow_id desc " 
	DBQuery(strSQL)
	oRs1=oRs
	
	'insert cur_step
	strSQL="insert into t_cur_step (flow_id,cur_step) "
	strSQL=strSQL & " values (" &oRs1("flow_id") 
	strSQL=strSQL & ",0)" 
	DBExecute strSQL

	'insert steps
	strSQL="select step_no,step_op_id,step_op_person,step_desc from t_template_step"
	strSQL=strSQL & " where template_id=" & Request.Form("flow_template")
	'DBQuery(strSQL)
	set oRs2=oConn.Execute (strSQL)

	'oRs2=oRs


	Do while (Not oRs2.eof)
			  strSQL="insert into t_flow_step"
			  strSQL=strSQL & "(flow_id,step_no,step_op_id,step_op_person,step_desc)"
			  strSQL=strSQL & " values (" & oRs1("flow_id") & "," & oRs2("step_no") &","
			  strSQL=strSQL & oRs2("step_op_id") &",'"
			  strSQL=strSQL & oRs2("step_op_person") & "','"
			  strSQL=strSQL & oRs2("step_desc") & "')"
			  DBExecute strSQL
				  
			  
		 
 
		 oRs2.MoveNext 
	Loop 


%>

<p align=center>*******成功新增流程*********<br>

<table cellspacing=0 cellpadding=0 border=1 align=center width=600>
<tr><td class=tblTitle colspan=6>新 增 流 程 结 果</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>
<tr align=center>
	<td>&nbsp;<%=oRs1("flow_name")%></td>
	<td>&nbsp;<%=oRs1("stat_name")%></td>
	<td>&nbsp;<a href="am_ftm_ftp.asp?tid=<%=Request.Form("flow_template")%>"><%=oRs1("template_name")%></a></td>
	<td>&nbsp;<%=oRs1("account_name")%></td>
	<td>&nbsp;<%=GetSubject(oRs1("flow_file"))%></td>
	<td>&nbsp;<%=oRs1("flow_urge_way")%></td>
</tr>
</table>

<p align=center><a href="am_fm_fp.asp?fid=<%=oRs1("flow_id")%>"><img border=0 src=image/advanced.gif alt="察看流程属性">察看流程属性</a>
<%
	Response.Write("<a href='am_fm_stm.asp?fid=" & oRs1("flow_id")&"'>")
%>
<img border=0 src="image/newform.gif" alt="修改流程状态">修改流程状态</a>
<%	
	' Close Recordset
	DBEndQuery

	DBDisconnect
%>

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

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