procedure TListExamineUnit.DelExecute(Sender: TObject; Params: TStrings);
var
Int_C:Integer;
str:string;
begin
try
For Int_C:= 1 To 15 do
Begin
If Request.ContentFields.Values['CheckBox'+IntToStr(Int_C)] <> '' then
Begin
AdjudgementSupervise.RecordGoto(Request.ContentFields.Values['CheckBox'+IntToStr(Int_C)]);
AdjudgementSupervise.Delete;
End;
End;
Response.SendRedirect('ListExamineUnit?pagecount='+Request.QueryFields.Values['PageCount']);
except
Response.Content :='删除失败';
end;
end;