XMLHTTP乱码问题

Function bytes2BSTR(vIn)
        strReturn = ""
        For i = 1 To LenB(vIn)
                ThisCharCode = AscB(MidB(vIn,i,1))
                        If ThisCharCode < &H80 Then
                        strReturn = strReturn & Chr(ThisCharCode)
                Else
                        NextCharCode = AscB(MidB(vIn,i+1,1))
                        strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
                        i = i + 1
                End If
        Next
        bytes2BSTR = strReturn
End Function
Function send_html(url,action)
        dim XmlHttp
        set XmlHttp = CreateObject("Microsoft.XMLHTTP")
        XmlHttp.Open "post",url,false
        XmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
        XmlHttp.Send action
        html = bytes2BSTR(XmlHttp.responseBody)
End Function

如果这样调用
send_html('_files.asp?ac=search&na=工','')
html的值正常，如果
send_html('_files.asp,'ac=search&na=工'')
html的值就不正常了，接收的na的值是乱码，怎么办？

Server.Urlencode()