📄 am_om_os.asp
字号:
<!--#INCLUDE FILE="z_common.asp"-->
<html>
<head>
<title>审批流程</title>
<style type="text/css">
<!-- @import url(../common.css); -->
</style>
<script Language="VBScript">
sub btnSubmit_OnClick()
Dim sErr
sErr=""
if Trim(document.flowform.opinion.value = "") then
sErr= sErr & "请输入审批意见！" & Chr(13)
end if
If len(sErr)>0 Then
MsgBox sErr
exit sub
End If
document.flowform.submit()
end sub
</script>
</head>
<body>
<p>
<table cellspacing=0 cellpadding=0 align=center border=0 width=600>
<tr><td class=noborder><% MenuIndex %></td></tr>
</table>
<%
MyDBConnect
' Output Result
strSQL="select flow_id,template_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_id=" & Request.QueryString("fid")
DBQuery(strSQL)
%>
<br>
<br>
<table cellspacing=0 cellpadding=0 align=center border=1 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> <%=oRs("flow_name")%></td>
<td> <%=oRs("stat_name")%></td>
<td> <a href="am_ftm_ftp.asp?tid=<%=oRs("template_id")%>"><%=oRs("template_name")%></a></td>
<td> <%=oRs("account_name")%></td>
<td> <a href="<%=GetURL(oRs("flow_file"))%>"><%=GetSubject(oRs("flow_file"))%></a></td>
<td> <%=oRs("flow_urge_way")%></td>
</tr>
</table>
<br>
<br>
<table cellspacing=0 cellpadding=0 border=1 align=center width=600>
<tr align=center>
<%
DBEndQuery
strSQL="select cur_step from t_cur_step where flow_id="
strSQL=strSQL & Request.QueryString("fid")
DBQuery(strSQL)
%>
<td colspan=4 class=tblTitle>流程步骤--当前处于第<%=oRs("cur_step")%>步</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")
strSQL=strSQL & " order by step_no asc"
DBQuery(strSQL)
Do while (Not oRs.eof)
Response.Write("<tr align=center>")
Response.Write("<td> " & oRs("step_no")&"</td>")
Response.Write("<td> " & oRs("account_name")&"</td>")
Response.Write("<td> " & oRs("operation_name")&"</td>")
Response.Write("<td> " & oRs("step_desc")&"</td>")
Response.Write("</tr>")
oRs.MoveNext
Loop
DBEndQuery
%>
</table>
<br>
<br>
<table align=center border=3 width=600 height=50>
<tr align=center>
<td align=center class=noborder>显示审批意见</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 border=1 align=center width=600>
<tr align=center>
<td colspan=3 class=tblTitle>审 批 意 见</td>
</tr>
<tr align=center>
<td class=tdHead>步骤序号</td>
<td class=tdHead>审批人</td>
<td class=tdHead>审批意见</td>
</tr>
<%
strSQL="select a.step_no,account_name,opinion from t_flow_opinion a,t_flow_step b,v_user_account c"
strSQL=strSQL & " where a.flow_id=b.flow_id and a.step_no=b.step_no and b.step_op_person=c.account_id"
strSQL=strSQL & " and a.flow_id=" & Request.QueryString("fid")
DBQuery strSQL
Do while (Not oRs.eof)
Response.Write("<tr align=center>")
Response.Write("<td> " & oRs("step_no")&"</td>")
Response.Write("<td> " & oRs("account_name")&"</td>")
Response.Write("<td align=left> " & oRs("opinion")&"</td>")
Response.Write("</tr>")
oRs.MoveNext
Loop
DBEndQuery
%>
</table>
<form name=flowform method="post" action="am_om_osr.asp?fid=<%=Request.QueryString("fid")%>">
<table cellspacing=0 cellpadding=0 border=1 align=center width=600 class=tblDashed>
<tr><td class=tblTitle>填 写 审 批 意 见</td></tr>
<%
strSQL="select opinion from t_flow_opinion a,t_cur_step b"
strSQL=strSQL & " where a.flow_id=b.flow_id and a.step_no=b.cur_step "
strSQL=strSQL & " and a.flow_id=" & Request.QueryString("fid")
DBQuery(strSQL)
%>
<tr><td class=noborder align=center><textarea name="opinion" rows=8 cols=72 style="font-size:11pt;border:solid;border-width:1px;border-color:gray gray gray gray">
<%
If Not oRs.eof Then
Response.Write(oRs("opinion"))
End If
%></textarea></td></tr>
<tr height=40px><td class=noborder align=center><input type=button name=btnSubmit value="确认审批" class=FlatBtn> <input type=reset value="重新输入" class=FlatBtn></td></tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -