📄 am_fm_ms.asp

📁 物业管理和办公自动化系统
💻 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.flow_name.value = "") then
		sErr= sErr & "请输入流程名称！" & Chr(13)
	end if
	if Trim(document.flowform.flow_file.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=450>
<tr><td class=noborder><% MenuIndex %></td></tr>
</table>


<%
	MyDBConnect

	strSQL="select * from t_flow_template where template_name LIKE '%会议%'"
	DBQuery(strSQL)

	If oRs.eof Then
		'response.write(oRs.eof)
		response.write("<br><font color=RED>注意：请先新建相关会议流程模板</font><br>")
		response.end
	Else
'	End If
%>
<form name=flowform method="post" action="am_fm_msr.asp">
<table cellspacing=0 cellpadding=0 align=center border=1 width=450 class=tblDashed>
<tr><td class=tblTitle colspan=4>会 议 提 交 审 批</td></title>
<tr height=25px><td class=noborder align=center width=100px>流程名称</td><td class=noborder colspan=3><input type="text" name="flow_name" class=RimInput style="width:320px">
</td></tr>

<tr height=25px><td class=noborder align=center>流程模板:</td><td class=noborder colspan=3><select name="flow_template" style="width:321px">
<%   
	 c=0
     Do while (Not oRs.eof) 
   		  strSQL="select count(*) num from t_template_step where template_id=" & oRs("template_id")
		  Set oRs1=oConn.Execute(strSQL)
		  If oRs1("num") > 0 Then
			  c=c+1
	          Response.write("<option value="& oRs("template_id") &" >" & oRs("template_name") &"</option>")   
		  End If
          oRs.MoveNext 
     Loop 
	 oRs1.close
	 Set oRs1=nothing
%>
</select>
<br>
<%
If c=0 Then
		response.write("<br><font color=RED>注意：请先增加会议流程模板中的步骤</font><br>")
		response.end
	End If
%></td></tr>

<%
	s=Request.QueryString("subject")
	If Request.QueryString("mtype") = 0 Then
		t="(会议)"
	Else
		t="(会议纪要)"
	End If
%>

<tr height=25px><td class=noborder align=center>审核文件路径:</td><td class=noborder colspan=3><input type=text readonly name="flow_file" value="<%=s+t%>" class=RimInput style="width:320px">
	<input type=hidden name=subject value="<%=Request.QueryString("subject")%>">
	<input type=hidden name=mtype  value="<%=Request.QueryString("mtype")%>">
</td></tr>

<tr height=25px><td class=noborder align=center>催办方法:</td><td class=noborder><input type=text name="flow_urge_way" class=RimInput></td>
<%
	DBEndQuery
	DBDisconnect
%>
<td class=noborder align=right>流程创建者:</td><td class=noborder>&nbsp;<%=Session("UserID")%>&nbsp;</td></tr>

<tr height=40px><td class=noborder align=center colspan=4><input type=button name=btnSubmit value="确认提交" class=FlatBtn>&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset value="重设提交" class=FlatBtn></td></tr>

<%
	End If
%>
</form>
</body>
</html>
⌨️ 快捷键说明

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