asp 过滤非法字符函数

<%

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 

Response.Write cutbadchar("反对")

%>