以下函数可以解码UTF-8地址的中文关键词。

Function URLDecode(ByVal strIn)  
        URLDecode = ""  
        Dim sl : sl = 1          Dim tl : t[......]

阅读全文