Ayberk Atasay

ASP, CSS, Internet konuları üzerine paylaşımlar

ASP + XML Hava Durumu Bilgileri

Hazır başlamışken bir de hava durumu için gelsin..
Bunu Maxiasp'de bir arkadaşın verdiği kodları kullanmıştım. Gayet başarılı bir uygulama olmuştu. Sadece Büyük resim yerine küçük resim çıkması için Temizle fonksiyonunu eklemiştim. İsterseniz onu kaldırıp normal boyutlardaki resmi kullanabilirsiniz.

Function Temizle(gelenveri)

  gelenveri = Replace(gelenveri ,"d","s",1,-1,1)

Temizle = gelenveri

End Function



Public  Function VeriAl(strGelen) 

     Set  objVeriAl = Server.CreateObject("Msxml2.ServerXMLHTTP" ) 

    objVeriAl.Open "GET" , strGelen,  FALSE

    objVeriAl.sEnd 

    VeriAl = objVeriAl.Responsetext 

     SET  objVeriAl =  Nothing

End  Function  



sehir = "TUXX0015"

strAdres = "http://weather.yahoo.com/forecast/"&sehir&"_c.html" 

strVeri = VeriAL(strAdres) 

basinc=InStr(strVeri,"<dt>Barometer:</dt><dd>")

strbasinc=Mid(strVeri,basinc+23,6)

hissedilen=InStr(strVeri,"<dt>Feels Like:</dt><dd>" ) 

strhissedilen=Mid(strVeri,hissedilen+24,6)

guncelleme=InStr(strVeri,"<em>Current conditions as of ")

strguncelleme=Mid(strVeri,guncelleme+28,6)

rutubet=InStr(strVeri,"<dt>Humidity:</dt><dd>")

strrutubet=Mid(strVeri,rutubet+22,3)

cig=InStr(strVeri,"<dt>Dewpoint:</dt><dd>")

strcig=Mid(strVeri,cig+22,7)

yuksek=InStr(strVeri,"<p>High:")

strenyuksek=Mid(strVeri,yuksek+9,7)

strendusuk=Mid(strVeri,yuksek+23,8)

resim=InStr(strVeri,"forecast-icon")

strresim=Mid(strVeri,resim+38,57)

Kullanımı:
<img src="<%=Temizle(strresim)%>">
<%=strhissedilen%>C
Basınç: <%=strbasinc%>
Nem: <%=strrutubet%>

ASPAyberk Atasay28 Mayıs 2008, ÇarşambaEkle Bunu

Önceki Kayıt

Sonraki Kayıt

Yorumlar

Bekir kaya
24 Mayıs 2010, Pazartesi

Verileri xml olarak yayınlayan bir site var. örnek kodları hazırlamışlar kolaylıkla kullanabilirsiniz. adres : www.owebtools.com

Yusuf N.
9 Haziran 2009, Salı

temizle fonksiyonunu kodlardan nasıl kaldırabilirim?

fevzi ilgün
14 Nisan 2009, Salı

teşekkür ederim Ayberk günlerdir aradığım yöntem buydu ben kodları biraz daha geliştirdim ve macromedia flash da kullandım çok işime yaradı

emeğine sağlık