ASP过滤不文明字符

<%
Function badchar(str)
 badstr="不文明字符列表，用|分开（因发表时不能含有那些字符，所以不能贴出。）"
 badword=split(badstr,"|")
 For i=0 to Ubound(badword)
 If instr(str,badword(i)) > 0 then
  badchar=True
  Exit For
 Else
  badchar=False
 End If
 Next
End Function

Function cutbadchar(str)
 badstr="不文明字符列表，用|分开（因发表时不能含有那些字符，所以不能贴出。）"
 badword=split(badstr,"|")
 For i=0 to Ubound(badword)
 If instr(str,badword(i)) > 0 then
  str=Replace(str,badword(i),"×××")
 End If
 Next
 cutbadchar=str
End Function
%>