关于，网站留言板方面的问题，如何过滤监控非法文字的出现，并删除帖子？？？？

[cbpfy]

？？？？？？？？

[axiaowin]

怎么不去WEB开发板块

[wuliangge2001]

up

[hahu]

vbscript:
if(instr(str,pattern)>0) then
找到了
end if


Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' String to search in.
SearchChar = "P" ' Search for "P".
MyPos = Instr(4, SearchString, SearchChar, 1) ' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(1, SearchString, SearchChar, 0) ' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(SearchString, SearchChar) ' Comparison is binary by default (last argument is omitted). Returns 9.
MyPos = Instr(1, SearchString, "W") ' A binary comparison starting at position 1. Returns 0 ("W" is not found).

[DebugXP]

I F U !!!

www.chinaz.com

[zhangcrony]

是啊﹐樓主來錯地方了哦。
Anyway, hahu is right!