XML veriyi ASP'ye aktarma

Tüm Forumlar » ASP » XML veriyi ASP'ye aktarma

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#29.12.2003 15:34:50

Merhaba,
http://www.altinkaynak.com.tr/xml_yardim.asp adresinde XML'yi nasil ASP ye aktaracağımızı çok güzel bir şekilde anlatmış, ben aynı yöntemle http://www.weatherroom.com/xml/loc/LTBA adresindeki XML veriden verileri aktarmaya çalıştım aynı şu şekilde..

--- hava.xsl ----

<xsl:template match="/">

<html>

<style>
TD{ font-family: Verdana, Arial, Arialturk, Helvetica, sans-serif; font-size: 8pt; color: #000000; }
</style>

<body>

<table>

<xsl:for-each select="WeatherFeed">
<tr>
<td>
<xsl:value-of select="Location"/>
</td>
<td>
<xsl:value-of select="RecordedAt"/>
</td>
<td>
<xsl:value-of select="Conditions"/>
</td>
<td>
<xsl:value-of select="Visibility"/>
</td>
<td>
<xsl:value-of select="Temp"/>
</td>
<td>
<xsl:value-of select="Humidity"/>
</td>
<td>
<xsl:value-of select="Wind"/>
</td>
<td>
<xsl:value-of select="Barometer"/>
</td>
<td>
<xsl:value-of select="Dewpoint"/>
</td>
<td>
<xsl:value-of select="HeatIndex"/>
</td>
<td>
<xsl:value-of select="WindChill"/>
</td>
</tr>

</xsl:for-each>

</table>

</body>
</html>

</xsl:template>
</xsl:stylesheet>

------------- hava.asp ----------

<%= getXML("http://www.weatherroom.com/xml/loc/LTBA" ) %>
<%
Function getXML(sourceFile)

dim styleFile
dim source, style
styleFile = Server.MapPath("hava.xsl" )

Dim xmlhttp
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP" )
xmlhttp.Open "GET" , sourceFile, false
xmlhttp.SEnd

Set source = xmlhttp.ResponseXML
If source.parseError.errorCode <> 0 Then
Response.write "Altınkaynak XML yüklenemedi! Hata: " & source.parseError.reason
Response.End
End If

Set style = Server.CreateObject("MSXML2.DOMDocument" )
style.async = false
style.load(styleFile)
If style.parseError.errorCode <> 0 Then
Response.write "XSL Stil dosyası yüklenemedi! Hata: " & style.parseError.reason
Response.End
End If

Response.Write source.transformNode(style)

Set style = Nothing
Set source = Nothing
Set xmlhttp = Nothing

End Function
%>

Fakat hiç bir veri çıkmıyor.. hata ne olabilir ki
??

Ya da ben PHP verisini buldum bunun.. onu nasil düzgün bir şekilde ASP ye çevirebilirim.. Yardım edebilrseniz sevinirim..

#29.12.2003 15:37:52 tarihinde tunahan tarafından düzenlendi.

Soruyu İlgilendiklerim listenize ekleyin

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#29.12.2003 15:58:00

ya biraz acele cevap alabileceğim arkadaşlar yardim ederseniz sevinirim..

--------------------
<% Her uzun yol bir adımla başlar %>
<? Öyleyse Adımını Sağlam At ?>

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#29.12.2003 16:14:00

PHP2ASP.NET Converter ise yariyormu? bilen varmi arkadaslar?

--------------------
<% Her uzun yol bir adımla başlar %>
<? Öyleyse Adımını Sağlam At ?>

aliayen

-Üye-

Yaş: 29

Cinsiyet : Bay

Mesaj Sayısı : 2103

#29.12.2003 16:46:00

XML ayrıştırma hatası alıyormusun?

Beyaz bir ekran geliyorsa sağ tıklayıp dil ayarları yapmayı dene...

--------------------
Burada ne görüyorsunuz: ( Ağustos 'tan bugüne )

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#29.12.2003 17:47:00

msxml3.dll error '80072ee6'

The URL does not use a recognized protocol

/weather/hava.asp, line 12

bu seferde boyle bir hata verdi, acaba hosttan mi kaynaklaniyor?

--------------------
<% Her uzun yol bir adımla başlar %>
<? Öyleyse Adımını Sağlam At ?>

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#29.12.2003 17:49:00

yok ben URL yi yanlis yazmisim.. su an bembeyaz bi ekran..

--------------------
<% Her uzun yol bir adımla başlar %>
<? Öyleyse Adımını Sağlam At ?>

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#29.12.2003 18:02:00

Onu nasil yapcam, sabahtan beri bunla ugrasiyorum, kafayi yicem..

http://www.sunplaza.com.tr/altin/altinkaynak2.asp

--------------------
<% Her uzun yol bir adımla başlar %>
<? Öyleyse Adımını Sağlam At ?>

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#30.12.2003 01:16:00

yardim edecek kisme yokmu

--------------------
<% Her uzun yol bir adımla başlar %>
<? Öyleyse Adımını Sağlam At ?>

aliayen

-Üye-

Yaş: 29

Cinsiyet : Bay

Mesaj Sayısı : 2103

#30.12.2003 11:45:00

1-

<%@ Language=VBScript %>

2-

<%
     Response.ContentType = "text/html"
     Response.CharSet = "ISO-8859-9"
%>

3-

<%
     Dim XmlHTTP, SourceFile, objDOM, objChild, I
     SourceFile = "http://www.weatherroom.com/xml/loc/LTAU"
     Set XmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
     XmlHTTP.Open "GET" , SourceFile, false
     XmlHTTP.SEnd

     Set objDOM = Server.CreateObject("MSXML2.DomDocument" )
     objDOM.async = False
     objDOM.loadXML(XmlHTTP.ResponseText)
%>

4-

<% For I = 1 To 12 %>
<%
NodeName     = objDOM.documentElement.childNodes(I).NodeName
Text          = objDOM.documentElement.childNodes(I).Text
%>
<tr>
<td width="30%" align="right" style="color:#006666"><b><%=NodeName %>:</b></td>
<td width="70%" style="border-left: 1px solid #669999"><%=Text %></td>
</tr>
<% Next %>

5-

<%
     Set objDOM = Nothing
     Set Source = Nothing
     Set XMLHttp = Nothing
%>

= http://www.bt.gen.tr/havadurumu.asp

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#30.12.2003 17:05:00

Cok tesekkur ederim, yeni ufuklar actin inanki bende..
Eğer tasarim işin falan olursa bana söylemen yeterli.. tunahan@hotmail.com. bu örnekle geliştirdiğim sistemi izin verirsen sana göndereceğim. Asıl amaç: www.sunplaza.com.tr da hava durumuna göre flash animasyon olarak sayfadaki binanin kar yağışı, yağmur, sis, güneşli gibi görünmesi bunda..

--------------------
<% Her uzun yol bir adımla başlar %>
<? Öyleyse Adımını Sağlam At ?>

aliayen

-Üye-

Yaş: 29

Cinsiyet : Bay

Mesaj Sayısı : 2103

#30.12.2003 17:25:00

XML ile ilgili olarak soruların olursa ben de beklerim. Son 1 senedir kriptoloji dışında en çok ilgilendiğim konu bu.

--------------------
Burada ne görüyorsunuz: ( Ağustos 'tan bugüne )

kusursuzasp

-Üye-

Yaş: 30

Cinsiyet : Bay

Mesaj Sayısı : 214

#02.02.2006 10:21:00

arkadaşlar yukarıda ki kodlar ile bende uğraştım ama çözüme ulaşamadım çözümü buraya yazarsanız çok sevinirim...

kusursuzasp nickli üyenin web sitesine git

tunahan

-Üye-

Yaş: 35

Cinsiyet : Bay

Mesaj Sayısı : 64

#03.02.2006 13:40:00

alıntı

arkadaşlar yukarıda ki kodlar ile bende uğraştım ama çözüme ulaşamadım çözümü buraya yazarsanız çok sevinirim...

Dün mail ile bana ulasip cözümü aldin fakat diger baska arkadaslarin da bu konudan yararlanmasi babindan ben buraya da ekliyorum.

Daha onceden yapilan bu yukardaki sicript weatherroom.com dan aliyordu havadurumunu. fakat belli bir zmaan sonra bozulmaya-hata vermeye başladı. ben de yeniden duzenleyip www.weather.com dan alabilecek seilde ayarladim..
kodlar asagidadir..

hava.asp

<%@ Language=VBScript %>
<%
     Response.ContentType = "text/html"
     Response.CharSet = "ISO-8859-9"
%>
<%
     Dim XmlHTTP, SourceFile, objDOM, objChild, I
     SourceFile = "http://xoap.weather.com/weather/local/TUXX0014?cc=*&dayf=1&prod=xoap&par=1007017884&key=8fa5357d76181c74"    'Buradaki bilgileri (key, url, local code) weather.com dan alabiliyorsunuz.
     Set XmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
     XmlHTTP.Open "GET" , SourceFile, false
     XmlHTTP.SEnd

     Set objDOM = Server.CreateObject("Msxml2.DomDocument.3.0" )
     objDOM.async = False
     objDOM.loadXML(XmlHTTP.ResponseText)
     If objDOM.parseError.errorCode = 0 Then
      hatali = "huyt"


%>
<%   dim xmlNode
UpTime = objDOM.documentElement.selectSingleNode("cc/lsup" ).Text
tmp = objDOM.documentElement.selectSingleNode("cc/tmp" ).Text
flik = objDOM.documentElement.selectSingleNode("cc/flik" ).Text
t = objDOM.documentElement.selectSingleNode("cc/t" ).Text
icon  = objDOM.documentElement.selectSingleNode("cc/icon" ).Text
winds = objDOM.documentElement.selectSingleNode("cc/wind/s" ).Text
windd = objDOM.documentElement.selectSingleNode("cc/wind/t" ).Text
hmid = objDOM.documentElement.selectSingleNode("cc/hmid" ).Text
vis = objDOM.documentElement.selectSingleNode("cc/vis" ).Text
uvi = objDOM.documentElement.selectSingleNode("cc/uv/i" ).Text
uvt = objDOM.documentElement.selectSingleNode("cc/uv/t" ).Text
dewp = objDOM.documentElement.selectSingleNode("cc/dewp" ).Text

%>
<%
durumen = Request.QueryString("durumen" )
If durumen <> "" Then
icon = durumen
Else
Select Case icon

     Case "11" ,"45"
     durumen = "Rainy"
     durumtr="Yaðmurlu"

     Case "30" ,"44"
     durumen = "Clouds"
     durumtr="Parçalý Bulutlu"

     Case "27" ,"28"
     durumen = "Cloudy"
     durumtr="Parçalý Bulutlu"

     Case "23" ,"24" ,"31" ,"33"
     durumtr="Açýk"
     durumen = "Clear"

     Case "13" ,"14" ,"15" ,"16" ,"25" ,"41" ,"42" ,"43" ,"46"
     durumtr="Karlý"
     durumen = "Snow"

     Case "5" ,"7" ,"8" ,"10"
     durumtr="Sulu Kar"
     durumen = "Sleet"

     Case "6" ,"18"
     durumtr="Tipi"
     durumen = "Blizzard"

     Case "0" ,"1" ,"2" ,"3" ,"4" ,"12" ,"17" ,"35" ,"37" ,"38" ,"39" ,"40" ,"47"
     durumtr="Saðnak Yaðmur"
     durumen = "RainShower"

     Case "36" ,"32"
     durumtr="Güneþli"
     durumen = "Sunny"

     Case "9" ,"19" ,"20" ,"21" ,"22" ,"34" ,"29"
     durumtr="Sisli"
     durumen = "fogy"

     Case  "26"
     durumtr="Bulutlu"
     durumen = "Cloudy"

     Case Else
     durumtr="N/A"
     durumen = "N/A"
End Select
End If
zaman = Request.QueryString("zaman" )
If zaman = "gece" Then
backgroundimage = "alts2"
ElseIf zaman = "gunduz" Then
backgroundimage = "alts"
Else
Select Case Hour(Now)
     Case 5,6,7,8,9,10,11,12,13,14,15,16,17
     backgroundimage = "alts"
     Case 18,19,20,21,22,23
     backgroundimage = "alts2"
     Case Else
     backgroundimage = "alts2"
End Select
End If
%>

<% Else
hatali = "hayt"
End If
     Set objDOM = Nothing
     Set Source = Nothing
     Set XMLHttp = Nothing

%>

index.asp

<HTML>

<HEAD>
<TITLE>HAVA DURUMU</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9">
</HEAD>
<BODY>
<strong>MASLAK'TA HAVA<br>
                    <%= durumtr %> <br>
                   <%
' Fahrenayt'tan °C'a ceviren Kodlama
yahoo = Replace(tmp,"°F" ,"" ,1, -1, 1)
function converti(dblTempF)
converti = (5/9) * ( dblTempF -32 )
End function

dim dblGradIf
dblGradIf = yahoo
tehoo=Left(converti(yahoo),4)
sciakluks = tehoo & "°C"
Response.Write sciakluks %>

<table width="100%"  border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td colspan="3" align="right"><span class="style3"><img src="images/dot.gif" width="10" height="1"> </span></td>
                          </tr>

                          <tr class="weat">
                            <td height="10" align="right" class="weat"><B>Durum :</b></td>
                            <td height="10" align="left" class="weat"> <%=durumtr %></td>
                            <td height="10" align="center" valign="top" class="weat"> </td>
                          </tr>
                          <tr class="weat">
                            <td height="10" align="right" class="weat"><%
                                   teng = Replace(vis," Mi" ,"" ,1,-1,1)
                                   komg = teng*1.850 %>
                                   <B>Görüş Netliği :</b> </td>
                            <td height="10" align="left" class="weat"> <%= komg & " m" %></td>
                            <td height="10" align="center" valign="top" class="weat"> </td>
                          </tr>
                          <tr class="weat">
                            <td height="10" align="right" class="weat"><B>Hissedilen Sıcaklık :</b> </td>
                            <td align="left" class="weat"> <%=sciakluks %></td>
                            <td height="10" align="center" valign="top" class="weat"> </td>
                          </tr>
                          <tr class="weat">
                            <td height="10" align="right" class="weat"><B>Nem Oranı :</b>  </td>
                            <td height="10" align="left" class="weat"> <%= hmid %></td>
                            <td height="10" align="center" valign="top" class="weat"> </td>
                          </tr>
                          <tr class="weat">
                            <td height="10" align="right" class="weat"><%="<B>Rüzgâr :</b> " %></td>
                            <td height="10" align="left" class="weat"> <%
                                    yekes = Replace(winds," MPH" ,"" ,1, -1, 1)
                                    Response.Write windd & " " & winds & " KmPH" %></td>
                            <td height="10" align="center" valign="top" class="weat"> </td>
                          </tr>
                        </table>

<%
     Set objDOM = Nothing
     Set Source = Nothing
     Set XMLHttp = Nothing
%>

Bu kodlarla gelistirilmis bir sistem: http://www.sunplaza.com.tr

siz de yen fikirlerle daha yaratici fikirler elde edebilirsiniz. Yaptiginiz sayfalari bana yazarsaniz sevinirim

P.S: degiskenlerin acaipligine aldirmayin

o anda nasil aklima ve elime gelmisse oyle yazmisimdir.. :lol:
--------------------
<% Her uzun yol bir adımla başlar %>

#03.02.2006 13:41:49 tarihinde tunahan tarafından düzenlendi.

kusursuzasp

-Üye-

Yaş: 30

Cinsiyet : Bay

Mesaj Sayısı : 214

#03.02.2006 14:32:00

hakılısın abi ; haftasonu eklerim diye düşündüm...yardımların için çok teşekkürler...

--------------------
Bu Dahil Bütün Genellemeler Yanlıştır..

Sayfa(lar):

Sizden başka kimse yok

Selim Topaloğlu | AdresMatik.net | MaxiASP.net | ASP İndir

Alan adı ve bulundurma : Radore Hosting | Donanım Sponsoru : Mavi Bilgisayar

Tasarım ve Kodlama : MaxiASP web team

MaxiASP en az 800*600 çözünürlükte,en iyi Mozilla Firefox ile görüntülenir.

Sayfa Üretilme Süresi: 0,4414063 saniye