ASP + XML Hava Durumu Bilgileri
Hazir baslamisken bir de hava durumu icin gelsin..
Bunu Maxiasp'de bir arkadasin verdigi kodlari kullanmistim. Gayet basarili bir uygulama olmustu. Sadece Buyuk resim yerine kucuk resim cikmasi icin Temizle fonksiyonunu eklemistim. Isterseniz onu kaldirip 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)
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)
Kullanimi:
<img src="<%=Temizle(strresim)%>">
<%=strhissedilen%>C
Basinc: <%=strbasinc%>
Nem: <%=strrutubet%>
- personAyberk Atasay
- calendar_monthMay 28, 2008
- categoryASP
- sharepaylaş
