I write some of the functions that ASP often use (2)

function '//filter Foul language function Chkbadwords (fstring,badwords) Dim bwords bwords = Split (Badwords, "|") for i = 0 To UBound (bwords) fSt Ring = Replace (fstring, Bwords (i), String (Len (Bwords (i)), "*"), 1,-1,1) Nextchkbadwords = Fstringend function ' uses a regular expression to highlight the functions of a word queried in a string Boldword (Strcontent,word) Dim objregexp Set Objregexp=new RegExp Objregexp.ignorecase =true Objregexp.global=true
Objregexp.pattern= "(& Word &)" Strcontent=objregexp.replace (Strcontent, "<font color=" "#ff0000" ">$1 </font> ")
Set objregexp=nothing Boldword=strcontent End Function