Programalama > ASP


Ort. 0
Puan ver:
<html> 
<head> 
    <meta  http-equiv="Content-Type" content="text/html; charset=ISO-8859-9"> 
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
     <title>Derkunt Doviz</title> 
</head> 

<body><center> 
<table bgcolor="#000000" border=0 cellpadding="4" cellspacing="1" align="center" width=300 height=100> 
  <tr> 
    <td bgcolor="#FFCC00"><center><font size=1 face=verdana><b>MERKEZ BANKASI DÖVIZ KURU</b></font></center></td> 
  </tr> 
  <tr> 
    <td bgcolor="#F3F0E5"> 
        <table border=0 cellpadding="0" cellspacing="0" width=100%> 
         <tr> 
             <td></td> 
           </tr>  
        </table>    

        <table border=0 cellpadding="0" cellspacing="0" width=100%> 
         <tr> 
             <td> 
              
              
<%  
'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 Derkunt abiniz tarafindan yazilmistir.   
'Abiniz dedim yasça cogunuzdan büyük oldugumdan ukala lik için degil   

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

dolar1=Mid(bilgicek,a+39,10) 'alis 
dolar2=Mid(bilgicek,a+52,10) 'satis 
dolar3=Mid(bilgicek,a+67,10) 'efektIf aiis 
dolar4=Mid(bilgicek,a+80,10) 'efektIf satis 

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

euro1=Mid(bilgicek,c+39,11) 'alis 
euro2=Mid(bilgicek,c+52,11) 'satis 
euro3=Mid(bilgicek,c+67,11) 'efektIf alis 
euro4=Mid(bilgicek,c+80,11) 'efektIf satis 
%>  
<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"><b>Dolar:</b></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>  
<tr>  
<td width="50"> </td>  
<td width="50"><font color="#0000FF"><nobr>Efektif Alis  :</td>  
<td width="80"><font color="#0000FF"><%=dolar3 %></td>  
<td width="30">TL</td>  
</tr>  
<tr>  
<td width="50"> </td>  
<td width="50"><font color="#0000FF"><nobr>Efektif Satis:</td>  
<td width="80"><font color="#0000FF"><%=dolar4 %></td>  
<td width="30">TL</td>  
</tr>  
</table>  
<br>  
<table width="210" border="0" cellspacing="0" cellpadding="0"  
class="doeviz">  
<tr>  
<td width="50"><b>Euro:</b></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>  
<tr>  
<td width="50"> </td>  
<td width="50"><font color="#0000FF"><nobr>Efektif Alis  :</td>  
<td width="80"><font color="#0000FF"><%=euro3 %></td>  
<td width="30">TL</td>  
</tr>  
<tr>  
<td width="50"> </td>  
<td width="50"><font color="#0000FF"><nobr>Efektif Satis:</td>  
<td width="80"><font color="#0000FF"><%=euro4 %></td>  
<td width="30">TL</td>  
</tr>  
</table>              
           
           
             </td> 
           </tr>  
        </table>    
      
     </td> 
  </tr> 
</table><br><br> 



</body> 
</html> 



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.