delcommsg.asp

功能齐全的oa系统

<%option explicit%>
<%If Session("AccountID")="" Then Response.Redirect "Login.asp"%>
<%
'----------------------------------------------------------------------
'---------------文件包含部分说明---------------------------------------
'----------------------------------------------------------------------
'---------------	使用数据库连接包含	DataEnvi.asp	---------------
'---------------	使用字符串包含	String.asp	-----------------------
'---------------	使用分页操作包含	Page.asp	-------------------
'----------------------------------------------------------------------
%>

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

<%
	Dim objDB,objRS,strSQL
	Dim From,ComMsgID
	Dim RecordIDS
	
	RecordIDS	=	Request.QueryString("IDS")
	If Left(RecordIDS,2)="0," Then RecordIDS = Right(RecordIDS,Len(RecordIDS)-2)
	RecordIDS	=	Split(RecordIDS,",")
		
	Set		objDB	=	server.CreateObject("ADODB.Connection")
	Set		objRS	=	server.CreateObject("ADODB.Recordset")
	
	OpenDB	objDB
	
	Dim i
	For	i=LBound(RecordIDS) To UBound(RecordIDS)
	
	strSQL = "select State,ComMsgID from t_OA_Work_ComMessage_Record Where ID = " & RecordIDS(i)
	objRS.Open strSQL,objDB,1,3
	
	If		objRS.Fields("State") = 100 Then
		From		= 2
		ComMsgID	= objRS.Fields("ComMsgID")
	ElseIf	objRS.Fields("State") = 101 Then
		From	= 3
		ComMsgID	= objRS.Fields("ComMsgID")
	ElseIf	objRS.Fields("State") = 3 Then
		From	= 4
	End If
	
	objRS.Close()
	
	If		From	=	2	Then
		strSQL	=	"Update	t_OA_Work_ComMessage_Record set State=103 where ComMsgID=" & ComMsgID & " And State=100"
		objDB.Execute(strSQL)															
	ElseIf	From	=	3	Then
		strSQL	=	"Update	t_OA_Work_ComMessage_Record set State=103 where ComMsgID=" & ComMsgID & " And State=101"
		objDB.Execute(strSQL)		
	ElseIf	From	=	4	Then
		strSQL	=	"Update	t_OA_Work_ComMessage_Record set State=4 where ID=" & RecordIDS(i)
		objDB.Execute(strSQL)
	End If
	
	Next
	
	objDB.Close()
	Set	objDB	=	Nothing
	Response.Redirect "list5.asp"
	
%>