wmismail Posted November 15, 2007 Share Posted November 15, 2007 Güle güle kullanın ! <%Public Function VeriAl(strGelen)Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )objVeriAl.Open "GET" , strGelen, FALSEobjVeriAl.sEndVeriAl = objVeriAl.ResponsetextSET objVeriAl = NothingEnd FunctionstrAdres = "http://www.tcmb.gov.tr/kurlar/today.html"strVeri = VeriAL(strAdres)iDolar=InStr(strVeri,"USD" )strDolarAlis=Mid(strVeri,iDolar+50,10)strDolarSatis=Mid(strVeri,iDolar+51,10)iEuro=InStr(strVeri,"EUR" )strEuroAlis=Mid(strVeri,iEuro+38,11) 'alisstrEuroSatis=Mid(strVeri,iEuro+50,11) 'satis%><style type="text/css"><!--.doeviz {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}.style2 { color: #595162; font-weight: bold;}--></style><table width="166" height="166" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="214" height="28" background="Images/UstBugun.gif"><!--DWLayoutEmptyCell--> </td> </tr> <tr> <td height="119" background="Images/Orta.gif"> <div align="left"> <table width="90%" border="0" align="center" cellspacing="1" bgcolor="#EFEFEF"> <tr> <td height="28" valign="top" bgcolor="#FFFFFF"><div align="center" class="style2"><font face="Verdana"><font style="font-size: 8pt">MERKEZ BANKASI<br> DÖVIZ KURLARI</font></font></div></td> </tr> </table> <table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFEFEF"> <tr> <td colspan="2" bgcolor="#FFFFFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">DOLAR</font></b></font></strong></td> </tr> <tr> <td nowrap bgcolor="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIS</font></td> <td width="100%" bgcolor="#FFFFFF" class="doeviz"><div align="left"> <p align="right"> <font color="#333333" face="verdana"><%=strdolaralis%> YTL </font> </div></td> </tr> <tr> <td nowrap bgcolor="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIS</font></td> <td width="100%" bgcolor="#FFFFFF" class="doeviz"><div align="left"> <p align="right"> <font color="#333333" face="verdana"><%=strdolarsatis%> YTL </font> </div></td> </tr> </table> <table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFEFEF"> <tr> <td colspan="2" bgcolor="#FFFFFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">EURO</font></b></font></strong></td> </tr> <tr> <td nowrap bgcolor="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIS</font></td> <td width="100%" bgcolor="#FFFFFF" class="doeviz"><p align="right"><font color="#333333"><font face="verdana"> <%=streuroalis%> YTL </font></font> </td> </tr> <tr> <td nowrap bgcolor="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIS</font></td> <td width="100%" bgcolor="#FFFFFF" class="doeviz"><p align="right"><font color="#333333"><font face="verdana"><%=streurosatis%> YTL</font></font> </td> </tr> </table> </div> </tr> <tr> <td background="Images/Alt.gif"> </td> </tr></table>[/CODE] Link to comment Share on other sites More sharing options...
kontra Posted November 15, 2007 Share Posted November 15, 2007 tnctr ye de bi kenara bunu ekleseler güzel olurdu Link to comment Share on other sites More sharing options...
wmismail Posted November 15, 2007 Author Share Posted November 15, 2007 Walla buna ben yetkili olsam koyardım ama yöneticilere kalmış. Sitenin bir yerine değil de bu youtube indir link kısatl filan olan yere kurlar diye açılıp yapılabilir. Sadece notepad a bunları yapıştırıp kaydedip hosta atılacak. Zor bişi diil Link to comment Share on other sites More sharing options...
exit Posted November 15, 2007 Share Posted November 15, 2007 Evet guzel olur ama buna benzer cok sey var ve ahngi birini koyalim.. Isimiz disinda birsey ama guzel dusunulmus Link to comment Share on other sites More sharing options...
esaka Posted November 15, 2007 Share Posted November 15, 2007 php site yapımlarından anlıyorsun herhalde yardımcı olabilirmisin ama pm aracılıgı ile Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted November 16, 2007 Administrator Share Posted November 16, 2007 php site yapımlarından anlıyorsun herhalde yardımcı olabilirmisin ama pm aracılıgı ile Php değil bu ASP. Bizde çalışmaz. Link to comment Share on other sites More sharing options...
wmismail Posted November 16, 2007 Author Share Posted November 16, 2007 Koyacaksanız PHP de kodlarız ya Link to comment Share on other sites More sharing options...
wmismail Posted November 16, 2007 Author Share Posted November 16, 2007 Php değil bu ASP. Bizde çalışmaz. <?function KurGoster(){$dolar = "USD 1";$mark = "EUR 1";$dosya=file("http://www.tcmb.gov.tr/kurlar/today.html?");for ($i=0; $i<sizeof($dosya); $i++){if(ereg($dolar, $dosya[$i])) {$alanlar = split("[[:space:]]+" , $dosya[$i]);echo "<tr><td><b><font face=tahoma size=1>Dolar</b></td><td align=right><fontface=tahoma size=1>".$alanlar[4]."</td><td align=right><font face=tahomasize=1>".$alanlar[5]."</td></tr>";}if(ereg($mark, $dosya[$i])) {$alanlar = split("[[:space:]]+" , $dosya[$i]);echo "<tr><td><b><font face=tahoma size=1>Euro</b></td><td align=right><fontface=tahoma size=1>".$alanlar[3]."</td><td align=right><font face=tahomasize=1>".$alanlar[4]."</td></tr>";}}}?><table border=1><tr><td><b><font face=tahoma size=1>Doviz</td><td><b><font face=tahoma size=1>DovizAlis</td><td><b><font face=tahoma size=1>Doviz Sats</td></tr><?echo KurGoster()?></table>[/CODE] Bizde kod tükenmez : ))))))))))))))))))) Link to comment Share on other sites More sharing options...
cumman Posted November 16, 2007 Share Posted November 16, 2007 döviz kuruyla tnctr nin bir bağıntısı yok. biz fazlalıklardan kurtulmaya çalışıyoruz. amacımız sadece bilginin ve az sohbetin olduğu forumlar. Döviz kurlarını ana sayfada görmek yerine döviz kurlarının kodlarını forumlarda tartışalım. Link to comment Share on other sites More sharing options...
TECHNOLOG41 Posted April 30, 2009 Share Posted April 30, 2009 bunları flasha eklememiz mümkün mü? Link to comment Share on other sites More sharing options...
wmismail Posted May 9, 2009 Author Share Posted May 9, 2009 ne alaka flash ? Burdan alıp XML le flasha gömebilirim de ne için lazım ? Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.