İyinet - Webmaster Forumu

Geri Dön   İyinet - Webmaster Forumu > Programlama > ASP .NET > ASP Hazır Kodlar ve ASP Kütüphaneleri

ASP Hazır Kodlar ve ASP Kütüphaneleri ASP Hazır Kodlar / ASP Kütüphane

User Tag List

Cevapla
 
LinkBack Seçenekler
  #1 (permalink)  
Alt 8.03.2008, 22:54
SametE - ait Kullanıcı Resmi (Avatar)
Üye
 
Üyelik tarihi: 7.03.2008
Nereden: Balıkesir
Mesajlar: 154
Standart Asp ile döviz kuru almak

Kod:
<%
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 
%> 

Döviz kurlarının görünmesini istediğiniz yere aşağıdaki kodları yazın.

<%=strdolarsatis%>
<%=streurosatis%>
Alıntı ile Cevapla
Cevapla

Bu Konuyu Paylaşın !

Etiketler
almak , asp , doviz , ile , kuru


Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)
 
Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Forum Saati: 06:22. Zaman dilimi GMT +3 olarak ayarlanmıştır.


Powered by vBulletin™ Version 3.8.7
Copyright © 2018 vBulletin Solutions, Inc. All rights reserved.
Content Relevant URLs by vBSEO

Önemli Bilgi

2002-2018 © İYİNET Lisanslı Bir Markadır Tüm İçerik Hakları Saklıdır ve İzinsiz Kopyalanamaz, Dağıtılamaz.
5651 Sayılı yasaya göre, iyinet webmaster forumunda tüm üyeler yaptıkları paylaşımlardan sorumludur.
Üyelerin mesajlarından doğabilecek sorunlardan forumumuz sorumlu değildir. Şikayetleriniz için Mail aracılığı ile iletişime geçebilirsiniz. Forum Kuralları