cssHhaier找出的方法，qss整理发布，转载请保留出处！

第一步：打开默认评论插件的_manage.asp文件找到

Case "Change"

在上方添加

'新增批量删除按钮 by cssHhaier

Case "qssDODelete"
 ID = Replace(Replace(Request("ids"),"'","")," ","")
 Call U.DeleteAll(ID)
 Call Main()

第二步，添加列表表单

<form name=frm method=post action=_manage.asp>

<td width="30" class='css_top'><input type="checkbox" name="chkall" id="chkall" onclick="CheckAll()" class="checkbox"></td>

<td width="30" class='css_list'><input type="checkbox" name="ids" value="<%=Rs("ID")%>" class="checkbox"></td>

<input name="" type="button" class="inputs" onclick="qssCommentDo('qssDODelete');" value="批量删除" />

</form>

分别到适当位置

第三步，打开inc下_manage.class.asp

在Public Function Change()前新增

 Public Function DeleteAll(Byval CommentIDS)
  Dim Rs
  Set Rs = DB("Select [ID] From [{pre}Comment] Where ID In (" & CommentIDS & ")",1)
  Do While Not Rs.Eof
   Call DB("Delete From [{pre}Comment] Where [ID]=" & Rs(0) ,0) '# 删除信息
   Rs.MoveNext
  Loop
  Rs.Close
 End Function

第四步，打开inc下_manage.js 底部新增

// 选择byqss
function CheckAll(){
 var chk = $("chkall").checked;
 for(var i = 0; i < frm.ids.length; i++){frm.ids[i].checked=chk;}
}

// 批量删除
function qssCommentDo(val){
 var id='';
 var runit=false;
 frm.action= '_manage.asp?Act=' +val;
 for(var i = 0; i < frm.ids.length; i++){
  if(frm.ids[i].checked){runit=true;}
 }
 if(runit){
  if(val=='qssDODelete'){
   if(confirm('您确定要删除这些记录吗?')){frm.submit();}
  } else {
   frm.submit();
  }
 }
}

插件定制Q3876307