asp服务器端读取远程网页

 Function StreamToChar(StrStream)
  set stream=CreateObject("ADODB.Stream")
  stream.Type=1
  stream.Mode=3
  stream.Open
  stream.Write Strstream
  stream.Position= 0
  stream.Type= 2
  stream.Charset="GB2312"
  StreamToChar= stream.ReadText
  stream.Close
  set stream=nothing
 End Function 

 set obj = Server.CreateObject("msxml2.XmlHttp")
 obj.open "get", "http://www.hebca.com", false
 obj.send
 response.Write StreamToChar(obj.responseBody)