Encode de caracteres especificos

Question

 Ola amigos, preciso de uma ajuda...preciso fazer Enconde de caracteres  mas nao quero usar o comando Server.HMLEncode...pois quero Enconde de alguns especificos caracteres como:

    'sText = Replace(sText, "<", "&lt;")
    'sText = Replace(sText, ">", "&gt;")
    'sText = Replace(sText, "(", "&#40;")
    'sText = Replace(sText, ")", "&#41;")
    'sText = Replace(sText, "#", "&#35;")
    'sText = Replace(sText, "&", "&#38;")

mas estou com dificuldades de fazer...poderia me dar uma ajuda ou me mostrar algum caminho...eu tenho esse codigo de exemplo...

Function HTMLEncode(sText)
    Dim I
    sText = Replace(sText, "<", "&lt;")
    sText = Replace(sText, ">", "&gt;")
    sText = Replace(sText, "(", "&#40;")
    sText = Replace(sText, ")", "&#41;")
    sText = Replace(sText, "#", "&#35;")
    sText = Replace(sText, "&", "&#38;")

    For I = 1 to 255
        sText = Replace(sText, I , Chr(I))
    Next
    HTMLEncode = sText
End Function

mas nao funcionou...pq?

Answer 1

Olá

Neste caso você não precisa fazer isto porque já existe uma função ASP pronta:

Ex:

<%Response.Write Server.HTMLEncode("A tag de tabela <Table>")%>

Resultado:

A tag de tabela &lt;Table&gt;

 

Abraço