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)  

  

a=InStr(1,bilgicek,"USD" )  

dolar1=Mid(bilgicek,a+45,10)  
dolar2=Mid(bilgicek,a+60,10) 
  
b=InStr(1,bilgicek,"GBP" )  

sterlin1=Mid(bilgicek,b+35,15)  
sterlin2=Mid(bilgicek,b+50,15)  

c=InStr(1,bilgicek,"EUR" )  

euro1=Mid(bilgicek,c+44,11)  
euro2=Mid(bilgicek,c+59,11)  

d=InStr(1,bilgicek,"USD/EUR" )  

kur1=Mid(bilgicek,d+42,13)  

%>  
<style> 
table {font-family: arial; font-size: 11;} 
a {color: #000000; text-decoration: bold} 
a:hover {color: #FF0000} 
body {font-family: arial; font-size: 11;} 
h2 {color: #000000} 
<!-- 
a{text-decoration:none} 
//--> 
</style> 
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse:  

collapse" bordercolor="#111111" width="131" id="AutoNumber2" height="43"> 
   <tr> 
     <td width="64"  height="20" style="border-left-style:none;  

border-left-width:medium; border-right-style:none;  

border-right-width:medium; border-bottom-style:none;  

border-bottom-width:medium" rowspan="2" valign="top"> 
     <b><font size="1" face="Verdana">Dolar</font></b></td> 
     <td width="67" height="10"><font size="1" face="Verdana"><%=dolar1  

%></td> 
   </tr> 
   <tr> 
     <td width="67" height="10"><font size="1" face="Verdana"><font 

color="#808080"><%=dolar2 %></td> 
   </tr> 
   <tr> 
     <td width="64"  height="20" style="border-style: none; border-width:  

medium" rowspan="2" valign="top"> 
     <b><font size="1" face="Verdana">Euro</font></b></td> 
     <td width="67" height="10"><font size="1" face="Verdana"><%=euro1  

%></td> 
   </tr> 
   <tr> 
     <td width="67" height="10"><font size="1" face="Verdana"><font 

color="#808080"><%=euro2 %></td> 
   </tr> 
   <tr> 
     <td width="64"  height="20" style="border-style: none; border-width:  

medium" rowspan="2" valign="top"> 
     <b><font size="1" face="Verdana">Sterlin</font></b></td> 
     <td width="67" height="10"><font size="1" face="Verdana"><%=sterlin1  

%></td> 
   </tr> 
   <tr> 
     <td width="67" height="10"><font size="1" face="Verdana"><font 

color="#808080"><%=sterlin2 %></td> 
   </tr> 
   <tr> 
     <td width="64"  height="10" style="border-style: none; border-width:  

medium"> 
     <b><font size="1" face="Verdana">USD/EUR </font></b></td> 
     <td width="67" height="10"><font size="1" face="Verdana"  

color="#C0C0C0"><%=kur1 %>   </td> 
   </tr> 
</table> 


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 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.