ASP + XML Doviz Bilgileri

Asagida ki verdigim kodlar ile cok rahat sekilde TC Merkez Bankasi'ndan doviz bilgilerini cekebilirsiniz. Kodlarli degistirerek baska sayfalardan baska verileri de cekebilirsiniz tabi..

Ben ornek olarak Dolar, Euro ve Sterlin ekledim..

private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = "http://www.tcmb.gov.tr/kurlar/today.html"
bilgicek = GETHTTP(URL)
a=InStr(1,bilgicek,"USD" )
dolar1=Mid(bilgicek,a+39,10)
dolar2=Mid(bilgicek,a+52,10)
c=InStr(1,bilgicek,"EUR" )
euro1=Mid(bilgicek,c+37,11)
euro2=Mid(bilgicek,c+52,11)
e=InStr(1,bilgicek,"GBP" )
sterlin1=Mid(bilgicek,e+34,11)
sterlin2=Mid(bilgicek,e+47,11)


Kullanimi:
Dolar: <%=dolar1 %> / <%=dolar2 %> YTL
Euro: <%=euro1 %> / <%=euro2 %> YTL
Sterlin: <%=sterlin1 %> / <%=sterlin2 %> YTL


  • personAyberk Atasay
  • calendar_monthMay 28, 2008
  • categoryASP
  • sharepaylaş