ODBiC Discussion Board


RE: Profanity blocking, David Richardson, 10-13-2003

re: Profanity Checking

by Tim Logan, October 23, 2003 21:02

You could do something like this...

<%

Database=MyDatabase;

While $MyText$;

note *Get Next Word*; set TestText= $split(MyText, " ");

Note * Lookup word in database * ; sql select BadWord, GoodWord From ProfanityCheck Where BadWord = '$TestText$';

note * If word is listed as bad word, replace it with good word *; if $sql_status$ = 0; set TestText = $GoodWord$; note or use this... set TestText = "*****"; Endif;

Set NewText = $NewText$" "$TestText$;

endwhile;

%>



Replies:


Post Your Reply:

Name   
E-mail  optional
Topic  
Message:

HTTP Link: 
Link text: 


Copyright ©1997-2003, Roger Harris. All rights reserved.