📄 am_fm_fmr.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
'update
strSQL="update t_flow "
strSQL=strSQL & " set flow_name='" & Request.Form("flow_name")
strSQL=strSQL & "', flow_template_id=" & Request.Form("flow_template")
strSQL=strSQL & " ,flow_author_id='" & Request.Form("account_id") &"'"
strSQL=strSQL & " ,flow_file='" & Request.Form("flow_file") &"'"
strSQL=strSQL & " ,flow_urge_way='" & Request.Form("flow_urge_way") &"'"
strSQL=strSQL & " where flow_id = " & Request.QueryString("fid")
' response.write strSQL
' response.end
DBExecute strSQL
' Output Result
strSQL="select template_name,flow_name,account_name,flow_file,flow_urge_way"
strSQL=strSQL & " from t_flow_template a,t_flow b,v_user_account c "
strSQL=strSQL & " where a.template_id=b.flow_template_id "
strSQL=strSQL & " and b.flow_author_id=c.account_id "
strSQL=strSQL & " and b.flow_id=" & Request.QueryString("fid")
DBQuery(strSQL)
%>
<p align=center>*******成功修改流程*********<br>
<table cellspacing=0 cellpadding=0 border=1 align=center width=600>
<tr><td class=tblTitle colspan=5>修 改 流 程 结 果</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>
</tr>
<tr align=center>
<td> <%=oRs("flow_name")%></td>
<td> <%=oRs("template_name")%></td>
<td> <%=oRs("account_name")%></td>
<td> <%=GetSubject(oRs("flow_file"))%></td>
<td> <%=oRs("flow_urge_way")%></td>
</tr>
</table>
<br>
<br>
<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 + -