<?
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개
신문사 소스글 잘 보았습니다
그런데 어떻게 적용해야 하는지 궁금하네요
소스를 드림위버에 넣어보아도 반응이 전혀 없어서요 ......
그누보드소스에 넣어야 하는지 ...
아니면 어떻게 적용하는건지좀 알으켜 주세요 ....
그럼수고하세요 ~~~
게시판 목록
프로그램
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 |
|---|---|---|---|---|
| 230 | 20년 전 | 2085 | ||
| 229 | 20년 전 | 3146 | ||
| 228 | 20년 전 | 3338 | ||
| 227 | 20년 전 | 2415 | ||
| 226 | 20년 전 | 5494 | ||
| 225 | 20년 전 | 2534 | ||
| 224 | 20년 전 | 2975 | ||
| 223 | 20년 전 | 4212 | ||
| 222 | 20년 전 | 2612 | ||
| 221 | 20년 전 | 2301 | ||
| 220 | 20년 전 | 3687 | ||
| 219 | 20년 전 | 2083 | ||
| 218 | 20년 전 | 3579 | ||
| 217 | 20년 전 | 2490 | ||
| 216 | 20년 전 | 2927 | ||
| 215 | 20년 전 | 2236 | ||
| 214 | 20년 전 | 3348 | ||
| 213 | 20년 전 | 2927 | ||
| 212 | 20년 전 | 3065 | ||
| 211 | 20년 전 | 2153 | ||
| 210 | 20년 전 | 1911 | ||
| 209 | 20년 전 | 2367 | ||
| 208 | 20년 전 | 1995 | ||
| 207 | 20년 전 | 1686 | ||
| 206 | 20년 전 | 1862 | ||
| 205 | 20년 전 | 3958 | ||
| 204 | 20년 전 | 1683 | ||
| 203 | 20년 전 | 2021 | ||
| 202 | 20년 전 | 2363 | ||
| 201 | 20년 전 | 1837 | ||
| 200 | 20년 전 | 2968 | ||
| 199 | 20년 전 | 2012 | ||
| 198 | 20년 전 | 2094 | ||
| 197 | 20년 전 | 3667 | ||
| 196 | 20년 전 | 3003 | ||
| 195 | 20년 전 | 2111 | ||
| 194 | 20년 전 | 10261 | ||
| 193 | 20년 전 | 2259 | ||
| 192 | 20년 전 | 1614 | ||
| 191 | 20년 전 | 2678 | ||
| 190 | 20년 전 | 2299 | ||
| 189 | 20년 전 | 1698 | ||
| 188 | 20년 전 | 1498 | ||
| 187 | 20년 전 | 1921 | ||
| 186 | 20년 전 | 1743 | ||
| 185 | 20년 전 | 1790 | ||
| 184 | 20년 전 | 2373 | ||
| 183 | 20년 전 | 1580 | ||
| 182 | 20년 전 | 1492 | ||
| 181 | 20년 전 | 1634 | ||
| 180 | 20년 전 | 2733 | ||
| 179 | 20년 전 | 1817 | ||
| 178 | 20년 전 | 1865 | ||
| 177 | 20년 전 | 1996 | ||
| 176 | 20년 전 | 1810 | ||
| 175 | 20년 전 | 1878 | ||
| 174 | 20년 전 | 1704 | ||
| 173 | 20년 전 | 2067 | ||
| 172 | 20년 전 | 1792 | ||
| 171 | 20년 전 | 2573 | ||
| 170 | 20년 전 | 2287 | ||
| 169 | 20년 전 | 2565 | ||
| 168 | 20년 전 | 1500 | ||
| 167 | 20년 전 | 1590 | ||
| 166 | 20년 전 | 2168 | ||
| 165 | 20년 전 | 1649 | ||
| 164 | 20년 전 | 3783 | ||
| 163 | 20년 전 | 2683 | ||
| 162 | 20년 전 | 2103 | ||
| 161 | 20년 전 | 2813 | ||
| 160 | 20년 전 | 1747 | ||
| 159 | 20년 전 | 1624 | ||
| 158 | 20년 전 | 2577 | ||
| 157 | 20년 전 | 1504 | ||
| 156 | 20년 전 | 1755 | ||
| 155 | 20년 전 | 3240 | ||
| 154 | 20년 전 | 1914 | ||
| 153 | 20년 전 | 1636 | ||
| 152 | 20년 전 | 4971 | ||
| 151 | 20년 전 | 4589 | ||
| 150 | 20년 전 | 3527 | ||
| 149 | 20년 전 | 3812 | ||
| 148 | 20년 전 | 7095 | ||
| 147 | 20년 전 | 3565 | ||
| 146 | 20년 전 | 2641 | ||
| 145 | 20년 전 | 2632 | ||
| 144 | 20년 전 | 7175 | ||
| 143 | 20년 전 | 4618 | ||
| 142 | 20년 전 | 1909 | ||
| 141 | 20년 전 | 3256 | ||
| 140 | 20년 전 | 1974 | ||
| 139 | 20년 전 | 1594 | ||
| 138 | 20년 전 | 2318 | ||
| 137 | 20년 전 | 1793 | ||
| 136 | 20년 전 | 1464 | ||
| 135 | 20년 전 | 1802 | ||
| 134 | 20년 전 | 2974 | ||
| 133 | 20년 전 | 2459 | ||
| 132 | 20년 전 | 1713 | ||
| 131 | 20년 전 | 1664 |
댓글 작성
댓글을 작성하시려면 로그인이 필요합니다.
로그인하기