在asp中过滤非法字符的函数

<%
Functioncutbadchar(str)
badstr="不|文|明|字|符|列|表|格|式"’此处填写不文明的词语用|分开
badword=split(badstr"|")
Fori=toUbound(badword)
Ifinstr(strbadword(i))>then
str=Replace(strbadword(i)"***")
EndIf
Next
cutbadchar=str
EndFunction
%>