sendmessage.asp

功能齐全的oa系统

<% 
	Sub SendMessage(ObjDB,ComMsgID,ID)
		Dim IntID,ObjRS,StrSQL
		Dim IntComMsgID
		Dim StrBody,Body
		
		IntComMsgID = ComMsgID
		IntID = ID
		StrSQL = "Select * from t_OA_Work_ComMessage where ID = "& IntComMsgID
		Set ObjRS = ObjDB.execute (StrSQL)
		Body = ObjRS("Title")
		ObjRS.Close 
		
		Set ObjRS = Server.CreateObject ("ADODB.RecordSet")
		StrSQL = "Select * from t_OA_Work_UserMessage where ID = 1"
		ObjRS.Open StrSQL,ObjDB,1,3
		StrBody = "您有一封主题为《" & Body & "》的新公文，请到公文管理栏目的列表中查看详细情况!"
		
		ObjRS.AddNew 
		ObjRS("FromID") = "0"
		ObjRS("ToID") = IntID
		ObjRS("Body") = StrBody
		ObjRS.Update 
		
		
	End Sub



%>