📄 am_fm_sdr.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
	'delete steps
	strSQL="delete from t_flow_step where flow_id=" & Request.QueryString("fid")
	strSQL=strSQL & " and step_no=" & Request.QueryString("sid")
	DBExecute strSQL
    
	'update steps
	strSQL="update t_flow_step set step_no = step_no - 1 where step_no >" & Request.QueryString("sid")
	strSQL=strSQL & " and flow_id=" & Request.QueryString("fid")
	DBExecute strSQL
%>
<p align=center>********删除成功**********
<br>
<table cellspacing=0 cellpadding=0 border=1 align=center width=400>
<tr align=center>
	<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>
<%
	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")
	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("</tr>")
		oRs.MoveNext 
    Loop 
	DBEndQuery
%>
</table>

<a href=am_fm_fm.asp?fid=<%=Request.QueryString("fid")%>>
<img border=0  src=image/RecordEdit.gif alt="修改流程">继续修改流程</a>
<%	
	' Close Recordset

	DBDisconnect
%>

             
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -