Asp Dersleri Bölüm-10 Yahoo Hava Durumu

Paylaş.

<%
‘ yahoo hava durumu
‘  Yahoo Weather sisteminden asp ile havadurumu göstermek.

Public  Function VeriAl(strGelen)
     Set  objVeriAl = Server.CreateObject(“Microsoft.XMLHTTP” )
    objVeriAl.Open “GET” , strGelen,  FALSE
    objVeriAl.sEnd�
    VeriAl = objVeriAl.Responsetext
     SET  objVeriAl =  Nothing
End  Function  

sehir = “TUXX0029”
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)
%>
<font face=”Tahoma” style=”font-size: 8pt; font-weight: 700″>TRABZON iin Hava Durumu<br/>
</font>
<p style=”line-height: 150%”>
<font face=”Tahoma” style=”font-size: 8pt”>
<div><img src=”<%=strresim %>”></div>
<div style=”font-size:30pt;position: absolute; width: 78px; height: 21px; z-index: 1; left: 127px; top: 59px” id=”layer2″><%=strhissedilen %>
</div>
<div style=”position: absolute; width: 150px; height: 21px; z-index: 1; left: 20px; top: 102px” id=”layer1″>En Yksek: <%=strenyuksek %> – En Dk: <%=strendusuk %></div>

<div style=”position: absolute; width: 235px; height: 167px; z-index: 2; left: 20px; top: 130px” id=”layer3″>
Gncelleme: <%=strguncelleme %><br/>
Hissedilen: <%=strhissedilen %><br/>
Basn: <%=strbasinc %><br/>
Nem: <%=strrutubet %><br/>
i Noktas: <%=strcig %> <br/>
En Yksek: <%=strenyuksek %> – En Dk: <%=strendusuk %>
</div>

     </font>