VB Html编码、Html加密、Html转义字符: Private Function EncodeHTML(S As String) As String 'Html 编码 |
VB Html解码、Html解密、Html转义字符: Private Function DecodeHTML(S As String) As String 'Html 解码 |
VB Html编码、Html解码、Html加密、Html解密、Html转义字符,演示代码: MsgBox DecodeHTML(EncodeHTML("啊/*-+.啊qwertyuiopasdfghjklzxcvbnm啊-=\[];',./啊_+|{}:""<>?啊`1234567890啊~!@#$%^&*()啊")) |