VB Html编码、Html加密、Html转义字符:

Private Function EncodeHTML(S As String) As String                              'Html 编码
    S = Replace(S, "&", "&")                                                '符号:&
    S = Replace(S, "#", "#")                                                '符号:#
    'S = Replace(S, ";", "&#59;")                                                '分号
    S = Replace(S, "<", "&lt;")                                                 '小于号
    S = Replace(S, ">", "&gt;")                                                 '大于号
    S = Replace(S, "(", "&#40;")                                                '左括弧
    S = Replace(S, ")", "&#41;")                                                '右括弧
    S = Replace(S, Chr(39), "&#39;")                                            '单引号
    S = Replace(S, Chr(34), "&quot;")                                           '双引号
    S = Replace(S, Chr(63), "&#63;")                                            '问号
    S = Replace(S, Chr(32), "&nbsp;")                                           '空格
    S = Replace(S, Chr(9), "&#9")                                               '制表符
    S = Replace(S, Chr(13), "&#13;")                                            '换行符
    S = Replace(S, Chr(8194), "&ensp;")                                         '半方大的空白
    S = Replace(S, Chr(8195), "&emsp;")                                         '全方大的空白
    EncodeHTML = S
End Function

VB Html解码、Html解密、Html转义字符:

Private Function DecodeHTML(S As String) As String                              'Html 解码
    S = Replace(S, "&amp;", "&")                                                '符号:&
    S = Replace(S, "&#35;", "#")                                                '符号:#
    'S = Replace(S, "&#59;", ";")                                                '分号
    S = Replace(S, "&lt;", "<")                                                 '小于号
    S = Replace(S, "&gt;", ">")                                                 '大于号
    S = Replace(S, "&#40;", "(")                                                '左括弧
    S = Replace(S, "&#41;", ")")                                                '右括弧
    S = Replace(S, "&#39;", Chr(39))                                            '单引号
    S = Replace(S, "&quot;", Chr(34))                                           '双引号
    S = Replace(S, "&#63;", Chr(63))                                            '问号
    S = Replace(S, "&nbsp;", Chr(32))                                           '空格
    S = Replace(S, "&#9", Chr(9))                                               '制表符
    S = Replace(S, "&#13;", Chr(13))                                            '换行符
    S = Replace(S, "&ensp;", Chr(8194))                                         '半方大的空白
    S = Replace(S, "&emsp;", Chr(8195))                                         '全方大的空白
    DecodeHTML = S
End Function

VB Html编码、Html解码、Html加密、Html解密、Html转义字符,演示代码:

MsgBox DecodeHTML(EncodeHTML("啊/*-+.啊qwertyuiopasdfghjklzxcvbnm啊-=\[];',./啊_+|{}:""<>?啊`1234567890啊~!@#$%^&*()啊"))