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