asp抓取网页的方法

Function getHTTPPage(url)
	 dim objXML
	 set objXML=createobject("MSXML2.SERVERXMLHTTP.3.0")
	 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 = "GB2312"
	bBytesToBstr = objstream.ReadText
	objstream.Close
	set objstream = nothing
end Function

可以通过response.write(getHTTPPage(“http://www.baidu.com”)) 获得百度的网页内容。asp也可以使用getHTTPPage这个函数生成静态页面。

分享到:
此条目发表在 asp 分类目录。将固定链接加入收藏夹。

评论功能已关闭。