Programalama > ASP

Etiketler: asp, ile, döviz, kuru, almak

Ort. 0
Puan ver:
<%
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%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2020 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.