Ekim 21
Ekim 18
XML Servislerinden Veri Almak
XML`in çeşitli kullanımları ile ilgili örnek yazılar yazmıştım, fakat bu sefer farklı bir yöntem izleyeceğiz msxml2.DOMDocument ile veri almak işlemini yapıcaz fakat biraz değişik bir yol ile.
Öncelikle uygulamayı kendi sitemde denemek için bir xml servisi oluşturdum. Bu serviste www.hakansen.com adresinde ki tüm yazı ve yorumların sayısını başka bir sitede nasıl gösterileceğini göstermek istedim.
www.hakansen.com/kod/stats.asp adresinden başlayalım.
Kod:
- <istatistik>
<ToplamKonu>145</ToplamKonu>
<ToplamYorum>142</ToplamYorum>
</istatistik>
şeklinde bir servis oluşturdum içerisindeki veriler veritabanındakilere göre otomatik olarak değişiyor.
Peki bunu başka bir sitede nasıl alıp kullanabilirim.
Bunun için ise verileri alma fonksiyonumuzu hazırlayalım.
Kod:
Function GetStats(Veri,url)
Set xObj=Server.CreateObject("msxml2.DOMDocument")
xobj.async=False
xobj.setProperty "ServerHTTPRequest",True
xobj.load(url)
If (xObj.parseError.errorCode <> 0) Then
GetStats = xObj.parseError.reason
Else
Set sonuc=xobj.getElementsByTagName("istatistik")
GetStats = (sonuc.Item(0).childnodes.Item(Veri).text)
End If
End Function
şeklinde fonksiyonumuzu belirledik, Bu fonksiyonu biraz açıklamak gerekirse.
GetStats fonksiyonunu tanımlarken Url kısmına çekilecek verinin adresini belirtiyoruz.
Veri kısmına ise <istatistik> alt dizisinde bulunan verilerin sırasını giriyoruz bu sıra aynı Array nesnesi gibi 0,1,2,3,4... şeklinde gidecek yani 0 dan başlayacak.
Buraya kadar anlaşıldıysa uygulamaya da geçelim
Kod:
www.hakansen.com sitesinde şuan itibariyle Toplam <b><%=GetStats(0,"http://www.hakansen.com/kod/stats.asp")%> Konu</b> ve <b><%=GetStats(1,"http://www.hakansen.com/kod/stats.asp")%> Yorum</b> bulunmaktadır.
yazdığınız zaman
www.hakansen.com sitesinde şuan itibariyle Toplam 145 Konu ve 142 Yorum bulunmaktadır.
şeklinde bir cevap ile karşılaşacaksınız ve xmldeki verileri almış olacaksınız.
Ekim 17
Kel Bahaneleri
Kel Bahaneleri
1-) Bana yakisiyor.
2-) Erkeklik hormonu fazla salgilaninca saclar dokulurmus. Yani fazla erkekler kel olurmus. Ne kadar kellik o kadar erkeklik.
3-) Tarihe bir bakin, butun buyuk adamlar keldir.
4-) Butun sac kozmetikleri para tuzagi
5-) istesem sac ektiririm ama insanin dogal hali daha guzeL.
6-) Zeki kadinlar kelleri çekici buluyor.
7-) Kelligimle dalga gecilmesine kizmiyorum cunku o benim kusurum degil, karizmamin bir parcasi.
8- ) Benim sac kurutma derdim yok neyseki. sukrediyorum halime.
9-) Benim babamin kirpi gibi saclari vardi
10-)Cekicilik beyinden gelir, uzerindeki killardan degil.
11-)Sen kafani kazitsan sana yakismaz. Kafa derin benimki kadar duzgun ve benimki gibi yuz fizyonomisine uygun olmali.
12-)Tarihte Japon dogusculeri kafalarini kazitip daha erkek gorunurlermis.
13-)Antropolojide zekaya delalet eden kivrimli beyine sahip kafataslari deri yuzeyi, genelde fazla saca musait olmamaktadir.
14-)Bir adamin kafasinda ya kil yada akil olur...
15-)Maden olan yerde ot bitmez
Ekim 17
25. Yüzyıl Türk Uyarı Levhaları
- Kurbanlik sibernetik organizmalarinizin titanyum kaplamalarini Türk Hava Kurumu’na bagislayiniz.
- Dikkat!..Meteor düşebilir..
- Lütfen uzaya tükürmeyiniz.
- Buraya uranyum döken eşektir..
-Türbeye chip, süper iletken materyal, fiber optik kablo bağlamayiniz..
- Silikon bazli, display ozellikli kaldirim taslarinin degismesinden dolayi verdigimiz rahatsizliktan ötürü özür dileriz…(Çemişgezek Büyükşehir Belediyesi)
- Galaktik yol, indirme bindirme yapılmaz.
- Oy kullananlar lütfen parmaklarınızı radyasyonlu sıvıya istenmeden batırınız..
- Galaktik yolculuklarda lütfen ışın silahınızı görevli androidlere veriniz.
- Bina içi isinlama kabini 4 kisiliktir. 12 yasindan kucuklerin yanliz binmesi yasaktir.
- Işınlanırken burun karıştırmak bünye kısa devresine yol açabilir.
- Süpersonik atomik lazer güç üniteli testereyle odun kesilir..
- Lütfen yerlere chip atmayiniz
- Seyir halindeyken flymobil tuvalet deposunu boşaltmak yasaktir..
- Van kedisi ve sivas kangal kopeginin klon cihazina sokulmasi yasaktir..
- Telepati hattinda frekanslarin saglikli işlemesi için yuksek sesle konuşmayiniz, geğirmeyiniz
- Işınlanma odasina evcil hayvanla girmek yasaktir..
- Buraya çöp döken mutanttır..
- Galaksi hava boşluğunda sollama yapmayınız
- Dikkat azami hız 30 ışık yılı..
- Trafik uyarı simgelerini işın tabancasıyla yakmayınız
- Lütfen jupiter ayilarına kabuklu yemis atmayin.
- Bu bölümde sanal sigara icebilirsiniz..
- Lapalı yerlerde uranyum ve uranyum ürünlerinin kullanılması TCK xyzkl numaralı yasası gereği yasaktır...
- Lütfen androide pasonuzu istemeden gösteriniz.
- Seyahat esnasında güneşe yakın bölgelerde osurmamaya özen gösteriniz.
- Dikkat ! uzay gemisi çıkabilir ...
- Robotlara hidrolik yağ ikram etmeyiniz ...
- Galaktik yolculuk sırasında insan ve android lerin ikramlarından almayınız
Ekim 15
Terörle Mücadele Kahramanlarına Destek Kampanyası
BÜYÜK MİLLİ SEFERBERLİK BAŞLADI...
MİLLİ TAKIM, MİLLİ KAHRAMANLARIN YAYINDA...
TERÖRLE MÜCADELE KAHRAMANLARINA DESTEK KAMPANYASINA SİZ DE KATILIN " BEN DE VARIM" DEYİN...
TÜRKİYE`NİN MİLLİ TAKIMI, VATAN İÇİN HAYATINI ORTAYA KOYAN KAHRAMANLAR İÇİN, TÜRKİYE`Yİ TARİHİ BİR GÖREVE ÇAĞIRIYOR...
DÜNYANIN GÖZÜ, TÜRKİYE`NİN ÜZERİNDE...
ŞİMDİ BİRLİK ZAMANI...
BÜYÜK MİLLİ SEFERBERLİĞE SİZ DE KATILIN...
BAĞIŞ İÇİN:
Turkcell ve Avea kullanıcıları 5 YTL bağış için, DESTEK yazarak, 5610`ya mesaj gönderin.
Vodafone kullanıcıları, 5 YTL bağış için, DESTEK yazarak, 5630`da mesaj gönderin.
BANKA İLE BAĞIŞ İÇİN HESAP NUMARALARI:
ZİRAAT BANKASI - İSTANBUL ŞUBESİ
YTL Hesabı 343434 - 5001
DOLAR Hesabı 343434 - 5002
EURO Hesabı 343434 - 5003
İŞ BANKASI - BEYOĞLU ŞUBESİ ( ŞUBE KODU: 1011 )
YTL Hesabı 171 65 83
Euro Hesabı 332 11 70
GARANTİ BANKASI - YENİBOSNA ÇARŞI ŞUBESİ ( ŞUBE KODU: 531 )
YTL Hesabı 668 97 98
YAPI KREDİ BANKASI - MERKEZ ŞUBE
YTL Hesabı 2013 2013
FİNANSBANK – GÜNEŞLİ ÇARŞI ŞUBESİ
YTL Hesabı 165 806 86
EURO Hesabı 165 806 88
TELEFON :
0 212 599 82 86
destek@haberturk.com
