'定义object对象
Dim objXML
'定义链接
Dim strURL
dim xmlGet
xmlGet=""
strURL=http://www.xxx.com
Set objXML = CreateObject("Microsoft.XMLHTTP")
' 发送信息
objXML.Open "get", strURL, False
objXML.Send
'获取目标HTML源代码
xmlGet = objXML.responsebody
'2进制转换为字符串
xmlGet = bytes2bstr(xmlGet)
response.write xmlGet
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
在然后就是处理字符串的事情了,一般网站上只要源代码能看到的东西都能获取,抓取数据也变的如此容易.