TNND,广告太多了

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

  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


文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 1 | 引用: 12 | 查看次数: 5102
回复回复小妖[2006-10-09 12:58 AM | del]
天书外传
发表评论
你没有权限发表评论!