newcommessage.asp

功能齐全的oa系统

<%
	Function NewComMessage(ObjDB)
		
		Dim ObjRS,StrSQL
		
		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") = Request.Form ("AccoutID")
		ObjRS("Title") = Request.Form ("Title")
		ObjRS("Body") = Request.Form ("Body")
		ObjRS("IsAttach") = Request.Form ("IsAttach")
		ObjRS("MsgType") = Request.Form ("MsgType")
		ObjRS("MsgLevel") = Request.Form ("MsgLevel")
		ObjRS("IsHTML") = Request.Form ("IsHTML")
		ObjRS.Update
		
		NewComMessage = ObjRS("ID")
		ObjRS.Close 
		Set ObjRS = Nothing
'		Response.Write  NewComMessage
		
	End Function

		
%>