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
...
程序代码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
...
