?我的目的是从一个gb2312的页面接收数据,传给一个用utf8编码标准的接口中去
那个接口传回来的utf8的数据转成gb2312存到我的以简体中文编码的ms server数据库中去

解决方案 »

  1.   

    试一下这个,部分功能
    Function getUrl(url)
       dim Str
       dim Http
       dim Arr
       set Http=CreateObject("Microsoft.XMLHTTP")
       Http.open "GET",url,false
       Http.send()
       if Http.readystate<>4 then 
          exit function
       end if   Str=bytesToBSTR(Http.responseBody,"GB2312")
       getUrl=Str
       set http=nothing
       if err.number<>0 then err.Clear 
    End Function