asp代理采集的核心函数代码

Function ProxyPage(url) 
Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP.5.0") 
With Retrieval 
.SetProxy 2 , "255.0.0.0:80" '代理ip:代理端口 
.Open "Get", url, False, "", "" 
.setRequestHeader "Referer","http://www.baidu.com/" '伪造referer 
.Send 
ProxyPage = BytesToBstr(.ResponseBody) 
End With 
Set Retrieval = Nothing 
End Function 

附BytesToBstr过程，你采集的时候可以定义网页是utf-8还是gb2312，utf="True"为 utf-8 
Function BytesToBstr(body) 
dim objstream 
set objstream = Server.CreateObject("ad"&""&"odb.st"&""&"ream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
if utf="True" then 
objstream.Charset = "utf-8" 
else 
objstream.Charset = "gb2312" 
end if 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
代码解释： 
如果你系统是win 2003 只能使用以下代码 
CreateObject("MSXML2.ServerXMLHTTP.4.0") 
若为xp 
CreateObject("MSXML2.ServerXMLHTTP.5.0") 

伪造referer用处很一般，不过对于一些站还是有用的，所以代码我加上了，可以注释掉， 

注意： 
如果你不会写asp采集，那么代码你可能不懂，那就不是我这次发帖所讨论了，希望对大家有用。