Codeme

Bem Vindo ao CODME
Cadastre-se agora para obter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações pós status, gerenciar seu perfil e muito mais. Esta mensagem será removido depois de ter cadastrado.
Entrar na Conta Criar uma conta


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

#1 Função HTMLDecode para ASP em Dom Out 27, 2013 3:19 am

Admin

avatar

Admin

Uma das funçoes mais úteis no tratamento de strings que o ASP possui internamente é o HTMLEncode.
Infelizmente não foi incluído em seus objetos a função para desfazer essa codificação.
Abaixo segue a função que realiza esta operação e chega de brigar com códigos HTML codificados.

Código:
<%
Function HTMLDecode(ByVal EncodedString)
   'Declarations
   Dim ret
   Dim i
   
   'Decoding
   ret = EncodedString
   ret = Replace( ret, "&quot;", chr(34) )
   ret = Replace( ret, "&lt;"  , chr(60) )
   ret = Replace( ret, "&gt;"  , chr(62) )
   ret = Replace( ret, "&" , chr(38) )
   ret = Replace( ret, "&nbsp;", chr(32) )
   For i = 1 to 255
      ret = Replace( ret, "&#" & i & ";", chr( i ) )
   Next
   
   'Return
   HTMLDecode = ret
End Function
%>
Criado por: Gabriel Froes

Ver perfil do usuário http://codme.umforum.net

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]


Permissão deste fórum:
Você não pode responder aos tópicos neste fórum