我们在编写一些交互式网站程序的时候，为了使网站能够文明运行，有必要过滤一些明感词语和一些不文明的词语，下面就用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 %>