📄 am_fm_sa.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 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>

<p>

<table cellspacing=0 cellpadding=0 align=center border=1 width=400>
<tr><td colspan=4 class=tblTitle>流 程 步 骤</td></tr>
<tr>
	<td class=tdHead>步骤序号</td>
	<td class=tdHead>审批人</td>
	<td class=tdHead>操作</td>
	<td class=tdHead>描述</td>
</tr>
<%
	MyDBConnect
	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>&nbsp;" & oRs("step_no")&"</td>")
		Response.Write("<td>&nbsp;" & oRs("account_name")&"</td>")
		Response.Write("<td>&nbsp;" & oRs("operation_name")&"</td>")
		Response.Write("<td>&nbsp;" & oRs("step_desc")&"</td>")
		Response.Write("</tr>")
		oRs.MoveNext 
    Loop 
	DBEndQuery
%>
</table>

<form name=flowform method="post" action="am_fm_sar.asp?fid=<%=Request.QueryString("fid")%>">
<table cellspacing=0 cellpadding=0 border=1 align=center width=400 class=tblDashed>
<tr><td colspan=2 class=tblTitle>新 增 流 程 步 骤</td></tr>
<tr height=25px><td class=noborder align=center width=60px>&nbsp;步骤序号:</td><td class=noborder>&nbsp;<select name="step_no" style="width:80px"> 
<% 

	strSQL="select count(*) num from t_flow_step where flow_id="
	strSQL=strSQL & Request.QueryString("fid")
	DBQuery(strSQL)

	For index=0 To oRs("num") 
		Response.write("<option value=" & index & ">" & index & "</option>")
	Next
	DBEndQuery
%>
</select>&nbsp;(新增的步骤将插入在你选定的步骤序号后)</td></tr>


<tr height=25px><td class=noborder align=center>&nbsp;审批人:</td><td class=noborder>&nbsp;<select name="step_op_person" style="width:80px">
<% 
	 strSQL="select * from v_user_account"
	 DBQuery(strSQL)
     Do while (Not oRs.eof) 
          Response.write("<option value="& oRs("account_id") &" >" & oRs("account_name") &"</option>")   
          oRs.MoveNext 
     Loop 
%>
</select></td></tr>


<tr height=25px><td class=noborder align=center>&nbsp;操  作:</td><td class=noborder>&nbsp;<select name="step_op" style="width:80px">
<% 
	 strSQL="select * from t_step_operation"
	 DBQuery(strSQL)
     Do while (Not oRs.eof) 
          Response.write("<option value="& oRs("operation_id") &" >" & oRs("operation_name") &"</option>")   
          oRs.MoveNext 
     Loop 
%>
</select></td></tr>

<tr height=25px><td class=noborder align=center>&nbsp;描  述:</td><td class=noborder>&nbsp;<input type=text name="step_desc" class=RimInput>
<tr height=30px><td class=noborder align=center colspan=2><input type=button name=btnSubmit value="确认新增" class=FlatBtn>&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset value="重设新增" class=FlatBtn>&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset value="返  回" class=FlatBtn onclick=javascript:history.go(-1)></td></tr>
</table>

</form>

<%
	DBEndQuery
	DBDisconnect
%>

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

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