Karuta’s ASP & M$ SQLserver

Dicas, códigos e outras coisinhas de meus estudos para não esquecer…

ASP Inverse Function Server.HTMLEncode (string)

Posted by karuta em outubro 21, 2016

<%
Private Function HTMLDecode(byVal encodedstring)
Dim tmp, i
tmp = encodedstring
tmp = Replace( tmp, “%20″, ” ” )
tmp = Replace( tmp, “%22″,”””” )
tmp = Replace( tmp, “&quot;”, chr(34) )
tmp = Replace( tmp, “&lt;” , chr(60) )
tmp = Replace( tmp, “&gt;” , chr(62) )
tmp = Replace( tmp, “&amp;” , chr(38) )
tmp = Replace( tmp, “&nbsp;”, chr(32) )
For i = 1 to 255
tmp = Replace( tmp, “&#” & i & “;”, chr( i ) )
Next
HTMLDecode = tmp
End Function
%>

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: