asp調用wcf服務、webservice

'//1、輸入url目標網頁地址，傳回值getHTTPPage是目標網頁的html代碼
     Function getHTTPPage(url)
          url=cstr(url)
          dim Http
          set Http=server.createobject("MSXML2.ServerXMLHTTP")
         ' Response.write url
         ' Response.end
          Call Http.setTimeouts(90000,90000,90000,90000)
          Http.open "GET",url,false
          Http.send()
          if Http.readystate<>4 then 
           exit function
          end if
  
          getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
          set http=nothing
          if err.number<>0 then err.Clear 
         End Function
         '//2、轉換亂瑪，直接用xmlhttp調用有中文字元的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換
         Function BytesToBstr(body,Cset)
          dim objstream
          set objstream = Server.CreateObject("adodb.stream")
          objstream.Type = 1
          objstream.Mode =3
          objstream.Open
          objstream.Position = 0
          objstream.Type = 2
          objstream.Charset = Cset
          BytesToBstr = objstream.ReadText 
          objstream.Close
          set objstream = nothing
         End Function