Re: deny works

From: Eduardo Rosa (eduardo_at_clas.com.br)
Date: 01/18/05 

Date: Tue, 18 Jan 2005 17:44:17 -0200

thanks Rob

that's some like that, but I need a smarter code that don't replace words
like sit (sit down) from site (website).

thanks again

"Rob Meade" <robb.meade@NO-SPAM.kingswoodweb.net> escreveu na mensagem
news:UOcHd.13151$GG1.7341@text.news.blueyonder.co.uk...
> "Eduardo Rosa" wrote...
>
>> Hi people,
>> Somebody knows where I can get a tutorial, or any help, to make "deny
> words"
>> in my forum?
>
> Hi,
>
> Depends how you want to do it - I did something similar for 'ignore words'
> for searches, in my case I loaded in some 390 common words from an excel
> spread*** into SQL server, I then populate an array with these one the
> relevant page, and then ignore them etc...
>
> Not sure whether you'd want to do this upon submission of the post and
> then
> replace them with say nothing, or **** them out or something, but the same
> process would apply...a simplistic example could be:
> <%
> Dim aIgnoreWords(3)
>
> aIgnoreWords(0) = "bottom"
> aIgnoreWords(1) = "arse"
> aIgnoreWords(2) = "bum"
>
> strPostContent = "I have a really large bottom, my bum is huge, its the
> largest arse I've ever seen!!!"
>
> Response.Write "Before tidy up: " & strPostContent
> Response.Write "<br><br>"
>
> For intLoop = 0 To (UBound(aIgnoreWords)-1)
>
> strPostContent = Replace(strPostContent, aIgnoreWords(intLoop), "***")
>
> Next intLoop
>
> Response.Write "After tidy up: " & strPostContent
> %>
>
> I hope this helps, by the way it's untested but should give you a pointer
> in
> the right direction, and perhaps a little smile :o)
>
> Regards
>
> Rob
>
>