📄 am_om_osr.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
'
	'choose the step 
	strSQL="select cur_step from t_cur_step where flow_id=" & Request.QueryString("fid")
	DBQuery(strSQL)
	sid=oRs("cur_step")

	strSQL="select opinion from t_flow_opinion "
	strSQL= strSQL & "where flow_id= " & Request.QueryString("fid")
	strSQL=strSQL & " and step_no=" & sid
	DBQuery(strSQL)

	If oRs.eof Then
	strSQL="insert into t_flow_opinion"
	strSQL=strSQL & " (opinion,step_no,flow_id) values ('"
	strSQL=strSQL & Request.Form("opinion") &"'," & sid &","
	strSQL=strSQL & Request.QueryString("fid") & ")"
	Else
	strSQL="update t_flow_opinion"
	strSQL=strSQL & " set opinion='" & Request.Form("opinion") 
	strSQL=strSQL & "' where flow_id=" & Request.QueryString("fid")
	strSQL=strSQL & " and step_no=" & sid
	End If
	DBExecute strSQL
    
	' Output Result
	strSQL="select opinion from t_flow_opinion "
	strSQL=strSQL & " where flow_id=" & Request.QueryString("fid") 
	strSQL=strSQL & " and step_no=" & sid
	DBQuery(strSQL)
%>

<p align=center>*******成功审批*********<br><br>
<table cellspacing=0 cellpadding=0 align=center border=3 width=400 height=200>
<tr align=left height=30px>
	<td style="border:solid;border-width:1px;border-color:white white gray white">&nbsp;审批意见为：</td>
</tr>
<tr align=center >
	<td class=noborder><%=oRs("opinion")%></td>
</tr>
</table>
<br>
<br>
<%
	strSQL="select count(*) num from t_flow_step where flow_id=" & Request.QueryString("fid")
	DBQuery(strSQL)
	sid_all=oRs("num")
	If sid>1 Then
%>
<a href="am_om_su.asp?fid=<%=Request.QueryString("fid")%>"><img border=0 src="image/up.gif" alt="上一步">上一步</a>
<%
	End If
	If sid<=sid_all Then
%>
<a href="am_om_sd.asp?fid=<%=Request.QueryString("fid")%>"><img border=0  src="image/down.gif" alt="下一步">下一步</a>
<%
	End If
%>
<%	
	' Close Recordset
	DBEndQuery

	DBDisconnect
%>

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

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