asp 实现远程登陆代码

Dim objXMLHTTP, xml, place
       Set xml = Server.CreateObject("Microsoft.XMLHTTP")
       xml.Open "GET", "网址",False
       xml.Send
       response = xml.responseText    '获取页面的返回值