VB源码函数UTF8Encode UTF8编码，原内容中有URLENCODE内容的不作更改 '┏〓〓〓〓〓〓〓〓〓 UTF8Encode_ForJs,start 〓〓〓〓〓〓〓〓〓┓ '［简介］： 'UTF8编码，原内容中有URLENCODE内容的不作更改 Function UTF8Encode_ForJs(ByVal szInput As String) As String