docommsg.asp

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

<%
	Sub DoComMsg(ObjDB,ComMsgID)
		Dim ObjRS,StrSQL
		Dim IntComMsgID,IntNodeID
		Dim IntExeID
		
		IntComMsgID = ComMsgID
		StrSQL = "Update t_Hrms_JobApplications_DepRequirement Set State = 1,SendTime=getdate() where ID=" &IntComMsgID
		conn.execute StrSQL
		
		StrSQL = "Select ID from t_OA_Work_ComMessage_Record where ComMsgID=" &IntComMsgID & " and ParentID = 0"
		Set ObjRS = ObjDB.execute (StrSQL)
		IntNodeID = ObjRS("ID")
		StrSQL = "Update t_OA_Work_ComMessage_Record Set State = 2,UpdateTime=getdate() where ID = " &IntNodeID
		ObjDB.execute StrSQL
		ObjRS.close
		
		StrSQL = "Select ID from t_OA_Work_ComMessage_Record_Des where NodeID=" &IntNodeID & " And IsCreator=1"
		Set ObjRS = ObjDB.execute (StrSQL)
		IntExeID = ObjRS("ID")
		ObjRS.close
		Set ObjRS = Nothing
		
		
		Call DoExecute(ObjDB,IntExeID,"",1)

	End Sub


%>