📄 am_fm_msr.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=600>
<tr><td class=noborder><% MenuIndex %></td></tr>
</table>


<%
	MyDBConnect
	'insert 
	'response.write(Request.Form("subject"))
	f="../meeting/meetingdetail.asp?subject=" & Request.Form("subject")
	f=f & "&mtype=" & Request.Form("mtype")
	'execute the store procedure
	ss="proc_submitflow '"
	ss=ss & Request.Form("flow_name") & "',"
	ss=ss & Request.Form("flow_template") & ",'"
	ss=ss & Session("UserID") & "','"
	ss=ss & f & "','"
	ss=ss & Request.Form("flow_urge_way") & "'"

'	response.write(ss)
		'DBQuery(ss)
	DBQuery(ss)  
	'response.write(oRs(0))
	r=oRs(0)
    If r >= 0 Then
	'DBEndQuery
		s=Request.Form("subject")
		MeetingStart(s)
	'Output Result
	
	strSQL="select flow_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_name='" & Request.Form("flow_name") & "'  order by flow_id desc " 
	DBQuery(strSQL)
	'oRs1=oRs
	
	'insert cur_step
'	strSQL="insert into t_cur_step (flow_id,cur_step) "
'	strSQL=strSQL & " values (" &oRs1("flow_id") 
'	strSQL=strSQL & ",0)" 
'	DBExecute strSQL
'
	'insert steps
'	strSQL="select step_no,step_op_id,step_op_person,step_desc from t_template_step"
'	strSQL=strSQL & " where template_id=" & Request.Form("flow_template")
'	'DBQuery(strSQL)
'	set oRs2=oConn.Execute (strSQL)
'
'	'oRs2=oRs


'	Do while (Not oRs2.eof)
'			  strSQL="insert into t_flow_step"
'			  strSQL=strSQL & "(flow_id,step_no,step_op_id,step_op_person,step_desc)"
'			  strSQL=strSQL & " values (" & oRs1("flow_id") & "," & oRs2("step_no") &","
'			  strSQL=strSQL & oRs2("step_op_id") &",'"
'			  strSQL=strSQL & oRs2("step_op_person") & "','"
'			  strSQL=strSQL & oRs2("step_desc") & "')"
'			  DBExecute strSQL
'				  
'			  
'		 
' 
'		 oRs2.MoveNext 
'	Loop 
'

%>

<p align=center>*******会议审批提交成功*********<br>

<table cellspacing=0 cellpadding=0 border=1 align=center 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>&nbsp;<%=oRs("flow_name")%></td>
	<td>&nbsp;<%=oRs("stat_name")%></td>
	<td>&nbsp;<%=oRs("template_name")%></td>
	<td>&nbsp;<%=oRs("account_name")%></td>
	<td>&nbsp;<%=Request.Form("subject")%></td>
	<td>&nbsp;<%=oRs("flow_urge_way")%></td>
</tr>
</table>

<script Language='VBScript'>
	msgbox "会议正在审批过程中"
'	window.navigate "../meeting/applymeeting.asp"
</script>
<%
	Else
		response.write("Error Happen: errcode=" & r)
		If r=-3 Then
			response.write("请先在流程模板中加入审批步骤")
		End If
	End If
	DBDisconnect
%>
             
</body>
</html>
⌨️ 快捷键说明

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