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")
本文讲述了如何通过代码在Android中更改Recycler视图项的背景颜色。通过在onBindViewHolder方法中设置条件判断,可以实现根据条件改变背景颜色的效果。同时,还介绍了如何修改底部边框颜色以及提供了RecyclerView Fragment layout.xml和项目布局文件的示例代码。 ...
[详细]