function getHTTPPage(url)
            dim Http
            set Http=server.createobject("MSXML2.XMLHTTP")
            Http.open "GET",url,false
            Http.send()
            if Http.readystate<>4 then
            exit function
            end if
            getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
            set http=nothing
            if err.number<>0 then err.Clear
            end function

Function BytesToBstr(body,Cset)
            dim objstream
            set objstream = Server.CreateObject("adodb.stream")
            objstream.Type = 1
            objstream.Mode =3
            objstream.Open
            objstream.Write body
            objstream.Position = 0
            objstream.Type = 2
            objstream.Charset = Cset
            BytesToBstr = objstream.ReadText
            objstream.Close
            set objstream = nothing
            End Function

Dim Url,Html
            Url="http://www.webdn.com/web_file/"
            Html = getHTTPPage(Url)
            Response.write Html