torubbish.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 From,ComMsgID,ComMsgIDS,RecordIDS
	
	From		=	Request.QueryString("BoxID")
	ComMsgIDS	=	Request.QueryString("IDS")
	RecordIDS	=	Request.QueryString("IDS")
	
	Response.Write From & "---" & ComMsgID & "---" & RecordIDS
'	Response.End 
	
	Set		objDB	=	server.CreateObject("ADODB.Connection")
	Set		objRS	=	server.CreateObject("ADODB.Recordset")
	
	OpenDB	objDB
	
	
	Dim i
	
	
	
		
	
		
	If		From	=	2	Then
		ComMsgIDS	=	Split(ComMsgIDS,",")
		For i=LBound(ComMsgIDS) To UBound(ComMsgIDS) 
		strSQL	=	"Update	T_CRM_Stock_Application_Record set State=100 where ComMsgID=" & ComMsgIDS(i) & " And State=99"
		objDB.Execute(strSQL)
		Next															
	ElseIf	From	=	3	Then
		ComMsgIDS	=	Split(ComMsgIDS,",")
		For i=LBound(ComMsgIDS) To UBound(ComMsgIDS) 
		strSQL	=	"Update	T_CRM_Stock_Application_Record set State=101 where ComMsgID=" & ComMsgIDS(i) & " And State=102"
		objDB.Execute(strSQL)		
		Next	
	ElseIf	From	=	4	Then
		RecordIDS	=	Split(RecordIDS,",")
		For i=LBound(RecordIDS) To UBound(RecordIDS) 
	'	strSQL = "Select ComMsgID From T_CRM_Stock_Application_Record Where ID = " & RecordIDS(i)
	'	objRS.Open strSQL,objDB,1,3
	'	ComMsgID	=	objRS.Fields("ComMsgID")
	'	objRS.Close()
		
		strSQL	=	"Update	T_CRM_Stock_Application_Record set State=3 where ID=" & RecordIDS(i)
		objDB.Execute(strSQL)
		
		Next
	End If
	
	
	Response.Redirect "List" & From &".asp"
%>