sendmessage.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 46 行

<%
	'创建新消息
	Sub SendMessage(ObjDB,FromID,ToID,Message)
		Dim StrSQL,C
		Dim ObjRS

		Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
		StrSQL =  "Select * from t_OA_Work_UserMessage "
		ObjRS.Open StrSQL,objDB,1,3
		ObjRS.AddNew ()
		ObjRS.Fields ("FromID")	=	FromID
		ObjRS.Fields ("ToID")	=	ToID
		ObjRS.Fields ("Body")	=	Message
		ObjRS.Update 
	End Sub


	Sub SendMessage_NewComMessage(ObjDB,ComMessageID)
		Dim StrMessage
		Dim StrSQL,ObjRS
		Dim StrTitle,IntToID
		
		StrSQL = "Select * From t_OA_Work_ComMessage Where ID = " & ComMessageID
		
		Set ObjRS = ObjDB.Execute(StrSQL)
		StrTitle = ObjRS("Title")
		
		ObjRS.Close
		
		StrSQL	=	"Select top 1 * From t_OA_Work_ComMessage_Record Where ComMsgID = " & ComMessageID & " and IsSend = 1 order by ID Desc"
		Set ObjRS	=	ObjDB.Execute(StrSQL)
		IntToID	=	ObjRS("ExecuteID")
		IF ObjRS("ID")<>"" then
		StrMessage = "您有一封主题为《" & StrTitle & "》的新公文，请到公文管理栏目的列表中查看详细情况"
		End if
		Call SendMessage(ObjDB,0,IntToID,StrMessage)
		
	End Sub
	

%>