Şimdi Ara

SAYFADAN KOD ALMA???

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
3
Cevap
0
Favori
461
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar ben mynet in ana sayfasındaki döviz kurlarının kodunu bulmaya çalışıyorum ama bulamadım..
    bana yardımcı olabilir misiniz??



  • www.aspindir.com da bir çok kod var bu konuda.
    www.jsindir.com aynı şekilde
  • quote:

    Orjinalden alıntı: Massacre

    www.aspindir.com da bir çok kod var bu konuda.
    www.jsindir.com aynı şekilde

    <%
    Public Function VeriAl(strGelen)
    Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
    objVeriAl.Open "GET" , strGelen, FALSE
    objVeriAl.sEnd
    VeriAl = objVeriAl.Responsetext
    SET objVeriAl = Nothing
    End Function

    strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
    strVeri = VeriAL(strAdres)
    iDolar=InStr(strVeri,"USD" )
    strDolarAlis=Mid(strVeri,iDolar+39,10)
    strDolarSatis=Mid(strVeri,iDolar+52,10)

    iEuro=InStr(strVeri,"EUR" )

    strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis
    strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis
    %>
    çok saol ama sitede döviz için bu kodları buldum ama kullanamıyorum....bu konuda bi bilgin var mı??




  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.