sendmessage.asp

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

<% 
	Sub SendMessage(ObjDB,ComMsgID,ID)
		Dim IntID,ObjRS,StrSQL
		Dim IntComMsgID
		Dim StrBody,Body
		
		IntComMsgID = ComMsgID
		IntID = ID
		StrSQL = "Select * from T_CRM_Stock_Application where ID = "& IntComMsgID
		Set ObjRS = conn.execute (StrSQL)
		Body = ObjRS("ProName")
		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



%>