addnew_03.asp

功能齐全的oa系统

<%option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<%
	Dim ObjDB,IntIsSend
	Dim IntNewComMsgID
	Dim StrSQL,ObjRS

	if session("AccountID")="" then
%>
<script language=javascript>
  	alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
   	Response.End
	end if
		
	Set ObjDB = Server.CreateObject ("ADODB.Connection")
	OpenDB ObjDB
	IntIsSend = Request.QueryString ("IsSend")
	If IntIsSend = "" then 
		IntIsSend = 0
	Else
		IntIsSend = Cint(IntIsSend)
	End if

	StrSQL = "Select * from t_OA_Work_ComMessage where ID =1"
	Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
	ObjRS.Open StrSQL,ObjDB,1,3
		
	ObjRS.AddNew 
	ObjRS("AccountID") = Session("AccountID")
	ObjRS("Title") = Request.Form ("Title")
	ObjRS("Body") = Request.Form ("Body")
	If Request.Form("Attachs")<>"" Then
		ObjRS("Attachs") = Request.Form ("Attachs")
	End If
	ObjRS("MsgType") = 0
	ObjRS("MsgLevel") = Request.Form ("MsgLevel")
	ObjRS("IsHTML") = Request.Form ("IsHTML")
	ObjRS.Update
		
	IntNewComMsgID = ObjRS("ID")
	ObjRS.Close 
	Set ObjRS = Nothing

		ObjDB.Close 
		Set ObjDB = Nothing
	
	
	If IntIsSend = 1 then
		Response.Redirect "Addnew_04.asp?ComMsgID=" & IntNewComMsgID
	Else
%>
	<script language=javascript>
	parent.frmToolbar.doList(2)
	</script>
<%	
	End if
%>