addnew.asp

功能齐全的oa系统

<%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 C
		
	
	If Request.Form.Count > 0 Then
		Set	objDB	=	server.CreateObject("ADODB.Connection")
		Set	C	=	server.CreateObject("CMS2003.DBHandle")
		OpenDB	objDB
		C.Init(ObjDB)
		Call C.AddNew("_","t_OA_Work_ComMessage_Templet")
		objDB.Close()
		Set		objDB	=	Nothing
		Response.Redirect "List.asp"			'	在这里退出
	End If	
	
%>


<%
	Sub Main()
%>
<script language=javascript>
var isHTML = 1
function setIsHTML(t){
	TBody1.style.display = "none"
	TBody2.style.display = "none"
	if(t==0)TBody1.style.display = ""
	if(t==1)TBody2.style.display = ""
	isHTML = t
}

function GetHTML(){
	var tmpHTML = frameBody.getHTML()
	if(isHTML==1)
	document.forms[0]._Templet.value = tmpHTML;
	else
	document.forms[0]._Templet.value = document.forms[0].textBody.value;
}
</script>

	<form name="thisForm" onsubmit="GetHTML();return(CheckForm(this))" method="post" action="">
	<input type=hidden name="_Templet">
	<table class=Ltable cellspacing=1 cellpadding=3 height=100%>
	
	<tr class=LHtr>
	<td width=20%>新增模板</td>
	<td width=80%></td>
	</tr>
	
	<tr class=Ltr>
	<td>模板名称：</td>
	<td><input name=_TempletTitle class=Input></td>
	</tr>
	
	<tr class=Ltr>
	<td>模板格式：</td>
	<td><input type=radio name=_IsHtml value="0" onclick=setIsHTML(0)>普通文本<input type=radio checked name=_IsHtml value="1" onclick=setIsHTML(1)>多格式</td>
	</tr>

	<tr class=Ltr id=TBody1 style="display:none" height=100%>
	<td colspan=2><textarea name="textBody" class=textbody style="width=100%;height=100%" ></textarea></td>
	</tr>

	<tr class=Ltr id=TBody2 height=100%>
	<td colspan=2><iframe src="../../../Include/HTMLEditor.asp" class=textbody1 style="width=100%;height=100%" frameborder=0 id=frameBody></iframe></td>
	</tr>

	<tr class=Ltr>
	<td colspan=2>	<input type=submit value="确 定" id=submit1 name=submit1 class=button><input type=button value="取 消" onclick="history.go(-1)" class=button>
</td>
	</tr>

	</table>
		</form>
   
<%
	End Sub
%>
<!--#include file = "Templet.asp"-->