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