asp程序中过滤不文明字符的函数<%Function cutbadchar(str)badstr=不|文|明|字|符|列|表|格|式 ’此处填写不文明的词语，用|分开badword=split(badstr,|)For i=0 to Ubound(badword)If instr(str,badword(i)) > 0 thenstr=Replace(str,badword(i),***)End IfNextcutbadchar=strEnd Function%>
