📄 addnew.asp

📁 功能齐全的oa系统
💻 ASP
字号:
<% option explicit%>
<!-- #include file="../../Include/DataEnvi.asp" -->
<!-- #include file="../../Include/Page.asp" -->
<!-- #include file="../../Include/String.asp" -->
<!-- #include file="../../Include/function.asp" -->
<!-- #include file="../../Include/SelectValue.asp" -->
<Script>
function ToList3(){
	thisForm.userAction.value = "ToList3"
	var tmpHTML = frameEdit.getHTML()
	document.forms[0].Body.value = tmpHTML;
	thisForm.submit()
}
function ToList2(){
	thisForm.userAction.value = "ToList2"
	var tmpHTML = frameEdit.getHTML()
	document.forms[0].Body.value = tmpHTML;
	thisForm.submit()
}
</Script>

<%
	Dim objDB,objRS,strSQL
	Dim userAction,ToAddr,Subject,Body
	Dim strMailAccountOption,strTemp
	Dim IntID,IsAttach
	Dim StrMyEmail
	
	strMailAccountOption	=	""
	
	ToAddr		=	FixSQL(Request.Form("ToAddr"))
	Subject		=	FixSQL(Request.Form("Subject"))
	Body		=	FixSQL(Request.Form("ToAddr"))
	userAction	=	Request.Form("userAction")
	
	Set objDB = server.CreateObject("ADODB.Connection")
		OpenDB	objDB
	Set	objRS = server.CreateObject("ADODB.Recordset")
	
	
	StrMyEmail = SelectValue(objDB,"Select Email,Email From t_OA_Private_Addressbook Where AccountID = " & Session("AccountID"))
	
	If Request.Form("IsSubmit") = "True" Then		
		strSQL = "select * from t_OA_Message Where ID=" & Request.Form("MsgID")
		objRS.Open strSQL,objDB,1,3
			objRS.Fields("Attachs") = Request.Form("Attachs")
			If Request.Form("Attachs")<>"" Then objRS.Fields("IsAttach") = 1
			objRS.Fields("FromName")		=	GetTrueName(objDB,Session("AccountID"))
			objRS.Fields("FromAddr")		=	Request.Form("FromAddr")
			objRS.Fields("ToAddr")			=	FixSQL(Request.Form("ToAddr"))
			objRS.Fields("Subject")			=	FixSQL(Request.Form("Subject"))
			
			objRS.Fields("Priority")		=	Request.Form("Priority") 
			objRS.Fields("IsValid")			=	1
			If		Request.Form("userAction")="ToList2" Then
				objRS.Fields("BoxID")		=	2
				objRS.Fields("BoxIDBak")	=	2
			ElseIf	Request.Form("userAction")="ToList3" Then
				objRS.Fields("BoxID")		=	3
				objRS.Fields("BoxIDBak")	=	3
			End If
			
			If Request.Form("IsHtml") = "0" Then
				objRS.Fields("Body")			=	FixSQL(Request.Form("commonBody"))
				objRS.Fields("ContentType")		=	"text/plain"
			Else
				objRS.Fields("Body")			=	Request.Form("Body")
				objRS.Fields("ContentType")		=	"text/html"
			End If
		'	Response.End 
			
			objRS.Update()
			objRS.Close()
			
			If		Request.Form("userAction")="ToList2" Then
%>
<script language=javascript>
parent.frmToolbar.doList(2)
</script>
<%
				Response.End 
			ElseIf	Request.Form("userAction")="ToList3" Then
%>
<script language=javascript>
parent.frmToolbar.doList(3)
</script>
<%
				Response.End 
			End If
	Else
		strSQL = "select * from t_OA_Message Where ID=0"
		objRS.Open strSQL,objDB,1,3
		objRS.AddNew()
		objRS.Fields("AccountID")	=	Session("AccountID")
		objRS.Update()
		IntID	=	objRS.Fields("ID")
		objRS.Close()
	End If
	
	strSQL = "select a.UserName,b.Address, a.MailServerID from t_OA_Message_Account a,t_OA_Message_MailServer b Where a.AccountID=" 
	strSQL = strSQL & session("AccountID") & " And a.MailServerID=b.ID"
	
	objRS.Open strSQL,objDB,1,3
	Do While Not objRS.EOF
		strTemp	=	objRS.Fields("UserName")	&	"@"	&	objRS.Fields("Address")
		strMailAccountOption	=	strMailAccountOption	&	"<option value="&	strTemp	&">"	&	strTemp	&	"</option>"
		objRS.MoveNext()
	Loop
	objRS.Close()
%>

<%Sub Main%>
<HTML><HEAD>
<script language=javascript>
function MyCheck(f){
	var tmpHTML = frameEdit.getHTML()
	f.Body.value = tmpHTML;
	return(CheckForm(f))
}

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="return(MyCheck(this))" method="post" action="">
<input type=hidden name="Body" value="">
<table class=Ltable cellspacing=1 cellpadding=3 height=100%>
<tr class=LHtr>
<td>写邮件</td>
<td colspan=2></td>
</tr>
<tr class=Ltr>
<td width=20%>收件人</td>
<td width=50%><input name=ToAddr Check=1 Show="收件人" class=Input></td>
<td rowspan=4 width=30%>
我的通讯录(双击加入收件人)：
<select style="width=200" size=6 ondblclick="ToAddr.value=this.value">
<%=StrMyEmail%>
</select>

</td>
</tr>
<tr class=Ltr>
<td>发件人</td>
<td><select name="FromAddr" class=Input><%=strMailAccountOption%></select></td>
</tr>
<tr class=Ltr>
<td>主题</td>
<td><input name=Subject class=Input></td>
</tr>
<tr class=Ltr>
<td>优先等级</td>
<td>
<select name="Priority" class=input>
<option value=1>低</option>
<option value=3 selected>中</option>
<option value=5>高</option>
</select>
</td>
</tr>
<tr class=Ltr>
<td>附件</td>
<td colspan=2><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 height=100%>
<td id=HtmlL colspan=3>
<iframe style="width=100%;height=100%" src="<%=Application("RootPath")%>Include/HtmlEditor.asp" class=textbody1 frameborder=0 id=frameEdit></iframe>
</td>
</tr>
<tr class=Ltr height=100%>
<td id=HtmlL colspan=3>
<input type=button value="保    存" class=button onclick="ToList2()" id=button1 name=button1><input type=button value="发    送" class=button onclick="ToList3()" id=button2 name=button2>
<input type=hidden name="userAction" value="">
<input type=hidden name="IsSubmit" value="True">
<input type=hidden name="MsgID" value="<%=IntID%>">
</td>
</tr>
</table>
</form>
	
<%End Sub%>
<!-- #include file="templet.asp" -->
💿 文件大小 29478 K
👤 上传用户 z3021440
📂 所属分类 OA系统
⌨️ 快捷键说明

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