<?
function get($url){//문서가져옮
$fp = fopen($url, "r");
while(!feof($fp)){
$tmp = fgets($fp, 900);
$temp .= $tmp;
}
fclose($fp);
return $temp;
}//function get
function Strip($all){// 링크랑 제목만 빼오기
$link_pm=strpos($all,">");
$link=substr($all,0,$link_pm);
if(!$link) return;
if(ereg("\"",$link)){
$link_p=strpos($link,"\"");
$link=substr($link,$link_p+1);
$link_p=strpos($link,"\"");
$link=substr($link,0,$link_p);
}
if(ereg("'",$link)){
$link_p=strpos($link,"'");
$link=substr($link,$link_p+1);
$link_p=strpos($link,"'");
$link=substr($link,0,$link_p);
}
$link=trim($link);
$substr=substr($all,$link_pm+1);
$substr_p=strpos($substr,"</a>");
$substr=substr($substr,0,$substr_p);
$strip=strip_tags($substr);
$strip=trim($strip);
return array(link => $link, sub => $strip);
}//function strip($all)
function makeUrl($Url, $Link){
if(!strpos($Link,"http://") && substr_count("$Link","http://")) return $Link;
$eURL = pathinfo("$Url");
$host = parse_url($Url);
$host = $host[scheme]."://".$host[host];
$Link = "/".$Link; //링크가 루트인지 확인위해 임의로 붙인다.
if(substr_count("$Link","../")){ //한칸앞으로
$Link = str_replace("./../", "", $Link);
$Link = str_replace("../", "", $Link);
$pos = strrpos($eURL["dirname"], "/");
$makeUrl = substr($eURL["dirname"],0,$pos);
$makeUrl = "$makeUrl"."$Link";
}else if(substr_count("$Link","//") && !strpos($Link, "//")){ //루트로 가라
$makeUrl = $host."/".str_replace("//", "", $Link);
}else{ //제자리
$Link = str_replace("./", "", $Link);
$makeUrl = $eURL["dirname"]."$Link";
}
return $makeUrl;
}
////////////////////////////////////// 펑션끝
$date_Y = date("Y");
$date_M = date("m");
$date_D = date("d");
$mdate = "$date_Y.$date_M.$date_D"; //확장성 위해
////////////////////////////////////////////////////////////<== 신문사별설정 추가가능
$newspaper[] = "동아일보";
$URL[] = "http://www.donga.com/fbin/output?f=total";
$like[] = "$date_Y$date_M$date_D";
$newspaper[] = "연합신문";
$URL[] = "http://www.yonhapnews.co.kr/services/0400000000.html";
$like[] = "$date_Y$date_M$date_D";
////////////////////////////////////////////////////////////<== 여기까지 신문사별설정
for($x=0; $x < sizeof($newspaper); $x++){
$temp = get($URL[$x]);
$all = split("href =|HREF =|href=|HREF=",$temp);//--> url 추출
for($i=0; $i < sizeof($all); $i++){
$kisa = Strip($all[$i]);
if(ereg($like[$x], $kisa[link]) & 20 < strlen($kisa[sub])){
$LinkURL = makeUrl($URL[$x], $kisa[link]);
echo "<a href='$LinkURL'>[$newspaper[$x]]$kisa[sub]</a><br>";
}//if(ereg($like[$x], $kisa[link]) & 20 < strlen($kisa[sub]))
}//for($i=0; $i < sizeof($all); $i++)
}//for($x=0; $x < sizeof($newspaper); $x++)
?>
댓글 1개
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요
소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....
그럼수고하세요 ~~~
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 7830 | 9년 전 | 380 | ||
| 7829 |
|
9년 전 | 557 | |
| 7828 | 9년 전 | 491 | ||
| 7827 | 9년 전 | 376 | ||
| 7826 | 9년 전 | 383 | ||
| 7825 | 9년 전 | 437 | ||
| 7824 | 9년 전 | 418 | ||
| 7823 | 9년 전 | 325 | ||
| 7822 | 9년 전 | 322 | ||
| 7821 | 9년 전 | 266 | ||
| 7820 | 9년 전 | 322 | ||
| 7819 |
|
9년 전 | 726 | |
| 7818 | 10년 전 | 339 | ||
| 7817 | 10년 전 | 460 | ||
| 7816 | 10년 전 | 362 | ||
| 7815 | 10년 전 | 568 | ||
| 7814 | 10년 전 | 393 | ||
| 7813 | 10년 전 | 338 | ||
| 7812 | 10년 전 | 348 | ||
| 7811 | 10년 전 | 365 | ||
| 7810 | 10년 전 | 499 | ||
| 7809 | 10년 전 | 439 | ||
| 7808 | 10년 전 | 308 | ||
| 7807 | 10년 전 | 365 | ||
| 7806 |
프로그래머7
|
10년 전 | 1309 | |
| 7805 | 10년 전 | 1230 | ||
| 7804 |
zahir1312
|
10년 전 | 747 | |
| 7803 |
|
10년 전 | 1348 | |
| 7802 | 10년 전 | 408 | ||
| 7801 | 10년 전 | 834 | ||
| 7800 | 10년 전 | 1059 | ||
| 7799 | 10년 전 | 508 | ||
| 7798 | 10년 전 | 462 | ||
| 7797 | 10년 전 | 457 | ||
| 7796 | 10년 전 | 304 | ||
| 7795 | 10년 전 | 457 | ||
| 7794 | 10년 전 | 485 | ||
| 7793 | 10년 전 | 1005 | ||
| 7792 | 10년 전 | 411 | ||
| 7791 | 10년 전 | 495 | ||
| 7790 | 10년 전 | 461 | ||
| 7789 |
fbastore
|
10년 전 | 1406 | |
| 7788 | 10년 전 | 495 | ||
| 7787 | 10년 전 | 358 | ||
| 7786 | 10년 전 | 512 | ||
| 7785 | 10년 전 | 533 | ||
| 7784 | 10년 전 | 597 | ||
| 7783 | 10년 전 | 400 | ||
| 7782 | 10년 전 | 449 | ||
| 7781 | 10년 전 | 861 | ||
| 7780 | 10년 전 | 783 | ||
| 7779 | 10년 전 | 752 | ||
| 7778 | 10년 전 | 319 | ||
| 7777 | 10년 전 | 406 | ||
| 7776 | 10년 전 | 410 | ||
| 7775 | 10년 전 | 345 | ||
| 7774 | 10년 전 | 604 | ||
| 7773 | 10년 전 | 332 | ||
| 7772 | 10년 전 | 671 | ||
| 7771 | 10년 전 | 333 | ||
| 7770 | 10년 전 | 616 | ||
| 7769 | 10년 전 | 335 | ||
| 7768 | 10년 전 | 549 | ||
| 7767 | 10년 전 | 1121 | ||
| 7766 | 10년 전 | 445 | ||
| 7765 | 10년 전 | 483 | ||
| 7764 |
잘살아보자
|
10년 전 | 329 | |
| 7763 |
|
10년 전 | 1403 | |
| 7762 |
Tosea
|
10년 전 | 1022 | |
| 7761 | 10년 전 | 614 | ||
| 7760 |
잘살아보자
|
10년 전 | 610 | |
| 7759 |
잘살아보자
|
10년 전 | 431 | |
| 7758 |
잘살아보자
|
10년 전 | 539 | |
| 7757 | 10년 전 | 1187 | ||
| 7756 |
ITBANK
|
10년 전 | 1220 | |
| 7755 | 10년 전 | 1899 | ||
| 7754 | 10년 전 | 1004 | ||
| 7753 | 10년 전 | 846 | ||
| 7752 | 10년 전 | 1351 | ||
| 7751 |
잘살아보자
|
10년 전 | 477 | |
| 7750 |
잘살아보자
|
10년 전 | 443 | |
| 7749 |
잘살아보자
|
10년 전 | 444 | |
| 7748 |
잘살아보자
|
10년 전 | 424 | |
| 7747 |
잘살아보자
|
10년 전 | 519 | |
| 7746 |
잘살아보자
|
10년 전 | 638 | |
| 7745 |
잘살아보자
|
10년 전 | 880 | |
| 7744 |
잘살아보자
|
10년 전 | 393 | |
| 7743 | 10년 전 | 913 | ||
| 7742 |
starbros
|
10년 전 | 791 | |
| 7741 |
잘살아보자
|
10년 전 | 616 | |
| 7740 |
잘살아보자
|
10년 전 | 482 | |
| 7739 |
잘살아보자
|
10년 전 | 440 | |
| 7738 |
잘살아보자
|
10년 전 | 493 | |
| 7737 |
잘살아보자
|
10년 전 | 452 | |
| 7736 |
잘살아보자
|
10년 전 | 473 | |
| 7735 |
잘살아보자
|
10년 전 | 807 | |
| 7734 |
잘살아보자
|
10년 전 | 404 | |
| 7733 |
잘살아보자
|
10년 전 | 500 | |
| 7732 |
잘살아보자
|
10년 전 | 655 | |
| 7731 |
잘살아보자
|
10년 전 | 583 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기