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
...