为评论插件增加批量删除 CMS

第一步：打开默认评论插件的_manage.asp文件找到
Case "Change"
在上方添加
'新增批量删除按钮 by cssHhaier
Case "qssDODelete"
ID = Replace(Replace(Request("ids"),"'","")," ","")
Call U.DeleteAll(ID)
Call Main()
第二步，添加列表表单

分别到适当位置
第三步，打开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();
}
}
}

为评论插件增加批量删除

推荐阅读

电商模式 mv是电商的什么，电商平台

蓝光驱蚊灯可以和人在一起吗

兼职跨境电商怎么样跨境电商可以做什么兼职，哪个跨境电商平台适合兼职做

香菇酿肉的方法

方牌玉件的佩戴方法方形玉牌吊坠怎么佩戴

纳兰词全集及赏析温室的花

cdrx8安装提示已安装另一个版本解决方法

win10自带硬盘安装系统怎么安装，win10自带硬盘安装系统怎么安装不了

微信没声音怎么回事没有声音解决办法

智齿|智齿发炎，疼痛得厉害还不能拔牙，有什么应急措施？

人工智能论文，人工智能的发展前景及其应用的论文怎么写

北太行在什么地方北太行在哪里

博世壁挂炉德国还土耳其原因？

2023款一汽大众辉腾一汽大众辉腾字母

3点到5点醒是癌症征兆有科学依据吗

樟脑丸可以放床下吗

干燥综合征如何治疗?

建设自由贸易区的意义 12个自贸试验区共有哪些

儿童可以使用免洗洗手液吗

登鹳雀楼古诗看到了哪四种景物？