<?
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개
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요
소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....
그럼수고하세요 ~~~
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 8130 | 9년 전 | 486 | ||
| 8129 |
|
9년 전 | 635 | |
| 8128 | 9년 전 | 509 | ||
| 8127 |
|
9년 전 | 572 | |
| 8126 | 9년 전 | 495 | ||
| 8125 | 9년 전 | 757 | ||
| 8124 |
|
9년 전 | 499 | |
| 8123 | 9년 전 | 487 | ||
| 8122 | 9년 전 | 421 | ||
| 8121 | 9년 전 | 523 | ||
| 8120 | 9년 전 | 452 | ||
| 8119 | 9년 전 | 538 | ||
| 8118 |
|
9년 전 | 621 | |
| 8117 |
|
9년 전 | 392 | |
| 8116 |
PASKRAN
|
9년 전 | 461 | |
| 8115 | 9년 전 | 450 | ||
| 8114 |
kiplayer
|
9년 전 | 592 | |
| 8113 | 9년 전 | 431 | ||
| 8112 |
|
9년 전 | 548 | |
| 8111 | 9년 전 | 401 | ||
| 8110 | 9년 전 | 435 | ||
| 8109 | 9년 전 | 350 | ||
| 8108 |
|
9년 전 | 530 | |
| 8107 |
|
9년 전 | 426 | |
| 8106 |
|
9년 전 | 419 | |
| 8105 | 9년 전 | 467 | ||
| 8104 |
|
9년 전 | 422 | |
| 8103 |
|
9년 전 | 419 | |
| 8102 |
|
9년 전 | 381 | |
| 8101 |
snshero
|
9년 전 | 767 | |
| 8100 | 9년 전 | 825 | ||
| 8099 | 9년 전 | 791 | ||
| 8098 | 9년 전 | 702 | ||
| 8097 | 9년 전 | 496 | ||
| 8096 | 9년 전 | 695 | ||
| 8095 | 9년 전 | 826 | ||
| 8094 | 9년 전 | 496 | ||
| 8093 | 9년 전 | 784 | ||
| 8092 | 9년 전 | 746 | ||
| 8091 | 9년 전 | 1135 | ||
| 8090 | 9년 전 | 756 | ||
| 8089 | 9년 전 | 956 | ||
| 8088 | 9년 전 | 627 | ||
| 8087 | 9년 전 | 740 | ||
| 8086 | 9년 전 | 506 | ||
| 8085 | 9년 전 | 475 | ||
| 8084 | 9년 전 | 604 | ||
| 8083 | 9년 전 | 577 | ||
| 8082 | 9년 전 | 745 | ||
| 8081 | 9년 전 | 458 | ||
| 8080 | 9년 전 | 556 | ||
| 8079 | 9년 전 | 504 | ||
| 8078 | 9년 전 | 430 | ||
| 8077 | 9년 전 | 512 | ||
| 8076 | 9년 전 | 396 | ||
| 8075 | 9년 전 | 416 | ||
| 8074 | 9년 전 | 375 | ||
| 8073 | 9년 전 | 431 | ||
| 8072 | 9년 전 | 424 | ||
| 8071 |
o1o111
|
9년 전 | 875 | |
| 8070 | 9년 전 | 386 | ||
| 8069 | 9년 전 | 319 | ||
| 8068 | 9년 전 | 576 | ||
| 8067 | 9년 전 | 382 | ||
| 8066 | 9년 전 | 413 | ||
| 8065 | 9년 전 | 364 | ||
| 8064 | 9년 전 | 346 | ||
| 8063 | 9년 전 | 319 | ||
| 8062 | 9년 전 | 295 | ||
| 8061 | 9년 전 | 341 | ||
| 8060 | 9년 전 | 369 | ||
| 8059 | 9년 전 | 303 | ||
| 8058 | 9년 전 | 236 | ||
| 8057 | 9년 전 | 374 | ||
| 8056 | 9년 전 | 292 | ||
| 8055 | 9년 전 | 336 | ||
| 8054 | 9년 전 | 347 | ||
| 8053 | 9년 전 | 395 | ||
| 8052 | 9년 전 | 279 | ||
| 8051 | 9년 전 | 318 | ||
| 8050 | 9년 전 | 383 | ||
| 8049 | 9년 전 | 310 | ||
| 8048 | 9년 전 | 423 | ||
| 8047 | 9년 전 | 344 | ||
| 8046 | 9년 전 | 280 | ||
| 8045 | 9년 전 | 244 | ||
| 8044 | 9년 전 | 330 | ||
| 8043 | 9년 전 | 266 | ||
| 8042 | 9년 전 | 279 | ||
| 8041 | 9년 전 | 326 | ||
| 8040 | 9년 전 | 253 | ||
| 8039 | 9년 전 | 305 | ||
| 8038 | 9년 전 | 259 | ||
| 8037 | 9년 전 | 386 | ||
| 8036 | 9년 전 | 461 | ||
| 8035 | 9년 전 | 415 | ||
| 8034 | 9년 전 | 379 | ||
| 8033 | 9년 전 | 337 | ||
| 8032 | 9년 전 | 406 | ||
| 8031 | 9년 전 | 331 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기