搜索:
首页 >> 网页设计 >> XML教程 >> ASP代理采集的核心函数代码

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

2010-1-2 来源:中国Asp之家 投递文章

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.aspxhome.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
%> 

代码解释:

1、如果系统是win 2003,只能使用以下代码:

CreateObject("MSXML2.ServerXMLHTTP.4.0") 

如果是xp,则使用:

CreateObject("MSXML2.ServerXMLHTTP.5.0") 


 

Tags:采集  代理  函数  asp 
相关文章
手机版 XML教程 Asp之家 Aspxhome.com
闽ICP备06017341号