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