急啊,哪位大侠帮我看看,Microsoft.XMLHTTP取不了我要的网页
lliei 2006-01-04 10:02:17 <%
Function GetHTTPPage(url)
Response.Write url & "<p>"
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "get", url, False
.Send
GetHTTPPage = .responseText
End With
Set Retrieval = Nothing
End Function
wstr=getHTTPPage("http://search.half.ebay.com/ws/web/HalfSearch?m=books&submit=Search&isbn=0619268158")
response.write wstr
%>
取其他网页还可以,就是这个不行。
帮一下。谢谢了