主题：关于get方式传递中文，中国页面后显示乱码

bug 如果，你是在浏览器直接输入地址访问的话，需要转码才行

写个函数

Public Function ConvertCoding(str As String) As String
Dim bytes() As Byte
Dim utf As Encoding = Encoding.default
Dim def As Encoding = Encoding.utf8
Bytes = def.GetBytes(str)
Bytes = Encoding.Convert(def, utf, Bytes)
str = def.GetString(Bytes)
Return str
End Function

在你代码那里调用

            wb.InsertHTML("<h3 align='left' style='margin-top:5px'>客户名称:" & ConvertCoding(e.GetValues("cid")) & "</h3>")