VB 问题，通过XMLHTTP传递中文到编码为UTF-8的ASP页面乱码

Question

Public Sub xmlhttps(strUrl)
Set xmlobject = CreateObject("Microsoft.XMLHTTP")
xmlobject.open "GET", strUrl, True
xmlobject.send
End SubVB中用上面过程传递中文到编码为UTF-8的ASP页面，中文部分出现乱码。
本来JavaScript中可以用Escape进行处理的，但是VB中却没有这个函数。请高手指教，如何处理才能解决此中文乱码问题呢？

Answer 1

好像不行。VB中无法直接使用URLEncode？

Answer 2

调用Jscript处理。Private Function Escape(ByVal strText As String) As String
'将字符串编码,以便post传递给服务器
    Dim s As String
    If JS Is Nothing Then Set JS = CreateObject("MSScriptControl.ScriptControl")
    JS.Language = "JavaScript"
    s = JS.Eval("encodeURI('" & Replace(strText, "'", "\'") & "');")
    s = Replace(s, "/", "%2F")
    s = Replace(s, ":", "%3A")
    s = Replace(s, "+", "%2B")
    Escape = s
End Function

Answer 3

作业题最好先搜一下：
http://topic.csdn.net/u/20090818/14/171ffa16-89dc-4de7-a7c7-839851899e0c.html
http://topic.csdn.net/u/20090818/10/2cd8ecee-3318-4f0a-b788-b34d3338a92c.html