我写ASP时常用到的一些函数(2)-ASP教程,ASP应用

//过滤脏话函数function chkbadwords(fstring,badwords)dim bwords bwords = split(badwords, "|") for i = 0 to ubound(bwords) fstring = replace(fstring, bwords(i), string(len(bwords(i)),"*"), 1,-1,1) nextchkbadwords = fstringend function用正则表达式突出显示字符串中查询到的单词的函数function 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