为评论插件增加批量删除

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

Case "Change"

在上方添加

'新增批量删除按钮 by cssHhaier

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

第二步，添加列表表单

" class="checkbox">

分别到适当位置

第三步，打开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();
  }
 }
}