官方首页 | 无图版 | BBS首页
PJBlog3 2.8.4.133 新版发布 下载|升级(2008.7.13) 大话PJ3 | PJ3评测反馈 | PJ3发展建议 暑期清凉活动:PJ纪念版T-shirt设计大赛 PJ3内测团队主创人员身份,性格,特点吐血大曝光
PJBlog技术支持论坛使用问题总索引 PJ-Blog 3 斑竹日志 PJBlog域名,主机,服务器使用经验分享 Z-Blog,Wordpress,Bo-Blog转换到PJBlog
发新话题
打印

pjblog的一个小bug(禁止空评论和空留言!)

本主题由 thomas 于 2007-2-7 16:40 解除高亮

pjblog的一个小bug(禁止空评论和空留言!)

今天有人上我的blog上发表了空评论和空留言

研究了一下才发现.在评论和留言里只要输入回车就可以提交.

解决方法如下:

========解决空评论的代码================

打开blogcomm.asp

找到以下代码:
  if filterSpam(post_Message,"spam.xml") and stat_Admin=false then
     ReInfo(0)="评论发表错误信息"
   ReInfo(1)="<b>评论中包含被屏蔽的字符</b><br/><a href=""javascript:history.go(-1);"">返回</a>"
   ReInfo(2)="WarningIcon"
   postcomm=ReInfo
      exit function
  end If

加入以下代码:
  if Left(trim(post_Message),1)= Chr(13) then
     ReInfo(0)="评论发表错误信息"
   ReInfo(1)="<b>评论内容首字符禁止为回车</b><br/><a href=""javascript:history.go(-1);"">返回</a>"
   ReInfo(2)="WarningIcon"
   postcomm=ReInfo
      exit function
  end if

================这一个是禁止空留言的==================

打开Plugins\GuestBook\bookaction.asp

找到以下代码:
  if filterSpam(post_Message,"../../spam.xml") and stat_Admin=false then
      showmsg "留言发表错误信息","<b>留言中包含被屏蔽的字符</b><br/><a href=""javascript:history.go(-1);"">返回</a>","WarningIcon","plugins"
      exit function
  end if

加入以下代码:
  if Left(trim(post_Message),1)= Chr(13) then
      showmsg "留言发表错误信息","<b>留言内容首字符禁止为回车</b><br/><a href=""javascript:history.go(-1);"">返回</a>","WarningIcon","plugins"
      exit function
  end If

其实加入在哪里比较灵活,这里只是方便给不懂的人看.

出自:http://www.sweethoney.cn
原文地址:http://www.sweethoney.cn/article.asp?id=80

[ 本帖最后由 shell 于 2006-10-31 04:09 编辑 ]

TOP

另外,如果这方法还有什么不足的地方,可以在这里跟帖,我会尽量解决.

TOP

好文章,我的BLOG这几天也经常这样,谢谢了~

顺便沙发一下

TOP

不错
『沙之轩』cosh's blog
诚招建博半年以上/更新不断/友情连接

TOP

我觉得采用Alone Fly的如下方法可以杜绝空评论空留言以及无中文输入的,一箭双雕的效果~效果更佳~
[评论]
打开 blogcomm.asp 找到合适位置插入:
引用:
  dim china
Set china=new RegExp
china.IgnoreCase =True
china.Global=True
china.Pattern="[\u4E00-\u9FA0]"

IF Not china.Test(post_Message) then
   ReInfo(0)="评论发表错误信息"
   ReInfo(1)="<b>评论内容居然没任何中文。</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
   ReInfo(2)="ErrorIcon"
   postcomm=ReInfo
   Set china=Nothing
exit function
end if
[留言]
打开Plugins/GuestBook/bookaction.asp 适当位置插入:
引用:
dim china
Set china=new RegExp
china.IgnoreCase =True
china.Global=True
china.Pattern="[\u4E00-\u9FA0]"

IF Not china.Test(post_Message) then
   showmsg "留言发表错误信息","<b>留言内容居然没任何中文。</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>","ErrorIcon","plugins"
   Set china=Nothing
exit function
end if
呵呵~

等等。。。?
引用:

留言内容首字符禁止为回车
框内最初开始的字符不能为回车?
那楼主方法不错,但是题目要改下为好,我以为就单纯发表空信息随便回车即提交呢~
以上方法参考之!

[ 本帖最后由 jogocun 于 2006-11-4 16:38 编辑 ]
敝站:http://www.haifol.com/,欢迎来踩踩!
PJ交流群(二):6448245

TOP

对了,还需要禁止发表信息后滥用回车~
这样发表出去的信息下面有很多空行就影响美观了~
敝站:http://www.haifol.com/,欢迎来踩踩!
PJ交流群(二):6448245

TOP

谢谢,效果很好

TOP

8错8错

TOP

发新话题