teknohaber.com scripti.. (RSS okuma)

**ejder** · #1 (**permalink**) 2007-01-16, 12:01

Selamlar,
Türk internetine ufakda olsa katkısı olsun diye kendi yazmış olduğumuz scriptlerin büyük bir kısmını paylaşıma açma kararı aldık. Şayet bu uygulamamız destek görürse diğer sitelerin kodlarını da yavaş yavaş paylaşıma açacağız. Umarız birilerine faydası olur..

Saygılarımla,
Hasan Yaşar

**ejder** · #2 (**permalink**) 2007-01-16, 12:03

PHP- Kodu:


			
<?

function ElemanIsmiyleAl ($xml, $basla, $bitir) {

global $pozisyon;

$baslapos = strpos($xml, $basla);

if ($baslapos === false) {

 return false;

}

$bitirpos = strpos($xml, $bitir);

$bitirpos = $bitirpos+strlen($bitir); 

$pozisyon = $bitirpos;

$bitirpos = $bitirpos-$baslapos;

$bitirpos = $bitirpos - strlen($bitir);

$etiket = substr ($xml, $baslapos, $bitirpos);

$etiket = substr ($etiket, strlen($basla));

return $etiket;

}

?>

<HTML>

<HEAD>

<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF8">

<TITLE>Teknoloji Haberleri</TITLE>

</HEAD>

<BODY BGCOLOR="#666666" TOPMARGIN="10">

<TABLE WIDTH="750"BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0">

<TR>

 <TD WIDTH="6" ALIGN="RIGHT" VALIGN="BOTTOM"><IMG SRC="1.gif" WIDTH="6" HEIGHT="7"></TD>

 <TD BGCOLOR="#FFFFFF"></TD>

 <TD WIDTH="6" VALIGN="BOTTOM"><IMG SRC="2.gif" WIDTH="6" HEIGHT="7"></TD>

</TR>

<TR BGCOLOR="#FFFFFF">

 <TD>&nbsp;</TD>

 <TD><TABLE><?

$dosya = "http://www.herseynet.com/teknohaber/rss.php";

$pozisyon = 0;

$Yumrular = array();

if (!($fp = fopen($dosya, "r"))) {

die("XMLi açamadım");

}

while ($SatirAl = fread($fp, 4096)) {

$veri = $veri . $SatirAl;

}

$say = 0;

$pozisyon = 0;

while ($yumru = ElemanIsmiyleAl($veri, "<item>", "</item>")) {

$Yumrular[$say] = $yumru;

$say++;

$veri = substr($veri, $pozisyon);

}

echo("<TABLE WIDTH=\"100%\"BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"5\">");

for ($i=0; $i<21; $i++) {

$kategori = ElemanIsmiyleAl($Yumrular[$i], "<category>", "</category>");

$baslik = ElemanIsmiyleAl($Yumrular[$i], "<title>", "</title>");

$aciklama = ElemanIsmiyleAl($Yumrular[$i], "<description>", "</description>");

$link = ElemanIsmiyleAl($Yumrular[$i], "<link>", "</link>");

$aciklama = utf8_decode($aciklama);

$baslik = utf8_decode($baslik);

$habersay = 0;

if($baslik != "")

 {

$baslikx = explode("[",$baslik);

$baslik = $baslikx[0];

$bol = explode("?id=",$link);

$resim = "<img src=\"http://www.herseynet.com/teknohaber/image/".$bol[1].".jpg\" border=0>";

if((($i % 2) == 1) AND $i != 2)echo("<tr>");

if($i == 0)

{

 echo("<td align=center width=50% valign=top><IMG SRC=\"teknohaber.gif\" WIDTH=\"289\ HEIGHT=\"44\" alt=\"Tekno Haber 

Logosu\"><br>");

 echo("<A HREF=\"#\" 

onClick=\"this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.teknohaber.com');\">Anasayfa Yap!</a>");

 echo(" | <A HREF=\"javascript:window.external.AddFavorite('http://www.teknohaber.com','Tekno Haber')\">Sık Kullanılanlara 

Ekle!");

 echo("</td><td>");

}

else echo("<td valign=top>");

echo("<table cellpadding=3>");

echo("<tr><TD WIDTH=\"100\" valign=top><a href=\"".$link."\" target=_blank>".$resim."</a></TD><TD valign=top><a 

href=\"".$link."\" target=_blank><h1>".$baslik."</h1></a>".$aciklama."</TD></tr>\n");

echo("</table>");

echo("</td>");

if((($i % 2) == 0) AND $i != 0) echo("</tr>");

if($i == 2)

{

echo("<tr><td colspan=2 align=center valign=top>");

?>

728x90 GOOGLE REKLAMI

<?

echo("</td></tr>");

}

$habersay++;

 }

}

if($habersay == 0)

 echo("<font color=#44aa44>•</font> Haber Bulunamadı<br>");

?></TABLE></TD>

 <TD>&nbsp;</TD>

</TR>

<TR BGCOLOR="#FFFFFF">

 <TD>&nbsp;</TD>

 <TD><TABLE WIDTH="100%"BORDER="0" CELLSPACING="0" CELLPADDING="3">

<TR VALIGN="TOP">

<TD COLSPAN="2">Gittigidiyor Reklam Kodu</TD>

</TR>

<TR VALIGN="TOP">

<TD WIDTH="50%"><TABLE WIDTH="100%"BORDER="0" CELLPADDING="3" CELLSPACING="0" BGCOLOR="#F5FFF0">

 <TR>

<TD BGCOLOR="#339900"><B> <FONT COLOR="#FFFFFF">Ntvmsnbc</FONT></B></TD>

 </TR>

 <TR>

<TD VALIGN="TOP"><?

$dosya = "http://tools.ntvmsnbc.com/rss/tech.xml";

$pozisyon = 0;

$Yumrular = array();

if (!($fp = fopen($dosya, "r"))) {

die("XMLi açamadım");

}

while ($SatirAl = fread($fp, 4096)) {

$veri = $veri . $SatirAl;

}

$say = 0;

$pozisyon = 0;

while ($yumru = ElemanIsmiyleAl($veri, "<item>", "</item>")) {

$Yumrular[$say] = $yumru;

$say++;

$veri = substr($veri, $pozisyon);

}

for ($i=0; $i<10; $i++) {

$kategori = ElemanIsmiyleAl($Yumrular[$i], "<category>", "</category>");

$baslik = ElemanIsmiyleAl($Yumrular[$i], "<title>", "</title>");

$aciklama = ElemanIsmiyleAl($Yumrular[$i], "<description>", "</description>");

$link = ElemanIsmiyleAl($Yumrular[$i], "<link>", "</link>");

$habersay = 0;

if($baslik != "")

 {

$baslikx = explode("[",$baslik);

$baslik = $baslikx[0];

echo("<font color=#44aa44>•</font> <a href=\"".$link."\" target=_blank class=news>".$baslik."</a><br>");

$habersay++;

 }

}

if($habersay == 0)

 echo("<font color=#44aa44>•</font> Haber Bulunamadı<br>");

?></TD>

 </TR>

</TABLE></TD>

<TD><TABLE WIDTH="100%"BORDER="0" CELLPADDING="3" CELLSPACING="0" BGCOLOR="#FFF9F0">

 <TR>

<TD BGCOLOR="#FB9700"><FONT COLOR="#FFFFFF"><B> turk.internet.com</B></FONT></TD>

 </TR>

 <TR>

<TD VALIGN="TOP"><?

// Open and read xml file. You can replace this with your xml data.

$dosya = "http://turk.internet.com/rss/guncel.rss";

$pozisyon = 0;

$Yumrular = array();

if (!($fp = fopen($dosya, "r"))) {

die("XMLi açamadım");

}

while ($SatirAl = fread($fp, 4096)) {

$veri = $veri . $SatirAl;

}

$say = 0;

$pozisyon = 0;

// Goes throw XML file and creates an array of all <XML_TAG> tags.

while ($yumru = ElemanIsmiyleAl($veri, "<item>", "</item>")) {

$Yumrular[$say] = $yumru;

$say++;

$veri = substr($veri, $pozisyon);

}

// Gets infomation from tag siblings.

for ($i=0; $i<10; $i++) {

$kategori = ElemanIsmiyleAl($Yumrular[$i], "<category>", "</category>");

$baslik = ElemanIsmiyleAl($Yumrular[$i], "<title>", "</title>");

$aciklama = ElemanIsmiyleAl($Yumrular[$i], "<description>", "</description>");

$link = ElemanIsmiyleAl($Yumrular[$i], "<link>", "</link>");

$habersay = 0;

if($baslik != "")

 {

$baslikx = explode("[",$baslik);

$baslik = $baslikx[0];

echo("<font color=#FB9700>•</font> <a href=\"".$link."\" target=_blank class=news>".$baslik."</a><br>");

$habersay++;

 }

}

if($habersay == 0)

 echo("<font color=#44aa44>•</font> Haber Bulunamadı<br>");

?></TD>

 </TR>

</TABLE></TD>

</TR>

<TR VALIGN="TOP">

<TD><TABLE WIDTH="100%"BORDER="0" CELLPADDING="3" CELLSPACING="0" BGCOLOR="#F2F2FF">

 <TR>

<TD BGCOLOR="#000066"><FONT COLOR="#FFFFFF"><B> mutasyon.net</B></FONT></TD>

 </TR>

 <TR>

<TD VALIGN="TOP"><?

// Open and read xml file. You can replace this with your xml data.

$dosya = "http://www.mutasyon.net/rss/haberler.asp";

$pozisyon = 0;

$Yumrular = array();

if (!($fp = fopen($dosya, "r"))) {

die("XMLi açamadım");

}

while ($SatirAl = fread($fp, 4096)) {

$veri = $veri . $SatirAl;

}

$say = 0;

$pozisyon = 0;

// Goes throw XML file and creates an array of all <XML_TAG> tags.

while ($yumru = ElemanIsmiyleAl($veri, "<item>", "</item>")) {

$Yumrular[$say] = $yumru;

$say++;

$veri = substr($veri, $pozisyon);

}

// Gets infomation from tag siblings.

for ($i=0; $i<10; $i++) {

$kategori = ElemanIsmiyleAl($Yumrular[$i], "<category>", "</category>");

$baslik = ElemanIsmiyleAl($Yumrular[$i], "<title>", "</title>");

$aciklama = ElemanIsmiyleAl($Yumrular[$i], "<description>", "</description>");

$link = ElemanIsmiyleAl($Yumrular[$i], "<link>", "</link>");

$habersay = 0;

if($baslik != "")

 {

$baslikx = explode("[",$baslik);

$baslik = $baslikx[0];

echo("<font color=#000066>•</font> <a href=\"".$link."\" target=_blank class=news>".$baslik."</a><br>");

$habersay++;

 }

}

if($habersay == 0)

 echo("<font color=#44aa44>•</font> Haber Bulunamadı<br>");

?></TD>

 </TR>

</TABLE></TD>

<TD><TABLE WIDTH="100%"BORDER="0" CELLPADDING="3" CELLSPACING="0" BGCOLOR="#FFF4F4">

 <TR>

<TD BGCOLOR="#FF6600"><FONT COLOR="#FFFFFF"><B>English Technolgy News </B></FONT></TD>

 </TR>

 <TR>

<TD VALIGN="TOP"><?

// Open and read xml file. You can replace this with your xml data.

$dosya = "http://rss.news.yahoo.com/rss/tech";

$pozisyon = 0;

$Yumrular = array();

if (!($fp = fopen($dosya, "r"))) {

die("XMLi açamadım");

}

while ($SatirAl = fread($fp, 4096)) {

$veri = $veri . $SatirAl;

}

$say = 0;

$pozisyon = 0;

// Goes throw XML file and creates an array of all <XML_TAG> tags.

while ($yumru = ElemanIsmiyleAl($veri, "<item>", "</item>")) {

$Yumrular[$say] = $yumru;

$say++;

$veri = substr($veri, $pozisyon);

}

// Gets infomation from tag siblings.

for ($i=0; $i<10; $i++) {

$kategori = ElemanIsmiyleAl($Yumrular[$i], "<category>", "</category>");

$baslik = ElemanIsmiyleAl($Yumrular[$i], "<title>", "</title>");

$aciklama = ElemanIsmiyleAl($Yumrular[$i], "<description>", "</description>");

$link = ElemanIsmiyleAl($Yumrular[$i], "<link>", "</link>");

$habersay = 0;

if($baslik != "")

 {

$baslikx = explode("[",$baslik);

$baslik = $baslikx[0];

echo("<font color=#FF6600>•</font> <a href=\"".$link."\" target=_blank class=news>".$baslik."</a><br>");

$habersay++;

 }

}

if($habersay == 0)

 echo("<font color=#FF6600>•</font> Haber Bulunamadı<br>");

?></TD>

 </TR>

</TABLE></TD>

</TR>

 </TABLE></TD>

 <TD>&nbsp;</TD>

</TR>

<TR BGCOLOR="#FFFFFF">

 <TD>&nbsp;</TD>

 <TD ALIGN="CENTER"><A HREF="http://www.linkcenneti.com/gel.php?id=10618" TARGET="_blank"><IMG ALT="Linkcenneti.com" 

SRC="http://www.linkcenneti.com/banner88x33.gif" WIDTH="88" HEIGHT="33" BORDER="0"></A><BR><BR><A 

HREF="http://www.ejder.com.tr"><IMG SRC="powered-by-ejder.gif" WIDTH="124" HEIGHT="20" BORDER="0"></A></TD>

 <TD>&nbsp;</TD>

</TR>

<TR>

 <TD ALIGN="RIGHT" VALIGN="TOP"><IMG SRC="3.gif" WIDTH="6" HEIGHT="7"></TD>

 <TD BGCOLOR="#FFFFFF"></TD>

 <TD WIDTH="7"><IMG SRC="4.gif" WIDTH="7" HEIGHT="6"></TD>

</TR>

</TABLE>

</TD>

</TR>

<TR>

<TD><CENTER>

</CENTER></TD>

</TR>

</TABLE>

</BODY>

</HTML>

**mk++** · #3 (**permalink**) 2007-01-16, 12:03

iyi dusunce ama firefox a gorede ayarla bence dıl sorunları var

**ejder** · #4 (**permalink**) 2007-01-16, 12:13

Kod:

<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF8">

satırının üzerine

Kod:

<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">

eklendiği takdirde problem ortadan kalkacaktır..

**mk++** · #5 (**permalink**) 2007-01-16, 12:37

teknohaber.com dostum ben yaparım senın sıten bozuk gosterıyor ondan soledım

**ejder** · #6 (**permalink**) 2007-01-16, 14:24

teknohaber.com sitesini devrettik. şu anda bizde değil. teşekkürler ilginden dolayı

**ejder** · #7 (**permalink**) 2007-01-16, 19:09

Sitenize bölüm hazırlamak isterseniz bazı rss kaynakları :
http://www.sabah.com.tr/rss/
http://www.zaman.com.tr/webapp-tr/pop-up/rss-xml.jsp
http://dosyalar.hurriyet.com.tr/rss/
http://www.radikal.com.tr/xml.php
http://www.konyalife.com.tr/rss.php
http://www.haberler.com/webmasters/?sayfa=xml
http://www.yenisafak.com.tr/rss/?xml=Anasayfa

Direk Linkler
http://rss.internethaber.com/last_min.xml
http://www.haberturk.com/haberturk.xml
http://sondakika.haber3.com/haber3.rss
http://sondakika.haber7.com/sondakika.rss

**KaRaKTeRiM** · #8 (**permalink**) 2007-01-18, 20:49

Arkadaşlar sadece NTVMSNBC son dakika haberlerini sizin için düzenledim tek blok halinde 7 tanesini aktif ettim isterseniz 10 - 15 -20 kafanıza göre düzenlersiniz, kodlar aşşağıdadır

İyi çalışmalar, Ejder'in katkılarıyla

Kod:

<? 
function ElemanIsmiyleAl ($xml, $basla, $bitir) { 
global $pozisyon; 
$baslapos = strpos($xml, $basla); 
if ($baslapos === false) { 
 return false; 
} 
$bitirpos = strpos($xml, $bitir); 
$bitirpos = $bitirpos+strlen($bitir);  
$pozisyon = $bitirpos; 
$bitirpos = $bitirpos-$baslapos; 
$bitirpos = $bitirpos - strlen($bitir); 
$etiket = substr ($xml, $baslapos, $bitirpos); 
$etiket = substr ($etiket, strlen($basla)); 
return $etiket; 
} 
?> 
<HTML> 
<HEAD> 
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF8"> 
<TITLE>Son Dakika Haberleri</TITLE> 
</HEAD> 
<BODY BGCOLOR="#666666" TOPMARGIN="10"> 
<TABLE WIDTH="750"BORDER="0" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0"> 
<TR> 

 
<TR VALIGN="TOP"> 
<TD WIDTH="50%"><TABLE WIDTH="100%"BORDER="0" CELLPADDING="3" CELLSPACING="0" BGCOLOR="#EEEEEE"> 
 <TR> 
<TD BGCOLOR="#3399FF"><B> <FONT COLOR="#EEEEEE">Son Dakika</FONT></B></TD> 
 </TR> 
 <TR> 
<TD VALIGN="TOP"><? 
$dosya = "http://tools.ntvmsnbc.com/rss/tech.xml"; 
$pozisyon = 0; 
$Yumrular = array(); 
if (!($fp = fopen($dosya, "r"))) { 
die("XMLi açamadım"); 
} 
while ($SatirAl = fread($fp, 4096)) { 
$veri = $veri . $SatirAl; 
} 
$say = 0; 
$pozisyon = 0; 
while ($yumru = ElemanIsmiyleAl($veri, "<item>", "</item>")) { 
$Yumrular[$say] = $yumru; 
$say++; 
$veri = substr($veri, $pozisyon); 
} 
for ($i=0; $i<7; $i++) { 
$kategori = ElemanIsmiyleAl($Yumrular[$i], "<category>", "</category>"); 
$baslik = ElemanIsmiyleAl($Yumrular[$i], "<title>", "</title>"); 
$aciklama = ElemanIsmiyleAl($Yumrular[$i], "<description>", "</description>"); 
$link = ElemanIsmiyleAl($Yumrular[$i], "<link>", "</link>"); 
$habersay = 0; 
if($baslik != "") 
 { 
$baslikx = explode("[",$baslik); 
$baslik = $baslikx[0]; 
echo("<font color=#44aa44>•</font> <a href=\"".$link."\" target=_blank class=news>".$baslik."</a><br>"); 
$habersay++; 
 } 
} 
if($habersay == 0) 
 echo("<font color=#44aa44>•</font> Haber Bulunamadı<br>"); 
?></TD> 
 </TR> 
</TABLE></TD> 


<TR> 
<TD><CENTER> 
</CENTER></TD> 
</TR> 
</TABLE> 
</BODY> 
</HTML>

hengame · #9 (**permalink**) 2007-01-18, 23:31

bunu şöyle yapamazmıyız tek haber kendi sitemd internethaberi.net gibi

**ejder** · #10 (**permalink**) 2007-01-19, 10:01

Alıntı:

hengame´isimli üyeden Alıntı

bunu şöyle yapamazmıyız tek haber kendi sitemd internethaberi.net gibi

istediğiniz şekilde düzenleyebilirsiniz. Fakat ziyaretçi beklediğiniz bir siteyse sürekli başka yerden okutmak yoracaktır. Okutup veritabanına yazdırmanız iyi olacaktır.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
RSS Okuma	Sitebul	Forumda	0	2006-07-05 21:17
Ii Bi E Mail Okuma Sitesi	gurkanilhanfb	Internetten Para	0	2004-08-19 03:57
Access den veri okuma	Anonymous	Java JSP C#	3	2002-08-24 04:59
C tus okuma	Anonymous	Java JSP C#	2	2002-08-23 04:03
directx ile tus okuma	Anonymous	Java JSP C#	0	2002-08-22 06:34