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

<form name=flowform method="post" action="am_fm_far.asp">
<table cellspacing=0 cellpadding=0 border=1 align=center width=400 class=tblDashed>
<tr><td class=tblTitle colspan=2>新 增 流 程</td></tr>
<tr height=25px><td class=noborder align=center width=120px>&nbsp流程名称:</td><td class=noborder>&nbsp;<input type="text" name="flow_name" class=RimInput>
<%
	MyDBConnect
	
	strSQL="select * from t_flow_template "
	DBQuery(strSQL)
	
	If oRs.eof Then
		'response.write(oRs.eof)
		response.write("<br><font color=RED>注意：请先新建相关流程模板</font><br>")
		response.end
	Else


%>
</td></tr>

<tr height=25px><td class=noborder align=center>&nbsp;流程模板:</td><td class=noborder>&nbsp;<select name="flow_template">
<%   
	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>

<tr height=25px><td class=noborder align=center>&nbsp;审核文件路径:</td><td class=noborder>&nbsp;<input type=text name="flow_file" class=RimInput></td></tr>

<tr height=25px><td class=noborder align=center>&nbsp;催办方法:</td><td class=noborder>&nbsp;<input type=text name="flow_urge_way" class=RimInput>
<%
	DBEndQuery
	DBDisconnect
%>
</td></tr>

<tr height=25px><td class=noborder align=center>&nbsp;模板创建者:</td><td class=noborder>&nbsp;<%=Session("UserID")%></td></tr>
<tr height=30px><td class=noborder colspan=2 align=center><input type=button name=btnSubmit value="确认新增" class=FlatBtn>&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset value="重设新增" class=FlatBtn></td></tr>

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

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