send.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<%
	Dim objDB,strSQL
	Dim IDS
	IDS = Request.QueryString("IDs")
		
	Set objDB = server.CreateObject("ADODB.Connection")
	OpenDB objDB
	
	strSQL = "Update t_OA_Message Set BoxID=3,BoxIDBak=3 Where ID IN( " & IDs & ")"
	objDB.Execute(strSQL)
	Response.Redirect "List.asp?ID=2"
%>