XML İle Sayısal Loto (tr)

Bu kod ile Millipiyango.gov.tr adresinden güncel sonuçları alabilirsiniz.Kodları aynen .asp dosyası olarak kayıt yaptıktan sonra çalıştırabilirsiniz.

********************************************************

<% 
bugun=Date()
' döngünün baslayacagi tarihi aliyoruz. Sayisal loto için Cumartesi olmasi gerekiyor
tarih="07/07/2001"
tarih=cDate(tarih)
'bugüne gelene kadar döngüde 7 gün ekleyerek döngü tamamlaniyor
do 
tarih=dateAdd ("D" ,7,tarih) 
Loop  While tarih<bugun
'Çikan tarih bir cumartesi olacagi için 1 hafta çikariyoruz
tarih=DateAdd("D" ,-7,tarih)
tarih=Replace(tarih,"." ,"/" )
yil=Year(tarih)
ay=Month(tarih)
If  Len(ay)<2  Then 
ay="0" &ay
End  If
gun=Day(tarih)
If  Len(gun)<2  Then 
gun="0" &gun
End  If
'tarihi millipiyangonun sitesinde sayisal loto bölümünün alinacagi uzamtiya atamasi için çeviriyoruz
zaman=yil&ay&gun
%>
<%
On Error Resume  Next 
'Bilgiyi alacagimiz sayfa'nin adresini yaziyoruz.
adres = "http://www.millipiyango.gov.tr/loto/data/" &zaman&".shtml"
Set  StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
'XMLHTTP bileseni oldugunu belirtiyoruz
StrHTTP.Open "GET" ,adres,  false 
StrHTTP.SEnd
'Kodlari degiskene gönderiyoruz
GETHTTP = StrHTTP.Responsetext 
Set  StrHTTP =  Nothing 
bilgi = GETHTTP
 
'Bilgiyi getirmesini istiyoruz.
'Bilginin baslayacagi kod asagida
 
haftasi=InStr(1,bilgi,"Hafta" )
' top numaralari teker teker aliniyor
 
topno1=Mid(bilgi,haftasi+34,2)
topno2=Mid(bilgi,haftasi+64,2)
topno3=Mid(bilgi,haftasi+95,2)
topno4=Mid(bilgi,haftasi+125,2)
topno5=Mid(bilgi,haftasi+156,2)
topno6=Mid(bilgi,haftasi+186,2)
 
'tarihi yazdirmak için önceki formati geri çeviriyoruz
yil1=Left(zaman,4)
ay1=Mid(zaman,5,2)
gun1=Right(zaman,2)
tarih1=gun1&"." &ay1&"." &yil1
%>
bundan sonraki kod sayisal lotonun yazdirildigi tablo istediginiz gibi degistirebilirsiniz
tarih 1 sayisal loto çekilis tarihi
topno1 - 6 ya kadar top numaralari
top.gif ise koyacaginiz top resmi
<table cellpadding=2 cellspacing=0 width=120 height=15>
<tr>
<td colspan=6 align=center>
<font color="black">Sayisal Loto<br>
<%=tarih1 %></font>
</td>
</tr>
<tr>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno1 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno2 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno3 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno4 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno5 %> </td>
<td background="top.gif" align=center valign=middle width =20 height=20><%=topno6 %>  </td>  </tr>  </table>