İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

teknohaber.com scripti.. (RSS okuma)

E

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
teknohaber.com kodu -ücretsiz- (RSS okuma)

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
 
E

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
PHP: 
<?
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> </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> </TD>
</TR>
<TR BGCOLOR="#FFFFFF">
 <TD> </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> </TD>
</TR>
<TR BGCOLOR="#FFFFFF">
 <TD> </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> </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>
 
M

mk++

0
İyinet Üyesi
Katılım
25 Mart 2006
Mesajlar
2,060
Reaction score
0
Konum
15784 USA
iyi dusunce ama firefox a gorede ayarla bence dıl sorunları var
 
E

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
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..
 
M

mk++

0
İyinet Üyesi
Katılım
25 Mart 2006
Mesajlar
2,060
Reaction score
0
Konum
15784 USA
teknohaber.com dostum ben yaparım senın sıten bozuk gosterıyor ondan soledım
 
E

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
teknohaber.com sitesini devrettik. şu anda bizde değil. teşekkürler ilginden dolayı :)
 
E

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
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
 
K

KaRaKTeR

0
İyinet Üyesi
Katılım
6 Temmuz 2004
Mesajlar
1,920
Reaction score
36
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>
 
H

hengame

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

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
hengame' Alıntı:
bunu şöyle yapamazmıyız tek haber kendi sitemd internethaberi.net gibi
Genişletmek için tıkla ...

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.
 
H

hengame

Misafir
ejder haber sitesi yapıorumda dediğin gibi yapıoprum tüm haberi nasıl göstereceğim sadece spot haber çıkıor yardımcı olurmusun
 
E

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
hengame' Alıntı:
ejder haber sitesi yapıorumda dediğin gibi yapıoprum tüm haberi nasıl göstereceğim sadece spot haber çıkıor yardımcı olurmusun
Genişletmek için tıkla ...

tüm haberi kaynaklar paylaşmıyor, zaten etik ve yasal bir davranış değil haberin tamamını siteye eklemek
 
B

blink

0
İyinet Üyesi
Katılım
20 Mart 2006
Mesajlar
1,246
Reaction score
1
Peki her hangi bir kaynaktan sadece spor haberlerini alabilirmiyiz? PHP ile? Daha doğrusu alındığını biliyorum da gerekli kod lazım ;)
 
E

ejder

0
İyinet Üyesi
Katılım
10 Kasım 2003
Mesajlar
0
Reaction score
4
Konum
istanbul
güzel olmuş :) Başka RSS kaynaklarını da yazarsanız aslında güzel bir birikim olabilir burada..
 
C

Caesar

0
İyinet Üyesi
Katılım
5 Haziran 2006
Mesajlar
1,894
Reaction score
7
Paylaşımınız güzel tebrik ediyorum ama
PHP: 
if (!($fp = fopen($dosya, "r"))) {
die("XMLi açamadım");
}

yerine
PHP: 
$fp = @fopen($dosya, "r") or die("Açılamadı");
demek daha mantıklıdır. Zaten bu bu şekilde koşul olacaktır. ayrıyetten if'in içine koymaya gerek yok.
 
Cevap yazmak için giriş yap yada kayıt ol.

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Üst