14 12
发新话题
打印

给Totoro插件加上清理全部垃圾评论功能

给Totoro插件加上清理全部垃圾评论功能

由于博客遭遇连续spam,Totoro的这个修改应运而生了。
相信使用gmail的朋友一定很喜欢垃圾邮件的那个清除所有垃圾邮件的链接吧,下面是给Totoro插件加上清理全部垃圾评论功能的修改方法:
打开PLUGIN/Totoro/setting1.asp,把
复制内容到剪贴板
代码:
Response.Write "
<form id=""frmBatch"" method=""post"" action=""""><p><input type=""hidden"" id=""edtBatch"" name=""edtBatch"" value=""""/><input class=""button"" type=""submit"" onclick='BatchDeleteAll(""edtBatch"");if(document.getElementById(""edtBatch"").value){this.form.action="""&ZC_BLOG_HOST&"plugin/totoro/commentdel.asp"&""";return window.confirm("""& ZC_MSG058 &""");}else{return false}' value=""删除所选择的评论"" id=""btnPost""/>      <input class=""button"" type=""submit"" onclick='BatchDeleteAll(""edtBatch"");if(document.getElementById(""edtBatch"").value){this.form.action="""&ZC_BLOG_HOST&"plugin/totoro/commentpass.asp"&""";return window.confirm("""& ZC_MSG058 &""");}else{return false}' value=""通过所选择的评论"" id=""btnPost""/></p><form>
" & vbCrlf
修改为:
复制内容到剪贴板
代码:
  Dim comm_ID_arr
  Set objRS=objConn.Execute("SELECT [comm_ID] FROM [blog_Comment] "& strSQL &" ORDER BY [comm_ID] DESC")
  Do While Not objRS.Eof
    comm_ID_arr=objRS(0)&","&comm_ID_arr
  objRS.Movenext
  Loop
  
  Response.Write "
<form id=""frmBatch"" method=""post"" action=""""><p><input type=""hidden"" id=""edtBatch"" name=""edtBatch"" value=""""/><input class=""button"" type=""submit"" onclick='document.getElementById(""edtBatch"").value="""&comm_ID_arr&""";if(document.getElementById(""edtBatch"").value){this.form.action="""&ZC_BLOG_HOST&"plugin/totoro/commentdel.asp"&""";return window.confirm("""& ZC_MSG058 &""");}else{return false}' value=""删除所有垃圾评论"" id=""btnPost""/>      <input class=""button"" type=""submit"" onclick='BatchDeleteAll(""edtBatch"");if(document.getElementById(""edtBatch"").value){this.form.action="""&ZC_BLOG_HOST&"plugin/totoro/commentdel.asp"&""";return window.confirm("""& ZC_MSG058 &""");}else{return false}' value=""删除所选择的评论"" id=""btnPost""/>      <input class=""button"" type=""submit"" onclick='BatchDeleteAll(""edtBatch"");if(document.getElementById(""edtBatch"").value){this.form.action="""&ZC_BLOG_HOST&"plugin/totoro/commentpass.asp"&""";return window.confirm("""& ZC_MSG058 &""");}else{return false}' value=""通过所选择的评论"" id=""btnPost""/></p><form>
" & vbCrlf
即可。
本帖最近评分记录
  • janrn 金钱 +10 基本同意 2007-12-25 22:51
此博剧毒,请勿靠近
http://0e2.net/

TOP

先全选,然后删除选择的评论不就可以了??

TOP

4242~~全选~~删除所选.....呵呵!
不过LZ精神可佳,赞一个!
小一博客 | 小一的两栏主题
Zblogger用户交流群:45392342(已满)25018716(已满)

TOP

呵呵,楼主分享精神可佳,但认识上失误

TOP

你们这些笨蛋,不会体会到删除1000条垃圾评论的时候上述修改的好处的。
此博剧毒,请勿靠近
http://0e2.net/

TOP

后台就有全选删除,一健全K的功能。

你能说出什么根本上的区别?

TOP

除非后台的全选,只是全选所操作的页面,对其它页面不起选中作用。

那么就要赞赞你了。

TOP

后台的全选当然是全选所操作的页面喽
一看就知道是没用过Totoro的...要么就是不认真的用,嘿嘿
此博剧毒,请勿靠近
http://0e2.net/

TOP

  1、2楼,要抓回来重新洗脑,特别是版主。

TOP

给偶加个精就好了
哈哈
此博剧毒,请勿靠近
http://0e2.net/

TOP

1K条SPAM?
[AD]:个人BLOG:思想碎片@Zx.MYS
[说明]:1.有事请发帖,论坛短消息已禁用。2.写Z-Blog程序的不是我,是另外一个zx。3:准备高考,消失一年。

TOP

mys都流汗。。。。。。^_^

我的blog从来没那么多过,10多条就被我咔嚓了。

TOP

 14 12
发新话题