📄 addtemplet.asp
字号:
<%option explicit%>
<%
'----------------------------------------------------------------------
'---------------文件包含部分说明---------------------------------------
'----------------------------------------------------------------------
'--------------- 使用数据库连接包含 DataEnvi.asp ---------------
'--------------- 使用字符串包含 String.asp -----------------------
'--------------- 使用分页操作包含 Page.asp -------------------
'----------------------------------------------------------------------
%>
<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->
<%
Dim objDB,objRS,strSQL
Dim strDefaultFlowID
Dim IsSubmit
IsSubmit = Request.Form("IsSubmit")
set objDB = server.CreateObject("ADODB.Connection")
set objRS = server.CreateObject("ADODB.Recordset")
OpenDB objDB
If IsSubmit = "True" Then
strSQL = "select * from T_CRM_Stock_Application_Templet"
objRS.Open strSQL,objDB,1,3
objRS.AddNew()
objRS.Fields("TempletTitle") = FixSQL( Request.Form("TempletTitle") )
objRS.Fields("DefaultFlowID") = FixSQL( Request.Form("DefaultFlowID") )
objRS.Fields("Templet") = FixSQL( Request.Form("Templet") )
objRS.Update()
objRS.Close()
Set objRS = Nothing
objDB.Close()
Set objDB = Nothing
Response.Write "<script language=javaScript>window.close()</script>" ' 在这里退出
End If
strSQL = "select ID,FlowName From t_OA_Work_Flow Where IsValid = 1"
objRS.Open strSQL,objDB,1,3
strDefaultFlowID = ""
Do While Not objRS.EOF
strDefaultFlowID = strDefaultFlowID & "<option value=" & objRS.Fields("ID") &">"
strDefaultFlowID = strDefaultFlowID & objRS.Fields("FlowName") & "</option>" & vbcrlf
objRS.MoveNext()
Loop
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
td,br,p,li {font-family:宋体;font-size:12px;}
A:link {text-decoration: none; color: 000080;font-size:12px}
A:visited {text-decoration: none; color: 000080;font-size:12px}
A:active {text-decoration: none;font-size:12px}
A:hover {text-decoration: underline; color: ff0000;font-size:12px}
A.a:link {text-decoration: none; color: 0000ff;font-size:16px}
A.a:visited {text-decoration: underline; color: 000080;font-size:16px}
A.a:active {text-decoration: none; font-size:16px}A.a:hover {text-decoration: underline; color: ff0000;font-size:16px}
</style>
<script language="javascript" src="../../../include/CheckForm.js">
</script>
<script language="javascript">
<!--
function CheckAll()
{
if(!CheckEmpty(thisForm.TempletTitle, "模板标题"))return false
if(!CheckEmpty(thisForm.Templet, "模板内容"))return false
return true
}
-->
</script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('../../../images/fo_win2.gif','../../../images/hoster.gif','../../../images/ic_doc1.gif','../../../images/sc.gif','../../../images/find.gif','../../../images/fo_win3.gif')">
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="../../../images/3bg.gif" height="20">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#C7DBE2">
<tr>
<td height="23" width="85%">
<div align="right"></div>
</td>
<td height="23" width="15%">
<div align="right">2002年10月2日</div>
</td>
</tr>
</table>
<div align="center"><br>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="40%"> </td>
<td width="60%">
</td>
</tr>
</table>
<br>
<form name="thisForm" onsubmit="return(CheckAll())" method="post" action="">
<table width="80%" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td width=40%> </td>
<td width=70%> </td>
</tr>
<tr>
<td>请给要定义的模板起个标题：</td>
<td><input name=TempletTitle></td>
</tr>
<tr height=30>
<td >请给模板选择默认工作流：</td>
<td >
<select name=DefaultFlowID>
<%=strDefaultFlowID%>
</select>
<input type=button value="自定义工作流" onclick="javaScript:window.open('addFlow.asp','addFlow')">
</td>
</tr>
<tr>
<td >请输入模板内容：</td>
<td >
<textarea name=Templet cols=40 rows=10></textarea>
</td>
<tr>
<td colspan=2 align=right>
<input type=button value="取 消" onclick="window.close()">
<input type=submit value="确 定">
</td>
</tr>
<input type=hidden name=IsSubmit value="True">
</form>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -