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 Response.Write cutbadchar("중국 불아 두 발사 점 발명")%>

좋은 웹페이지 즐겨찾기