切换风格

默认晚霞 雪山 粉色心情 伦敦 花卉 绿野仙踪 加州 白云 星空 薰衣草 城市 简约黑色 简约米色 龙珠
回复 0

3817

主题

3819

帖子

1万

积分

论坛元老

Rank: 8Rank: 8

积分
12698
【原创】30行代码获取资源网数据【第二天】[复制链接]
发表于 2022-4-8 22:39:05 | 显示全部楼层 |阅读模式

大家好,依然是我 Bygones ,又到了中午休息时间,继续来写抓取资源网
下面看代码    是对QQ业务乐园进行抓取的    大家看一下,每天更新一个资源网 期待吧
代码回帖可见


<?php
/**
* 资源网文章获取
* isshw.cn 话不多说 爱上生活网
* @author Bygones
* @Time 2018年8月29日
* 站长开发交流群:179981870
* 代码仅供参考 如果需要,请自行改写
*/
$get_url = "http://www.qqyewu.com/";
$UserAgent = 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; .NET CLR 3.0.04506; .NET CLR 3.5.21022; .NET CLR 1.0.3705; .NET CLR 1.1.4322)';
$curl = curl_init();
$curl = curl_init();
curl_setopt($curl, CURLOPT_URL, $get_url);
curl_setopt($curl, CURLOPT_HEADER, 0);
curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($curl, CURLOPT_SSL_VERIFYPEER, false);
curl_setopt($curl, CURLOPT_SSL_VERIFYHOST, false);
curl_setopt($curl, CURLOPT_ENCODING, '');
curl_setopt($curl, CURLOPT_USERAGENT, $UserAgent);
curl_setopt($curl, CURLOPT_FOLLOWLOCATION, 1);
$data = curl_exec($curl);
$res=mb_convert_encoding($data, 'UTF-8', 'UTF-8,GBK,GB2312,BIG5');
$preg = '#<li><span class="fcr today"><em class="newDate">'.date("m-d").'</em></span><a class="type" target="_blank" href="(.*)">(.*)</a><a class="titname" target="_blank" href="(.*)" title="(.*)">(.*)</a></li>#';
preg_match_all($preg,$res,$qqyewu);
// echo '<pre>';
foreach ($qqyewu[3] as $key => $value) {
echo '<br>';
echo $qqyewu[4][$key];//标题
echo '<br>';
echo $value;//跳转链接
echo '<br>';
$href = $get_url.$value;
echo '<a href="'.$href.'">'.$qqyewu[4][$key].'</a>';//组合拼接
}



回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|不懂 ( 粤ICP备14042591号-1 )|网站地图

GMT+8, 2024-11-2 02:20 , Processed in 0.062533 second(s), 27 queries .

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

返回顶部