Mach1 Digital Community

Geri Git   Mach1 Digital Community > İnternet - Bilgisayar - Multimedia > Webmaster > ASP
 

Forum içerisinde "Digiturk, D-Smart" gibi Yerli Platformları kapsayan, bunlarla ilgili "Kart paylaşım (Card Sharing), Iptv adresi , Key, Şifre, Dosya" içerikli her türlü açık alanda yazışma yasaktır ! Tespiti durumunda ilgili kişiler forumdan süresiz uzaklaştırılacaktır ve talep durumunda resmi mercilere bilgileri verilebilecektir lütfen bu konularda kurallara uyalım.
** SERVER ÜYELİK SÜRELERİ BİTENLER KAPATILDI YENİLEMEK İÇİN ÖZEL MESAJ ATIN** Cccam Özel Pay Server Hakkında Üyelik ve bilgi almak için buraya tıklayarak özel mesaj atabilirsiniz...Üyeliklerini yenileyen ve yeni üyelere artık 2-3 farklı CCcam server verilmektedir..
** IPTV+ CCcam Server Hakkında Üyelik ve bilgi almak için** buraya tıklayarak özel mesaj atabilirsiniz...
 
 
160929_wetekplay2_knowmore.gif

   

   

Eski 08-02-2007, 17:41   #1
the_maniac
Katılımcı Üye
 
the_maniac kullanıcısının avatarı
 
Mesaj: 340
Üye No: 41842
Giriş: 16-01-2007

Uydu Alıcısı: GoldMaster 1050HD | Dreambox 600PVR

Thanks: 0
Thanked 0 Times in 0 Posts
Varsayılan tcmb güncel döviz bilgisi almak için--->

arkadaşlar kodlar aşağıda verilmiştir.herkese ii çalışmalar.






<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<%
'---------------------------------------------------------------
'Bu programı istediğiniz gibi değiştirip kullanabilirsiniz...
'Herhangi bir sorunda rower@best.dyns.net adresinden ulaşabilirsiniz.
'By RoWeR & Aycilli 2002
'----------------------------------------------------------------
On Error Resume Next
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
objXmlHttp.open "GET", "http://www.tcmb.gov.tr/kurlar/today.html", False
objXmlHttp.send
'Hata oluşursa sebebini yazdırıyoruz...
if Err <> 0 then
Response.Write "<Center><font face=""Verdana"" style=""font-size: 9pt""><b>TCMB na bağlanılamadı.<br>"
Response.Write Err.Description & "</b></Font></Center><br>"
end if

strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing

'Html dosyasını sayfa kodu haline dönüştürelim.....
SayfaKodu = Server.HTMLEncode(strHTML)

'Şimdi de aradığımız değerleri bulup sayfadan alalım
yer = Instr(1,SayfaKodu,"ABD DOLARI")

dAlis = Mid(SayfaKodu,yer+57,10)
dSatis = Mid(SayfaKodu,yer+70,10)

yer2 = Instr(1,SayfaKodu,"EURO")

eSatis = Mid(SayfaKodu,yer2+70,10)
eAlis = Mid(SayfaKodu,yer2+57,10)

yer3 = Instr(1,SayfaKodu,"GBP")

iAlis = Mid(SayfaKodu,yer3+98,10)
iSatis = Mid(SayfaKodu,yer3+108,12)


'Ve yazdıralım...


%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
<tr>
<td width="100%" align="center" bgcolor="#000000" height="15"><b>
<font face="Verdana" color="#FFFFFF" style="font-size: 7pt">DÖVİZ</font></b></td>
<td width="100%" align="center" bgcolor="#000000" height="15">&nbsp;</td>
<td width="100%" align="center" bgcolor="#000000" height="15"><b>
<font face="Verdana" color="#FFFFFF" style="font-size: 7pt">ALIŞ</font></b></td>
<td width="10" align="center" bgcolor="#000000" height="15">&nbsp;</td>
<td width="100%" align="center" bgcolor="#000000" height="15"><b>
<font face="Verdana" color="#FFFFFF" style="font-size: 7pt">SATIŞ</font></b></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#6666FF" height="15"><b>
<font face="Verdana" color="#FFFFFF" style="font-size: 7pt">USD</font></b></td>
<td width="100%" align="center" height="15"></td>
<td width="100%" align="center" bgcolor="#008000" height="15"><b>
<font face="Verdana" style="font-size: 7pt">&nbsp;<%=Dalis%></font></b></td>
<td width="10" align="center" height="15"></td>
<td width="100%" align="center" bgcolor="#808080" height="15"><b>
<font face="Verdana" style="font-size: 7pt">&nbsp;<%=Dsatis%></font></b></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#6666FF" height="15"><b>
<font face="Verdana" color="#FFFFFF" style="font-size: 7pt">EURO</font></b></td>
<td width="100%" align="center" height="15"></td>
<td width="100%" align="center" bgcolor="#008000" height="15"><b>
<font face="Verdana" style="font-size: 7pt">&nbsp;<%=Ealis%></font></b></td>
<td width="10" align="center" height="15"></td>
<td width="100%" align="center" bgcolor="#808080" height="15"><b>
<font face="Verdana" style="font-size: 7pt">&nbsp;<%=Esatis%></font></b></td>
</tr>
<tr>
<td width="100%" align="center" bgcolor="#6666FF" height="15"><b>
<font face="Verdana" color="#FFFFFF" style="font-size: 7pt">GBP</font></b></td>
<td width="100%" align="center" height="15"></td>
<td width="100%" align="center" bgcolor="#008000" height="15"><b>
<font face="Verdana" style="font-size: 7pt">&nbsp;<%=Ialis%></font></b></td>
<td width="10" align="center" height="15"></td>
<td width="100%" align="right" bgcolor="#808080" height="15"><b>
<font face="Verdana" style="font-size: 7pt"><%=Isatis%></font></b></td>
</tr>
</table></center>
</div>
________________________________________________________________________________
the_maniac is offline   Alıntı Yaparak Cevapla
Yanıtla

Konu Araçları
Görünüm Modları

Forumdaki Yetkileriniz
Konu açma yetkiniz yok
Konularda cevap yazma yetkiniz yok
Eklenti yükleme yetkiniz yok
Kendi mesajlarınızı düzenleme yetkiniz yok

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı

Hızlı Geçiş



Saat 00:01.


Powered by vBulletin Version 3.8.1
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.