📄 am_om_sd.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

	fid=Request.QueryString("fid")
	'If it's the end step
	strSQL="select count(*) num from t_flow_step where flow_id=" & fid
	DBQuery(strSQL)
	sid_all=oRs("num")
	
	strSQL="select cur_step from t_cur_step where flow_id=" & fid
	DBQuery(strSQL)
	sid=oRs("cur_step")

	If sid=sid_all Then
		'It's the end 
		
		FlowStateChange fid,4
		FlowNewTask fid,1
%>
<p align=center>********流程已完成*********
<%
			response.end
	Else
		' Update step to up step
		strSQL="update t_cur_step set cur_step=cur_step+1"
		strSQL=strSQL & " where flow_id=" & fid
		DBExecute strSQL

		'output
		strSQL="select cur_step from t_cur_step where flow_id=" & fid
		DBQuery(strSQL)

%>
	<br>
	<p align=center>********成功转入下一步*************
<table cellspacing=0 cellpadding=0 width=400px border=1 align=center>
<tr><td class=tblTitle>转 入 下 一 步 结 果</td></tr>
<tr height=50px><td align=center>当前的步骤序号为<b>第<%=oRs("cur_step")%>步</b></td></tr>
</table>
<%
		FlowNewTask fid,0
		
	End If
	DBEndQuery
	DBDisconnect
%>


</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -