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

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

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

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

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

VB Html编码、Html解码、Html加密、Html解密、Html转义字符，演示代码：

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