<?
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개
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요
소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....
그럼수고하세요 ~~~
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 7930 | 9년 전 | 380 | ||
| 7929 | 9년 전 | 274 | ||
| 7928 | 9년 전 | 381 | ||
| 7927 | 9년 전 | 304 | ||
| 7926 | 9년 전 | 649 | ||
| 7925 | 9년 전 | 324 | ||
| 7924 | 9년 전 | 296 | ||
| 7923 | 9년 전 | 325 | ||
| 7922 | 9년 전 | 349 | ||
| 7921 | 9년 전 | 379 | ||
| 7920 | 9년 전 | 301 | ||
| 7919 | 9년 전 | 317 | ||
| 7918 | 9년 전 | 478 | ||
| 7917 | 9년 전 | 319 | ||
| 7916 | 9년 전 | 386 | ||
| 7915 | 9년 전 | 376 | ||
| 7914 | 9년 전 | 388 | ||
| 7913 | 9년 전 | 512 | ||
| 7912 | 9년 전 | 387 | ||
| 7911 | 9년 전 | 335 | ||
| 7910 | 9년 전 | 372 | ||
| 7909 | 9년 전 | 476 | ||
| 7908 | 9년 전 | 377 | ||
| 7907 | 9년 전 | 332 | ||
| 7906 | 9년 전 | 347 | ||
| 7905 | 9년 전 | 336 | ||
| 7904 | 9년 전 | 310 | ||
| 7903 | 9년 전 | 311 | ||
| 7902 | 9년 전 | 523 | ||
| 7901 |
|
9년 전 | 720 | |
| 7900 | 9년 전 | 548 | ||
| 7899 | 9년 전 | 352 | ||
| 7898 | 9년 전 | 345 | ||
| 7897 | 9년 전 | 302 | ||
| 7896 | 9년 전 | 329 | ||
| 7895 | 9년 전 | 433 | ||
| 7894 | 9년 전 | 357 | ||
| 7893 | 9년 전 | 295 | ||
| 7892 | 9년 전 | 342 | ||
| 7891 | 9년 전 | 728 | ||
| 7890 | 9년 전 | 1180 | ||
| 7889 | 9년 전 | 738 | ||
| 7888 |
limsy1987
|
9년 전 | 532 | |
| 7887 | 9년 전 | 514 | ||
| 7886 | 9년 전 | 399 | ||
| 7885 | 9년 전 | 372 | ||
| 7884 | 9년 전 | 379 | ||
| 7883 | 9년 전 | 366 | ||
| 7882 | 9년 전 | 385 | ||
| 7881 | 9년 전 | 407 | ||
| 7880 | 9년 전 | 530 | ||
| 7879 | 9년 전 | 426 | ||
| 7878 | 9년 전 | 1169 | ||
| 7877 | 9년 전 | 717 | ||
| 7876 | 9년 전 | 446 | ||
| 7875 | 9년 전 | 519 | ||
| 7874 |
|
9년 전 | 786 | |
| 7873 | 9년 전 | 486 | ||
| 7872 | 9년 전 | 626 | ||
| 7871 | 9년 전 | 454 | ||
| 7870 | 9년 전 | 581 | ||
| 7869 | 9년 전 | 397 | ||
| 7868 | 9년 전 | 394 | ||
| 7867 | 9년 전 | 391 | ||
| 7866 | 9년 전 | 454 | ||
| 7865 | 9년 전 | 410 | ||
| 7864 | 9년 전 | 475 | ||
| 7863 | 9년 전 | 465 | ||
| 7862 | 9년 전 | 441 | ||
| 7861 | 9년 전 | 599 | ||
| 7860 | 9년 전 | 598 | ||
| 7859 | 9년 전 | 375 | ||
| 7858 | 9년 전 | 679 | ||
| 7857 | 9년 전 | 1033 | ||
| 7856 | 9년 전 | 493 | ||
| 7855 | 9년 전 | 712 | ||
| 7854 | 9년 전 | 703 | ||
| 7853 | 9년 전 | 550 | ||
| 7852 | 9년 전 | 475 | ||
| 7851 | 9년 전 | 456 | ||
| 7850 | 9년 전 | 554 | ||
| 7849 | 9년 전 | 327 | ||
| 7848 | 9년 전 | 378 | ||
| 7847 | 9년 전 | 598 | ||
| 7846 | 9년 전 | 419 | ||
| 7845 | 9년 전 | 377 | ||
| 7844 | 9년 전 | 370 | ||
| 7843 | 9년 전 | 383 | ||
| 7842 | 9년 전 | 372 | ||
| 7841 | 9년 전 | 358 | ||
| 7840 | 9년 전 | 367 | ||
| 7839 | 9년 전 | 405 | ||
| 7838 | 9년 전 | 487 | ||
| 7837 | 9년 전 | 332 | ||
| 7836 | 9년 전 | 368 | ||
| 7835 | 9년 전 | 448 | ||
| 7834 |
|
9년 전 | 1176 | |
| 7833 | 9년 전 | 388 | ||
| 7832 | 9년 전 | 388 | ||
| 7831 | 9년 전 | 520 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기