Bilgisayar Bölümü ASP Kod ve Script Arşivi


Baska bir siteden nasil bilgi alabilirim.

Kod Başlığı : Baska bir siteden nasil bilgi alabilirim.Hiç bir extra bilesene gerek kalmadan microsoft.XMLHTTP bileseni ile bunu yapabilirSiniz..
Ekleyen : MitnicK / Mail : freemitnick@msn.com
Tarih : 9/1/2004 1:45:12 PM
Hit : 17

<!-- Kod başlangıcı -->

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

Burada dolar,euro,sterlin bilgilerini aldik siz Isterseniz
http://www.tcmb.gov.tr/kurlar/toDay.html sayfasini bilgisayariniza kopyalayarak
Internete bagli olmadanda ögrenme amaci ile deneyebilirSiniz :)

<!-- Kod Sonu -->

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2022 Bilgisayarbolumu.com