为评论插件增加批量删除

第一步：打开默认评论插件的_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();
}
}
}