[Resolvido] Bloquear Campo de Comentario

[Marcos Coelho2 2]

Embaixo da postagem nesse link tenho um campo de comentarios

http://www.zonadownload.com.br/zonadownload/administrador/zd.asp?pag=10-css-xhtml-html

Quero bloquear esse campo e nao deixar postar nem html nem asp e nem alguma linguagem que possa ser usada para invasao do meu banco de dados tmb.

 

Alguem pode me ajudar?

[Patrique 0]

usa esta function, ela é de fácil entendimento, por isso nem vou me alongar muito, adapte as suas necessidades.

 

Function nohtml(str)

        lsstart=instr(1,str,"<",1)

        while lsstart>0
                lsstart=instr(1,str,"<",0)
                if lsstart>0 then
                        lsend=instr(lsstart,str,">",0)+1
                        lstemp=mid(str,lsstart,lsend-lsstart)
                        str=replace(str,lstemp,"",1,-1,1)      
                end if
        wend

        str=replace(str," ","",1,-1,1)
        str=replace(str,vbcrlf,"",1,-1,1)
        str=replace(str,chr(13),"",1,-1,1)
        str=replace(str,chr(32),"",1,-1,1)
        str=replace(str,chr(34),"",1,-1,1)
        str=replace(str,chr(39),"",1,-1,1)
        str=replace(str,"'","",1,-1,1)
        str=replace(str,"=","",1,-1,1)
        str=replace(str,"/","",1,-1,1)
        str=replace(str,"©","",1,-1,1)
        str=replace(str,"®","",1,-1,1)
        str=replace(str,"&","",1,-1,1)
        str=replace(str,"&","",1,-1,1)
        str=replace(str,"#","",1,-1,1)
        str=replace(str,"<BR>"," ",1,-1,1)
        str=replace(str,"<p>"," ",1,-1,1)
        str=replace(str,"</p>","",1,-1,1)
        str=replace(str,"<B>","",1,-1,1)
        str=replace(str,"</B>","",1,-1,1)
        str=replace(str,"\n","",1,-1,1)
        str=replace(str,"<","",1,-1,1)
        str=replace(str,">","",1,-1,1)

        nohtml=left(str,100)

End Function

[PF Webmaster 0]

Muito Boa função Patrique,

 

Uma outra opção também é usar o Método HTMLEncode do Objeto Server.

 

'retira os caracteres html de uma string'
Server.HTMLEncode()

'coloca-se a variavel, ou o Request da String dentro dos parenteses, exemplo:'
dim texto
texto = Request.QueryString("texto")

Server.HTMLEncode(texto)
Server.HTMLEncode(Request.Form("nome"))

[]'s

 

Pedro Felipe.

[saloeric 1]

pode usar esta também

 

Function RemoveHTMLTags(ByVal strHTML)
	Dim objER
	Dim strTexto
	'Configurando o objeto de Expressão Regular
	Set objER = New RegExp 
	objER.IgnoreCase = True
	objER.Global = True
	objER.Pattern = "<[^>]*>"
	'Substituindo as tags encontradas pela expressão
	strTexto = strHTML
	strTexto = objER.Replace(strTexto, "")
	Set objER = Nothing
	'Retornando a função
	RemoveHTMLTags = strTexto
End Function

[hargon 64]

Na função NOHTML do Patrique, seria interessante substituir alguns caracteres "protegidos" por HTML entities, pq da forma que está, está substituindo por nada. Logo não posso citar no comentário que o Brasil > Argentina.

[xanburzum 169]

ou usar uma função, onde o que o user dgitar você os transforma em caracteres que podem ou não ser usados, tipo uma função de bbcode

 

<%

Function BB(Conteudo)

 

conteudo = replace(conteudo, "<b>", "[b ]")

conteudo = replace(conteudo, "<b >", "")

conteudo = replace(conteudo, "</ B>", "")

conteudo = replace(conteudo, "</ b>", "")

conteudo = replace(conteudo, "<I>, "")

conteudo = replace(conteudo, "<i >", "")

conteudo = replace(conteudo, "</I >", "")

conteudo = replace(conteudo, "</i >", "")

conteudo = replace(conteudo, "<U >", "")

conteudo = replace(conteudo, "<u >", "")

conteudo = replace(conteudo, "</U >", "")

conteudo = replace(conteudo, "</u > ", "")

conteudo = replace(conteudo, "<font=", " [font=")

...

 

ou usar uma Expressão Regular

 

<%

Function RemoveHTMLTags(ByVal strHTML)
    Dim objER
    Dim strTexto

    'Configurando o objeto de Expressão Regular
    Set objER            = New RegExp 
    objER.IgnoreCase    = True
    objER.Global        = True
    objER.Pattern        = "<[^>]*>"
    
    'Substituindo as tags encontradas pela expressão
    strTexto            = strHTML
    strTexto            = objER.Replace(strTexto, "")
    
    Set objER            = Nothing

    'Retornando a função
    RemoveHTMLTags = strTexto
End Function

%>

[Patrique 0]

Hum, boa observação Hargon, não havia reparado isso, peguei esta function em um banco de funções e acabei não notando este detalhe.

 

Valew.

[Marcos Coelho2 2]

O HTMLEncode nao consegui usar

 

Mas usei a função RemoveHTMLTags e funcionou direitinho, agora vou fazer pra remover qualquer função asp ou javascript pelo metodo replace.

 

Mas tenho mais um erro que nao tinha notado

 

Como Faço para quando eu der um enter no meu campo texto eu conseguir salvar esse enter como uma qubra de linha?

[Patrique 0]

Da uma olhada aqui

 

http://forum.imasters.com.br/index.php?/topic/194099-quebra-de-linha-texto/

[xanburzum 169]

dá um replace na variavel

replace(suastring,chr(13),"<br/>")

[Patrique 0]

Você pode utilizar...

 

Replace(String,vbnewline,"<br />")

Replace(String,chr(13),"<br />")

Replace(String,chr(10),"<br />")

[Marcos Coelho2 2]

Perfeito!

 

Muito Obrigado

Funcionou como eu tava querendo

[Patrique 0]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif legal e boa sorte com seu projeto.

[Marcos Coelho2 2]

Velu Patrique

 

Obrigado pela ajuda