<?
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개
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요
소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....
그럼수고하세요 ~~~
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 330 |
prosper
|
20년 전 | 2282 | |
| 329 |
prosper
|
20년 전 | 1905 | |
| 328 |
prosper
|
20년 전 | 1702 | |
| 327 | 20년 전 | 3767 | ||
| 326 | 20년 전 | 4857 | ||
| 325 |
hwatta
|
20년 전 | 2483 | |
| 324 |
|
20년 전 | 3145 | |
| 323 | 20년 전 | 5864 | ||
| 322 |
hwatta
|
20년 전 | 2850 | |
| 321 |
hwatta
|
20년 전 | 2323 | |
| 320 |
yesmoa
|
20년 전 | 4573 | |
| 319 | 20년 전 | 2691 | ||
| 318 | 20년 전 | 2241 | ||
| 317 |
kyodon
|
20년 전 | 2761 | |
| 316 | 20년 전 | 2582 | ||
| 315 |
|
20년 전 | 2883 | |
| 314 |
|
20년 전 | 3344 | |
| 313 |
|
20년 전 | 2648 | |
| 312 |
yesmoa
|
20년 전 | 4722 | |
| 311 | 20년 전 | 3273 | ||
| 310 |
홀로남은자
|
20년 전 | 4569 | |
| 309 | 20년 전 | 3007 | ||
| 308 | 20년 전 | 4135 | ||
| 307 | 20년 전 | 4374 | ||
| 306 | 20년 전 | 7039 | ||
| 305 | 20년 전 | 3872 | ||
| 304 | 20년 전 | 2772 | ||
| 303 |
크리스탈처럼
|
20년 전 | 4406 | |
| 302 | 20년 전 | 2208 | ||
| 301 |
|
20년 전 | 4325 | |
| 300 | 20년 전 | 3810 | ||
| 299 | 20년 전 | 2621 | ||
| 298 | 20년 전 | 4834 | ||
| 297 |
|
20년 전 | 2531 | |
| 296 | 20년 전 | 4533 | ||
| 295 | 20년 전 | 3571 | ||
| 294 | 20년 전 | 3593 | ||
| 293 | 20년 전 | 3819 | ||
| 292 | 20년 전 | 3213 | ||
| 291 |
yesmoa
|
20년 전 | 5943 | |
| 290 | 20년 전 | 2940 | ||
| 289 | 20년 전 | 5863 | ||
| 288 |
|
20년 전 | 2380 | |
| 287 |
|
20년 전 | 1809 | |
| 286 |
|
20년 전 | 2150 | |
| 285 |
|
20년 전 | 3541 | |
| 284 |
|
20년 전 | 2039 | |
| 283 |
|
20년 전 | 4403 | |
| 282 | 20년 전 | 3381 | ||
| 281 |
|
20년 전 | 2214 | |
| 280 |
|
20년 전 | 7809 | |
| 279 | 20년 전 | 5559 | ||
| 278 | 20년 전 | 2998 | ||
| 277 |
|
20년 전 | 5572 | |
| 276 | 20년 전 | 2363 | ||
| 275 | 20년 전 | 2608 | ||
| 274 | 20년 전 | 2393 | ||
| 273 | 20년 전 | 2221 | ||
| 272 | 20년 전 | 2153 | ||
| 271 | 20년 전 | 2613 | ||
| 270 | 20년 전 | 2641 | ||
| 269 | 20년 전 | 2488 | ||
| 268 | 20년 전 | 2694 | ||
| 267 | 20년 전 | 2376 | ||
| 266 | 20년 전 | 2570 | ||
| 265 | 20년 전 | 3514 | ||
| 264 |
|
20년 전 | 5370 | |
| 263 |
|
20년 전 | 3733 | |
| 262 | 20년 전 | 3192 | ||
| 261 |
허저비
|
20년 전 | 5939 | |
| 260 |
|
20년 전 | 5721 | |
| 259 | 20년 전 | 4144 | ||
| 258 | 20년 전 | 2379 | ||
| 257 | 20년 전 | 3197 | ||
| 256 | 20년 전 | 1913 | ||
| 255 | 20년 전 | 1578 | ||
| 254 | 20년 전 | 3154 | ||
| 253 | 20년 전 | 3549 | ||
| 252 | 20년 전 | 5129 | ||
| 251 | 20년 전 | 5819 | ||
| 250 | 20년 전 | 3679 | ||
| 249 | 20년 전 | 5027 | ||
| 248 | 20년 전 | 3293 | ||
| 247 | 20년 전 | 3647 | ||
| 246 |
|
20년 전 | 7962 | |
| 245 |
|
20년 전 | 5914 | |
| 244 | 20년 전 | 4495 | ||
| 243 |
|
20년 전 | 4067 | |
| 242 | 20년 전 | 2797 | ||
| 241 | 20년 전 | 2742 | ||
| 240 | 20년 전 | 2378 | ||
| 239 | 20년 전 | 1670 | ||
| 238 |
아우겐나이스
|
20년 전 | 2276 | |
| 237 |
email
|
20년 전 | 3694 | |
| 236 | 20년 전 | 4168 | ||
| 235 | 20년 전 | 10470 | ||
| 234 | 20년 전 | 5078 | ||
| 233 | 20년 전 | 3380 | ||
| 232 | 20년 전 | 3219 | ||
| 231 | 20년 전 | 3855 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기