unrubbish.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"-->

<%
	Dim objDB,objRS,strSQL,strBody
	Dim toWhere,ComMsgID,RecordID
	Dim RecordIDS
	
'	toWhere		=	Request.QueryString("To")
'	ComMsgID	=	Request.QueryString("ComMsgID")
	RecordIDS	=	Request.QueryString("IDS")
	If Left(RecordIDS,2)="0," Then RecordIDS = Right(RecordIDS,Len(RecordIDS)-2)
	RecordIDS	=	Split(RecordIDS,",")
	

'	Response.Write toWhere & "---" & ComMsgID & "---" & RecordID
'	Response.End 
	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
		toWhere		= 2
		ComMsgID	= objRS.Fields("ComMsgID")
	ElseIf	objRS.Fields("State") = 101 Then
		toWhere	= 3
		ComMsgID	= objRS.Fields("ComMsgID")
	ElseIf	objRS.Fields("State") = 3 Then
		toWhere	= 4
	End If
	
	objRS.Close()
	
	
	
	If toWhere	= 2 Then
		strSQL	=	"Update	t_OA_Work_ComMessage_Record set State=99 where ComMsgID=" & ComMsgID & " And State=100"
		objDB.Execute(strSQL)	
	ElseIf toWhere=3 Then
		strSQL	=	"Update	t_OA_Work_ComMessage_Record set State=102 where ComMsgID=" & ComMsgID & " And State=101"
		objDB.Execute(strSQL)
	ElseIf	toWhere	=	4	Then	
		strSQL	=	"Update	t_OA_Work_ComMessage_Record set State=2 where ID=" & RecordIDS(i)
		objDB.Execute(strSQL)
	End If
	
	Next
	
	objDB.Close()
	Set	objDB	=	Nothing
	Response.Redirect "list5.asp"
%>