<% 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 Response.Write cutbadchar(“中国不阿斗发射点发明”) %>