[Resolvido] filtrar palavras inadequadas

[xanburzum 169]

Este script é um simples exemplo de como filtrar palavras inadequadas de uma string, apartir de um banco de dados ,ele compara cada palavra ao do banco de dados. Em seguida, notifica os usuários.

 

 

<%
function trocarpalavra(strMessage)

	strMessage=lcase(strMessage)%>
	<!--#include file="conn/conexao1.asp"-->
	<% 'abro a conexao
	call abreconexao
	
	
	Dim meuarray() 
	'Dim message()
	
	message=Split(strMessage," ")
	
	strSQL = "SELECT Distinct word FROM words;"
	Set objRS = objDB.Execute(strSQL)		
	

	count=0
	do while not objRS.eof
		redim preserve meuarray(count)
		meuarray(count)=objRS("word")
				
		objRS.movenext
		count=count+1
	loop	
	
	intCurseCount=0			
	for y=0 to UBound(meuarray)
		for x=0 to ubound(message)
			if meuarray(y) = message(x) then
				intCurseCount=intCurseCount+1
	'			Response.Write (intCurseCount&" encontrado <BR>")
			end if						
		next 'x
	next 'y
	
	'if (intCurseCount > 0) then 		
	'	Response.write ("<BR><BR>Encontrámos " & intCurseCount & " palavras a serem trocadas em sua mensagem. Por favor modifique sua mensagem.")
	'end if
	trocarpalavra=intCurseCount
end function
%>

aki o arquivo que faz a conexão com o bd.

conexao1.asp

 

<%

sub abreconexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/seu_db.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>