Programalama > ASP


Ort. 0
Puan ver:
<% 
'XMLHTTP Open 
private Function GETHTTP(adres) 
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" ) 
    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) 

'Asagidaki Bölüm "Istanbulluu" Kardesimizin yazdigi Code' dan alinmistir 
'http://www.maxiasp.com/konuu.asp?id=145&durum=aciklama&bolum=ASP%20ve%20Kodlamalar 

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) 
%> 
<style type="text/css"> 
<!-- 
.doeviz {  font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt} 
--> 
</style> 

<table width="210" border="0" cellspacing="0" cellpadding="0" 
class="doeviz"> 
<tr> 
<td width="50">Dollar:</td> 
<td width="50">Alis:</td> 
<td width="80"><%=dolar1 %></td> 
<td width="30">TL</td> 
</tr> 
<tr> 
<td></td> 
</tr> 
<tr> 
<td width="50"> </td> 
<td width="50">Satis:</td> 
<td width="80"><%=dolar2 %></td> 
<td width="30">TL</td> 
</tr> 
</table> 
<br> 
<table width="210" border="0" cellspacing="0" cellpadding="0" 
class="doeviz"> 
<tr> 
<td width="50">Euro:</td> 
<td width="50">Alis:</td> 
<td width="80"><%=euro1 %></td> 
<td width="30">TL</td> 
</tr> 
<tr> 
<td></td> 
</tr> 
<tr> 
<td width="50"> </td> 
<td width="50">Satis:</td> 
<td width="80"><%=euro2 %></td> 
<td width="30">TL</td> 
</tr> 
</table>


Yorumlar                 Yorum Yaz
realalemci (0) Sakıncalı Yorum 19 May 15:26
Bu kod çalışıyor :)
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 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.