<?
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개
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요
소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....
그럼수고하세요 ~~~
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 430 | 19년 전 | 4119 | ||
| 429 | 19년 전 | 3314 | ||
| 428 | 19년 전 | 4137 | ||
| 427 | 19년 전 | 3483 | ||
| 426 | 19년 전 | 3108 | ||
| 425 | 19년 전 | 3413 | ||
| 424 | 19년 전 | 2443 | ||
| 423 | 19년 전 | 2870 | ||
| 422 | 19년 전 | 2358 | ||
| 421 | 19년 전 | 3710 | ||
| 420 | 19년 전 | 4746 | ||
| 419 | 19년 전 | 3816 | ||
| 418 |
|
19년 전 | 1755 | |
| 417 | 19년 전 | 2758 | ||
| 416 | 19년 전 | 2399 | ||
| 415 | 19년 전 | 2612 | ||
| 414 | 19년 전 | 4418 | ||
| 413 |
|
19년 전 | 2615 | |
| 412 | 19년 전 | 3058 | ||
| 411 |
|
19년 전 | 2998 | |
| 410 |
|
19년 전 | 3697 | |
| 409 |
|
19년 전 | 3647 | |
| 408 |
|
19년 전 | 1862 | |
| 407 | 19년 전 | 2238 | ||
| 406 | 19년 전 | 2796 | ||
| 405 | 19년 전 | 2465 | ||
| 404 | 19년 전 | 4317 | ||
| 403 | 19년 전 | 3307 | ||
| 402 |
NeoGenesis
|
19년 전 | 4104 | |
| 401 | 19년 전 | 2615 | ||
| 400 |
|
19년 전 | 2505 | |
| 399 | 19년 전 | 2966 | ||
| 398 | 19년 전 | 2498 | ||
| 397 | 19년 전 | 2789 | ||
| 396 | 19년 전 | 2494 | ||
| 395 | 19년 전 | 3199 | ||
| 394 | 19년 전 | 1739 | ||
| 393 | 19년 전 | 3000 | ||
| 392 | 19년 전 | 2275 | ||
| 391 | 19년 전 | 2185 | ||
| 390 | 19년 전 | 2294 | ||
| 389 | 19년 전 | 2650 | ||
| 388 | 19년 전 | 2195 | ||
| 387 | 19년 전 | 4490 | ||
| 386 |
|
19년 전 | 2697 | |
| 385 |
|
19년 전 | 2497 | |
| 384 | 19년 전 | 3031 | ||
| 383 | 19년 전 | 3066 | ||
| 382 | 19년 전 | 3119 | ||
| 381 |
|
19년 전 | 2642 | |
| 380 |
|
19년 전 | 3029 | |
| 379 | 19년 전 | 2553 | ||
| 378 | 19년 전 | 2218 | ||
| 377 | 19년 전 | 2787 | ||
| 376 | 19년 전 | 2475 | ||
| 375 |
|
19년 전 | 2569 | |
| 374 | 19년 전 | 3827 | ||
| 373 | 19년 전 | 3280 | ||
| 372 | 19년 전 | 5002 | ||
| 371 |
세은아빠2
|
19년 전 | 2422 | |
| 370 | 19년 전 | 4506 | ||
| 369 | 19년 전 | 3111 | ||
| 368 | 19년 전 | 2915 | ||
| 367 | 19년 전 | 3738 | ||
| 366 | 19년 전 | 2665 | ||
| 365 | 19년 전 | 3751 | ||
| 364 | 19년 전 | 4023 | ||
| 363 | 19년 전 | 3454 | ||
| 362 | 19년 전 | 3491 | ||
| 361 | 19년 전 | 4112 | ||
| 360 |
hwatta
|
19년 전 | 2373 | |
| 359 | 19년 전 | 5114 | ||
| 358 | 19년 전 | 3662 | ||
| 357 | 19년 전 | 2611 | ||
| 356 |
sdesign1s
|
20년 전 | 2292 | |
| 355 | 20년 전 | 2768 | ||
| 354 | 20년 전 | 3031 | ||
| 353 | 20년 전 | 2801 | ||
| 352 |
|
20년 전 | 5781 | |
| 351 |
|
20년 전 | 2715 | |
| 350 |
|
20년 전 | 4302 | |
| 349 |
hwatta
|
20년 전 | 2193 | |
| 348 | 20년 전 | 7313 | ||
| 347 | 20년 전 | 2422 | ||
| 346 | 20년 전 | 3512 | ||
| 345 | 20년 전 | 4321 | ||
| 344 | 20년 전 | 2660 | ||
| 343 | 20년 전 | 3929 | ||
| 342 | 20년 전 | 3075 | ||
| 341 | 20년 전 | 4105 | ||
| 340 |
|
20년 전 | 5157 | |
| 339 |
|
20년 전 | 4241 | |
| 338 | 20년 전 | 5885 | ||
| 337 | 20년 전 | 2051 | ||
| 336 |
|
20년 전 | 3333 | |
| 335 |
|
20년 전 | 3552 | |
| 334 |
|
20년 전 | 2948 | |
| 333 |
hwatta
|
20년 전 | 2450 | |
| 332 | 20년 전 | 4664 | ||
| 331 | 20년 전 | 2285 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기