求asp编程整合

现用BBS码禁止只能对单一词禁止 列禁止 A|B|C| 可以禁止A|B|C| 但如用AA BB CC ABC CBA就无法禁止
If instr(lcase(BBS.Info(52)),lcase(Name))>0 Then
Can=true
End If
If Can Then
Temp="非法用户名或含有屏蔽字符，不能注册!"
Else





这个BBS码只要中间有禁止字符就都能禁止 列禁止 A|B|C| 用 AA BB CC ABC CBA都能禁止，但不知道怎样添加到上面的代码中间
badwords=split(application(prefix&"badwords"),"|")
for z=0 to ubound(badwords)
if instr(name,badwords(z))>0 then
mes=mes&"·你的用户名含有论坛使用的字词。<br>"
exit for
end if
next