torubish.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<%
	Dim objDB,strSQL
	Dim IDS,BoxID
	IDS		=	Request.QueryString("IDs")
	BoxID	=	Request.QueryString("BoxID")
'	Response.Write "BoxID=" & boxID & "eeee"
	Set objDB = server.CreateObject("ADODB.Connection")
	OpenDB objDB

	strSQL = "Update t_OA_Message Set BoxID=5,BoxIDBak=" & BoxID & " Where ID IN( " & IDs & ")"
'	Response.Write strSQL
	objDB.Execute(strSQL)
	Response.Redirect "List.asp?ID=" & BoxID
%>