asp 实现远程登陆代码

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