📄 am_ftm_fta.asp

📁 物业管理和办公自动化系统

💻 ASP

字号:

<!--#INCLUDE FILE="z_common.asp"-->
<html>
<head>
<title>新增流程模板</title>
<style>
<!-- @import url(../common.css); -->
</style>
<script Language="VBScript">
sub btnSubmit_OnClick()
	Dim sErr
	sErr=""
	if Trim(document.flowform.txtFtName.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_ftm_ftar.asp">
<table cellspacing=0 cellpadding=0 border=1 width=400 align=center>
<tr><td class=tblTitle colspan=2>新 增 流 程 模 板</td></tr>
<tr height=25px><td width=100px class=tdLabel>
&nbsp;模板名称:&nbsp;</td><td>&nbsp;<input type="text" name="txtFtName" class=RimInput>
<%
	MyDBConnect

	strSQL="select * from t_flow_template_type "
	DBQuery(strSQL)

%>
</td></tr>

<tr height=25px><td class=tdLabel>
&nbsp;模板类型:&nbsp;</td><td>&nbsp;<select name="template_type">
<%   
     Do while (Not oRs.eof) 
          Response.write("<option value="& oRs(0) &" >" & oRs(1) &"</option>")   
          oRs.MoveNext 
     Loop 
%>
</select>
<%
	DBEndQuery
	DBDisconnect
%>
</td></tr>

<tr height=25px><td class=tdLabel>&nbsp;模板创建者:&nbsp;</td><td>&nbsp;<%=Session("UserID")%>
</td></tr>

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

</table>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -