<?
/*-- ---------------------------------------- --*/
/*-- 作者:汤光谦 --*/
/*-- QQ:75754141 --*/
/*-- 修改时间 : 2004.12.18 --*/
/*-- E-mail: wztgq@Hotmail.com --*/
/*-- ---------------------------------------- --*/
$chfltime=5;#设定刷新时间
$qqlist=15; #显示条数
$qqd=0;#去掉置顶文章
$url="blog_php/csdn.txt";
include_once('mysql.php');
$s=new db_sql();
function f_write(){ $str=@file_get_contents("http://community.csdn.net/Expert/ForumsList.asp?roomid=3&typenum=1&xmlsrc=/Expert/deeptree/Rooms/List.xml&csdnstyle=0&hidetoc=true&whichpage=1");
if($str){
$fp=fopen($GLOBALS[url],"w");flock($fp,LOCK_EX);
fwrite($fp,$str);
fclose($fp);
}
}
if(file_exists($url)){
if((date("U")-filemtime($url))/60>$chfltime)
{
f_write();
}
}
else f_write();
$str=file_get_contents($url);
$gz="#<table[^>]*slt/">.*<a.*/?id=([/d]+)/".*>(.*)</a>.*<td.*>(.*)</td>.*=/"80/".*>(.*)</td>.*</table>#Uis"; //如源源有变动,修改该与此同时即可!
preg_match_all($gz,$str,$out);
for($i=$qqd;$i<$qqd+$qqlist;$i++)
{
$penster[$i]=iconv('gb2312','utf-8',$out[3][$i]);
$title[$i]=$s->StrSub(iconv('gb2312','utf-8',$out[2][$i]),30);
$_date[$i]=iconv('gb2312','utf-8',$out[4][$i]);
$url[$i]=" http://community.csdn.net/Expert/TopicView1.asp?id=".$out[1][$i];
}
?>
/*-- ---------------------------------------- --*/
/*-- 作者:汤光谦 --*/
/*-- QQ:75754141 --*/
/*-- 修改时间 : 2004.12.18 --*/
/*-- E-mail: wztgq@Hotmail.com --*/
/*-- ---------------------------------------- --*/
$chfltime=5;#设定刷新时间
$qqlist=15; #显示条数
$qqd=0;#去掉置顶文章
$url="blog_php/csdn.txt";
include_once('mysql.php');
$s=new db_sql();
function f_write(){ $str=@file_get_contents("http://community.csdn.net/Expert/ForumsList.asp?roomid=3&typenum=1&xmlsrc=/Expert/deeptree/Rooms/List.xml&csdnstyle=0&hidetoc=true&whichpage=1");
if($str){
$fp=fopen($GLOBALS[url],"w");flock($fp,LOCK_EX);
fwrite($fp,$str);
fclose($fp);
}
}
if(file_exists($url)){
if((date("U")-filemtime($url))/60>$chfltime)
{
f_write();
}
}
else f_write();
$str=file_get_contents($url);
$gz="#<table[^>]*slt/">.*<a.*/?id=([/d]+)/".*>(.*)</a>.*<td.*>(.*)</td>.*=/"80/".*>(.*)</td>.*</table>#Uis"; //如源源有变动,修改该与此同时即可!
preg_match_all($gz,$str,$out);
for($i=$qqd;$i<$qqd+$qqlist;$i++)
{
$penster[$i]=iconv('gb2312','utf-8',$out[3][$i]);
$title[$i]=$s->StrSub(iconv('gb2312','utf-8',$out[2][$i]),30);
$_date[$i]=iconv('gb2312','utf-8',$out[4][$i]);
$url[$i]=" http://community.csdn.net/Expert/TopicView1.asp?id=".$out[1][$i];
}
?>