addnew.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual = "Include/DataEnvi.asp" -->
<!-- #include virtual = "Include/Page.asp" -->
<!-- #include virtual = "Include/String.asp"-->
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim IsSubmit,IntAccountID

	if session("AccountID")="" then
%>
<script language=javascript>
  	alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
   	Response.End
	end if
			
	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_OA_Work_Document"
		objRS.Open strSQL,objDB,1,3
		objRS.AddNew()
		objRS.Fields("Title")  = FixSQL( Request.Form("Title") )
		objRS.Fields("IsHTML") = FixSQL( Request.Form("IsHTML") )
		objRS.Fields("ClassID") = FixSQL( Request.QueryString("ClassID"))
		objRS.Fields("CreateAccountID") = FixSQL(session("AccountID"))
		objRS.Fields("Attachs") = FixSQL(Request.Form ("Attachs"))
		objRS.Fields("UpdateAccountID") = FixSQL(session("AccountID"))
		
		If Request.Form("IsHTML") = 1 Then
			objRS.Fields("Body") = Request.Form("BodyHTML")
		Else
			objRS.Fields("Body") = FixSQL( Request.Form("Body") )
		End If
		objRS.Update()
		objRS.Close()
		Set		objRS	=	Nothing
		objDB.Close()
		Set		objDB	=	Nothing
%>
<script language=javascript>
parent.doList()
</script>
<%
	End If	

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

function GetHTML(){
	var tmpHTML = frameEdit.getHTML()
	document.forms[0].BodyHTML.value = tmpHTML;
}
function EditAttach(){
	var r =window.showModalDialog("../../Attach/Index.asp?IDs=" + document.forms[0].Attachs.value + "&BasePath=ComMessage&R=" + Math.random(),"AttachWin","dialogHeight=240px,dialogWidth=420px,resizable=No,status=1,scrollbars=1");
	if(r!=null){
	ReturnAttachs(r)
	}
}

function ReturnAttachs(v){
	document.forms[0].AttachsShow.value = v[0]
	document.forms[0].Attachs.value = v[1]
}

</script>

	<form name="thisForm" onsubmit="GetHTML();return(CheckForm(this))" method="post" action="">
	<input type=hidden name="BodyHTML">
	<input type=hidden name=_ClassID value=<%=Request.QueryString("ClassID")%>>
	<input type=hidden name=AccountID value=<%=session("AccountID")%>>
	<input type=hidden name=ClassName value="<%=Request.QueryString("ClassName")%>">
	<table class=Ltable cellspacing=1 cellpadding=3 height=94%>
	<tr class=LHtr>
		<td width="15%">新增文档</td>
		<td width="85%"> </td>
	</tr>
	<tr class=Ltr>
		<td>文档标题</td>
		<td><input type="text" class=Input Check=1 Show="文档标题" name="Title" value=""></td>
	</tr>
	<tr class=Ltr>
	<td>附件</td>
	<td><input name=Attachs type=hidden class=Input><input name=AttachsShow disabled class=Input><input type=button value="编辑附件" class=button onclick="EditAttach()" id=button3 name=button3>
	</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>内容：</td>
	<td><textarea style="width=100%;height=100%" name="Body" class=textbody></textarea></td>
	</tr>
	<tr class=Ltr id=TBody2 height=100%>
	<td>内容：</td>
	<td><iframe src="../../../Include/HTMLEditor.asp" class=textbody1 style="width=100%;height=100%" frameborder=0 id=frameEdit></iframe></td>
	</tr>
	<input type=hidden name=IsSubmit value="True">
	</table>
	<table cellspacing=1 cellpadding=3>
	<tr class=Ltr>
	<td colspan=2 align=right>
	<input type=submit value="提 交" id=submit1 name=submit1 class=button>
	<input type=button value="取 消" onclick="history.go(-1)" class=button name=button2>
	</td>
	</tr>
	</table>
	</form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->