asp过滤 怎么写

<%

Dim str_arr,str_word,noid,badwords

str_arr="<!-$arr->"

str_word = "赌博"&st_arr&"黄赌"&st_arr&"海洛因"

str_word_no="**"

content_word="这里是你的文章内容"

badwords=split(str_word,str_arr)

For noid=0 to ubound(badwords)

re_word=badwords(noid)

content_word=content_word&replace(content_word,re_word,str_word_no)

Next

%>