send.asp

功能齐全的oa系统

<%option explicit%>

<%
'----------------------------------------------------------------------
'---------------文件包含部分说明---------------------------------------
'----------------------------------------------------------------------
'---------------	使用数据库连接包含	DataEnvi.asp	---------------
'---------------	使用字符串包含	String.asp	-----------------------
'---------------	使用分页操作包含	Page.asp	-------------------
'----------------------------------------------------------------------
%>

<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->
<!--#include virtual = "/Include/SendMessage.asp"-->

<%
	Dim objDB,objRS,strSQL
	Dim ComMsgIDS
	Dim MsgType,FlowID
	Dim ExecuteID,CurrentID,IsEnd,ParentID,PassType,IsNeed
	ComMsgIDS	=	Request.QueryString("IDS")
	Set objDB	=	server.CreateObject("ADODB.Connection")
	Set objRS	=	server.CreateObject("ADODB.Recordset")
	OpenDB objDB
	
	If Left(ComMsgIDs,2)="0," Then ComMsgIDs = Right(ComMsgIDs,Len(ComMsgIDs)-2)
	ComMsgIDS	=	Split(ComMsgIDS,",")
	Dim i
	
	For i=LBound(ComMsgIDS) To UBound(ComMsgIDS)
	
	strSQL = "select MsgType,FlowID from T_CRM_Stock_Application Where ID = " & ComMsgIDS(i)
	objRS.Open strSQL,objDB,1,3
	MsgType	=	objRS.Fields("MsgType")'	FlowID	=	objRS.Fields("FlowID")'	objRS.Update()
	objRS.Close()
	
	If	   MsgType	= 1 Or MsgType = 4 Then
		strSQL = "Select State,IsSend From T_CRM_Stock_Application_Record Where state<>99 And ComMsgID = " & ComMsgIDS(i)
		objRS.Open strSQL,objDB,1,3
		objRS.Fields("State") = 0
		objRS.Fields("IsSend") = 1
		objRS.Update()
		strSQL = "Update T_CRM_Stock_Application_Record Set State=102 Where state=99 And ComMsgID = " & ComMsgIDS(i)
		objDB.Execute(strSQL)
	ElseIf	MsgType = 2 Or MsgType = 3 Then
'	2002-11-27日改动
		'把 T_CRM_Stock_Application_Record 中的 State 置为102(表明已经到发送箱中)
		strSQL = "Select State From T_CRM_Stock_Application_Record Where ComMsgID = " & ComMsgIDS(i)
		objRS.Open strSQL,objDB,1,3
		objRS.Fields("State") = 102
		objRS.Update()
		objRS.Close()

'	2002-11-27日改动
	'改为 往 T_CRM_Stock_Application_Record 中更新一条记录，用以通知处理人
		strSQL = "Select Top 1 ID,IsSend From T_CRM_Stock_Application_Record Where ComMsgID = " & ComMsgIDS(i) &	" And ParentID<>0"
		objRS.Open strSQL,objDB,1,3
		objRS.Fields("IsSend")	=	1
		CurrentID	=	objRS.Fields("ID")	+	1
		objRS.Update()
	End if
		'更新 T_CRM_Stock_Application 中的 State = 1(表明已经到发送箱中)
	strSQL	=	"Select LocationID,SendTime From T_CRM_Stock_Application Where ID = " & ComMsgIDS(i)
	objRS.Close()
	objRS.Open strSQL,objDB,1,3
		If	MsgType = 2 Or MsgType = 3 Then	objRS.Fields("LocationID")	=	CurrentID
	objRS.Fields("SendTime")	=	Now()
	objRS.Update()
	objRS.Close()
	
	Call SendMessage_NewComMessage(ObjDB,ComMsgIDS(i))
	
	
	
	Next
	
	Set	objRS	=	Nothing
	objDB.Close()
	Set	objDB	=	Nothing
	Response.Redirect "List2.asp"
%>