<% Dim strIdList,arrIdList,iId,i strIdList = GetSafeStr(Trim(Request.Form("news_ID"))) If Not IsEmpty(strIdList) Then arrIdList = Split(strIdList,",") For i = 0 To UBound(arrIdList) iId = Clng(arrIdList(i)) sSql = "DELETE from Abstract WHERE ID=" & iId conn1.Execute(sSql) Next Call OKToWhere2("信息删除成功,确认返回!",Request.ServerVariables("HTTP_REFERER")) Else Call OKToWhere("请至少选择一条信息记录!","-1") End If %>