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
teknohaber.com scripti
<?
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;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF8">
<TITLE>Teknoloji Haberleri - Sony,Hp,Yazılım,Symantec,Intel,Microsoft,Linux,Google,Borland,Laptop,Playstation</TITLE>
<STYLE>
<!--
body,p,div,span,marquee,td{font-family:Tahoma,Verdana;font-size:12px;}
a:hover{color:#FF6600}
a{color:#000066}
h1{font-family:Tahoma,Verdana;font-size:12px;}
-->
</STYLE>
</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> 
