<%
Response.CharSet= "GB2312"  
Response.ContentType= "text/html"
Function   streamtochar(StrStream)
      set   stream=server.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

Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.aaaa.org/link/rrr.html", False 
xml.Send
Response.Write streamtochar(xml.responseBody)
Set xml = Nothing %>