程序代码：

dim kword
kword=split("fuck,傻逼,他妈的,我靠,我操,去死,我叼,or,and,exec,insert,select,delete,update,count,%22,%27,chr,mid,master,truncate,char,declare,eval",",")        '屏蔽字符，用逗号“,”隔开
function killWord(s)
dim KwC,kw,kstr
for each kw in kword
  kstr=""
  KwC = instr(s,kword(kw-1))
  if kwc>0 then
    kstr=kstr+kword(kw)+","
next
killWord=kstr
end function