📄 am_ftm_ftm.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.template_name.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>

<%
	MyDBConnect
	' Output Result
	strSQL="select template_id,template_name,template_type_name,account_name"
	strSQL=strSQL & " from t_flow_template a,t_flow_template_type b,v_user_account c "
	strSQL=strSQL & " where a.template_type=b.template_type_id "
	strSQL=strSQL & " and a.template_author_id=c.account_id "
	strSQL=strSQL & " and a.template_id=" & Request.QueryString("tid")
	DBQuery(strSQL)
	oRs1=oRs
%>
<br>
<br>
<form name=flowform method="post" action="am_ftm_ftmr.asp?tid=<%=Request.QueryString("tid")%>">
<table cellspacing=0 cellpadding=0 align=center width=400 border=1>
<tr><td colspan=2 class=tblTitle>修 改 流 程 模 板</td></tr>
<tr height=25>
	<td width=100px class=tdLabel>&nbsp;模板名称:&nbsp;</td>
	<td>&nbsp;<input type=text name=template_name class=RimInput value="<%=oRs1("template_name")%>"></td>
</tr>
<tr height=25>
	<td class=tdLabel>&nbsp;模板类型:&nbsp;</td>
	<td>&nbsp;<select name="template_type_id">
<%
	strSQL="select * from t_flow_template_type "
	DBQuery(strSQL)

   
     Do while (Not oRs.eof)
		If(oRs("template_type_name")=oRs1("template_type_name")) Then
          Response.write("<option value="& oRs("template_type_id") &" selected >" & oRs("template_type_name") &"</option>") 
		Else
          Response.write("<option value="& oRs("template_type_id") &" >" & oRs("template_type_name") &"</option>") 
		End If
          oRs.MoveNext 
     Loop 
	 DBEndQuery
%>
</select></td>
</tr>
<tr height=25>
	<td class=tdLabel>&nbsp;创建者:&nbsp;</td>
	<td>&nbsp;<%=Session("UserID")%>
<%
'	strSQL="select * from v_user_account "
'	DBQuery(strSQL)
'
'   
'     Do while (Not oRs.eof)
'		If(oRs("account_name")=oRs1("account_name")) Then
'          Response.write("<option value="& oRs("account_id") &" selected >" & oRs("account_name") &"</option>") 
'		Else
'          Response.write("<option value="& oRs("account_id") &" >" & oRs("account_name") &"</option>") 
'		End If
'          oRs.MoveNext 
'     Loop 
'	 DBEndQuery
'
%>

</td>
</tr>
<tr height=30px><td align=center colspan=2><input type=button name=btnSubmit value="确认修改模板" class=FlatBtn>&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset value="重设修改模板" class=FlatBtn></td></tr>

</table>

</form>
<br>
<p align=center>
<%
	Response.Write("<a href='am_ftm_sa.asp?tid=" & Request.QueryString("tid") &"'>")
%>
<img border=0 src="image/newform.gif" alt="新增流程模板步骤"> 新增流程模板步骤</a>
</center>


<table cellspacing=0 cellpadding=0 border=1 align=center width=400>
<tr align=center>
	<td colspan=6 class=tblTitle>流程模板步骤</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>
<%
	strSQL="select * from t_template_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 template_id=" & Request.QueryString("tid")
	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("<td>&nbsp;<a href=am_ftm_sm.asp?tid="&Request.QueryString("tid")&"&sid="&oRs("step_no")&"><img border=0 src=image/RecordEdit.gif></a></td>")
		Response.Write("<td>&nbsp;<a href=am_ftm_sd.asp?tid="&Request.QueryString("tid")&"&sid="&oRs("step_no")&"><img border=0 src=image/Remove.gif></a></td>")
		Response.Write("</tr>")
		oRs.MoveNext 
    Loop 
	DBEndQuery
%>
</table>

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

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