deletehistory.asp

功能齐全的oa系统

<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->

<%
	Response.Buffer=True
	Dim ObjDB,ObjRS,StrSQL
	Dim ArrItem,j
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB

	ArrItem = Split(Request("Item"),",")
	For j = LBound(ArrItem) to UBound(ArrItem)
		StrSQL = "Delete From t_OA_Work_UserMessage Where ID=" & ArrItem(j)
		ObjDB.Execute(StrSQL)
	Next

	ObjDB.Close
	Set ObjDB = Nothing
	

%>


<%
	Response.Redirect "History.asp"
%>