Asp 使用 Microsoft.XMLHTTP 抓取网页内容(没用乱码),并过滤需要的内容
示例源码:
复制代码 代码如下:
<%
Dim xmlUrl,http,strHTML,strBody
xmlUrl = Request.QueryString("u")
REM 异步读取XML源
Set http = server.CreateObject("Microsoft.XMLHTTP")
http.Open "POST",xmlUrl,false
http.setrequestheader "User-Agent", "Mozilla/4.0"
http.setrequestheader "Connection", "Keep-Alive"
http.setRequestHeader "Content-Type", "application/x-""","")
END Function
%>
效果图如下:
