Re: deny works

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Rob Meade (robb.meade_at_NO-SPAM.kingswoodweb.net)
Date: 01/18/05 

Date: Tue, 18 Jan 2005 18:45:08 GMT

"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

Quantcast