📄 am_fm_sar.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=400>
<tr><td class=noborder><% MenuIndex %></td></tr>
</table>


<%
	MyDBConnect

	'update
	strSQL="update t_flow_step "
	strSQL=strSQL & " set step_no=step_no+1 "
	strSQL=strSQL & " where step_no > " & Request.Form("step_no")
	DBExecute strSQL

	'insert 
	sid=Request.Form("step_no") + 1
	strSQL="insert into t_flow_step "
	strSQL=strSQL & "(flow_id,step_no,step_op_id,step_op_person,step_desc) values (" 
	strSQL= strSQL & Request.QueryString("fid") & ", " 
	strSQL= strSQL & (Request.Form("step_no")+1) & ","
	strSQL= strSQL & Request.Form("step_op") & ",'"
	strSQL= strSQL & Request.Form("step_op_person") & "','"
	strSQL= strSQL & Request.Form("step_desc") & "')"


	DBExecute strSQL
    
	' Output Result
	strSQL="select flow_id,step_no,operation_name,account_name,step_desc "
	strSQL=strSQL & " from t_flow_step a,t_step_operation b,v_user_account c "
	strSQL=strSQL & " where a.step_op_id=b.operation_id "
	strSQL=strSQL & " and a.step_op_person=c.account_id "
	strSQL=strSQL & " and a.flow_id=" & Request.QueryString("fid") 
	strSQL=strSQL & " and a.step_no=" & (Request.Form("step_no")+1) 
	DBQuery(strSQL)
%>

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

<table cellspacing=0 cellpadding=0 border=1 align=center width=400>
<tr><td colspan=4 class=tblTitle>新 增 流 程 步 骤 结 果</td></tr>
<tr align=center>
	<td class=tdHead>步骤序号</td>
	<td class=tdHead>审批人</td>
	<td class=tdHead>步骤操作</td>
	<td class=tdHead>描   述</td>
</tr>
<tr align=center>
	<td>&nbsp;<%=oRs("step_no")%></td>
	<td>&nbsp;<%=oRs("account_name")%></td>
	<td>&nbsp;<%=oRs("operation_name")%></td>
	<td>&nbsp;<%=oRs("step_desc")%></td>
</tr>
</table>


<%
	Response.Write("<a href='am_fm_sa.asp?fid=" & oRs("flow_id")&"'>")
%>
<img border=0 src=image/newform.gif alt="新增流程步骤">新增流程步骤</a>
<a href=am_fm_fm.asp?fid=<%=Request.QueryString("fid")%>>
<img border=0  src=image/RecordEdit.gif alt="修改流程">修改流程</a>
<%	
	' Close Recordset
	DBEndQuery

	DBDisconnect
%>

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

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