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   
%>