TNND，广告太多了

作者:asky 日期:2006-10-06

字体大小: 小中大

最近几天，连自己都觉得一定要登录才能发布评论比较麻烦，于是取消了评论必须登录的限制，没想到，这垃圾广告又来了。$@#$%$#@%^$!!!!! 不得已，写了段代码，去死吧，发垃圾的人。代码如下，包含两种关系：逻辑和、逻辑或。不过写的比较草，没做优化。

程序代码

  Dim madestrs,madestrs2,madestr,madei,madej,cuowude,cuola
  madestrs = "翻译|http,翻译公司"
  madestrs2 = split(madestrs,",")
  for madej = 0 to ubound(madestrs2)
    madestr = split(madestrs2(madej),"|")
    if ubound(madestr) > 0 then
        cuola = 0
        for madei = 0 to ubound(madestr)
            if instr(1,lcase(post_Message),madestr(madei))>0 then
                cuola = cuola+ 1
            end if
        next
        if cuola = ubound(madestr) + 1 then
            cuowude = true
        else
            cuowude = false
        end if
    else
        if instr(1,lcase(post_Message),madestr(0))>0 then
            cuowude = true
        else
            cuowude =false
        end if
    end if

    if cuowude then
        showmsg "留言发表错误信息","<b>发你妈的头！你丫儿找死是不是？</b><br/><a href=""javascript:window.open('http://www.163.com');window.close();"">返回</a>","WarningIcon","plugins"
        exit function
    end if
  next