<?
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개
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요
소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....
그럼수고하세요 ~~~
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 630 | 19년 전 | 2361 | ||
| 629 |
|
19년 전 | 2020 | |
| 628 |
|
19년 전 | 3136 | |
| 627 |
|
19년 전 | 2035 | |
| 626 |
|
19년 전 | 2069 | |
| 625 |
|
19년 전 | 1727 | |
| 624 |
|
19년 전 | 2239 | |
| 623 | 19년 전 | 2209 | ||
| 622 |
|
19년 전 | 2516 | |
| 621 |
|
19년 전 | 2925 | |
| 620 |
|
19년 전 | 2418 | |
| 619 | 19년 전 | 2485 | ||
| 618 | 19년 전 | 3518 | ||
| 617 |
|
19년 전 | 3240 | |
| 616 |
|
19년 전 | 3230 | |
| 615 |
|
19년 전 | 3052 | |
| 614 |
|
19년 전 | 2051 | |
| 613 |
|
19년 전 | 2388 | |
| 612 |
|
19년 전 | 2245 | |
| 611 |
|
19년 전 | 2092 | |
| 610 |
|
19년 전 | 2525 | |
| 609 |
|
19년 전 | 2434 | |
| 608 |
|
19년 전 | 2823 | |
| 607 | 19년 전 | 2198 | ||
| 606 | 19년 전 | 3543 | ||
| 605 | 19년 전 | 1998 | ||
| 604 | 19년 전 | 2615 | ||
| 603 | 19년 전 | 1622 | ||
| 602 |
|
19년 전 | 2846 | |
| 601 | 19년 전 | 3076 | ||
| 600 |
|
19년 전 | 2157 | |
| 599 | 19년 전 | 2006 | ||
| 598 | 19년 전 | 2492 | ||
| 597 | 19년 전 | 2396 | ||
| 596 |
|
19년 전 | 3082 | |
| 595 |
|
19년 전 | 6766 | |
| 594 | 19년 전 | 2717 | ||
| 593 | 19년 전 | 3193 | ||
| 592 |
|
19년 전 | 3097 | |
| 591 |
|
19년 전 | 1943 | |
| 590 | 19년 전 | 3372 | ||
| 589 | 19년 전 | 2217 | ||
| 588 |
|
19년 전 | 2708 | |
| 587 | 19년 전 | 2350 | ||
| 586 |
|
19년 전 | 4371 | |
| 585 | 19년 전 | 2499 | ||
| 584 | 19년 전 | 2771 | ||
| 583 |
|
19년 전 | 3536 | |
| 582 |
|
19년 전 | 3728 | |
| 581 |
|
19년 전 | 3263 | |
| 580 | 19년 전 | 2490 | ||
| 579 | 19년 전 | 3085 | ||
| 578 | 19년 전 | 3994 | ||
| 577 | 19년 전 | 3828 | ||
| 576 | 19년 전 | 1766 | ||
| 575 |
|
19년 전 | 2226 | |
| 574 |
|
19년 전 | 5407 | |
| 573 | 19년 전 | 6735 | ||
| 572 | 19년 전 | 2578 | ||
| 571 | 19년 전 | 2117 | ||
| 570 | 19년 전 | 2605 | ||
| 569 | 19년 전 | 3315 | ||
| 568 | 19년 전 | 3542 | ||
| 567 | 19년 전 | 2988 | ||
| 566 | 19년 전 | 2608 | ||
| 565 |
|
19년 전 | 4729 | |
| 564 |
|
19년 전 | 6738 | |
| 563 |
|
19년 전 | 5017 | |
| 562 |
|
19년 전 | 5961 | |
| 561 |
|
19년 전 | 2709 | |
| 560 |
|
19년 전 | 2563 | |
| 559 |
|
19년 전 | 2229 | |
| 558 |
|
19년 전 | 2308 | |
| 557 | 19년 전 | 4597 | ||
| 556 |
|
19년 전 | 4673 | |
| 555 | 19년 전 | 2517 | ||
| 554 | 19년 전 | 2182 | ||
| 553 | 19년 전 | 2530 | ||
| 552 |
|
19년 전 | 3175 | |
| 551 | 19년 전 | 2949 | ||
| 550 |
|
19년 전 | 1905 | |
| 549 |
|
19년 전 | 1966 | |
| 548 |
|
19년 전 | 3156 | |
| 547 |
|
19년 전 | 2358 | |
| 546 |
|
19년 전 | 3630 | |
| 545 |
|
19년 전 | 2562 | |
| 544 |
|
19년 전 | 1860 | |
| 543 |
|
19년 전 | 2461 | |
| 542 |
|
19년 전 | 1733 | |
| 541 |
|
19년 전 | 1416 | |
| 540 |
|
19년 전 | 1557 | |
| 539 |
|
19년 전 | 1809 | |
| 538 |
|
19년 전 | 1592 | |
| 537 |
|
19년 전 | 1797 | |
| 536 |
|
19년 전 | 1569 | |
| 535 |
|
19년 전 | 1962 | |
| 534 |
|
19년 전 | 1853 | |
| 533 |
|
19년 전 | 1458 | |
| 532 |
|
19년 전 | 1449 | |
| 531 |
|
19년 전 | 1369 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기