Hakan Şen

xmlHTTP nedir?
     xmlHTTP windows sunucularda kullanılan bir componenttir, görevi ise başka sitelere veri göndererek karşılık almaktır.
(Yani ben böyle tarif ediyorum) xmlHTTP componenti elinizde yok ise buradan indirebilirsiniz.

Şimdi vereceğim örnek fonksiyon ile başka sitelerden gönlünüzce veri alabilirsiniz.

     Function GETHTTP(adres) 

On Error Resume Next 

          Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

               StrHTTP.Open "GET" , adres, False 

               StrHTTP.sEnd 

               GETHTTP = StrHTTP.Responsetext 

          Set StrHTTP = Nothing 

     End Function 

     URL = "http://www.youtube.com/"

     Veri = GETHTTP(Url)

        Response.Write Veri

Geceler soyulup çöllere düşmüş
Kim demiş kızılcıklar üşümez diye
Karnı ağrıyan çocuğa ateş diyen deccal
Ölüm seni de bulur bekle

Dar geliyor dar geliyor dünya bana
Hayat böyledir işte yavrum diyemem sana

Çok uzakta değil pasifikte
Canı her sıkıldığında sam amcaların
Canı çıkar ortadoğuda çocukların
Çocuk olmak tehlikelidir yasaktır yavrum

Dar geliyor dar geliyor dünya bana
Hayat böyledir işte yavrum diyemem sana

Çok uzakta değil pasifikte
Canı her sıkıldığında sam amcaların
Canı çıkar ortadoğuda çocukların
Çocuk olmak tehlikelidir yasaktır yavrum

Dar geliyor dar geliyor dünya bana
Hayat böyledir işte yavrum diyemem sana

Bugün youtube api ile ilgili bir çalışma yaptım, Bu çalışma sırasında Youtube`dan veri çekerken videolarla yorumlarla ilgili tarihler Unix Time formatında verilmiştir.

Örnek verecek olursak

<upload_Time>1121398533</upload_Time> <!-- UNIX-style Time, Seconds since 1/1/1970 -->

DateDiff("s", "01/01/1970 00:00:00", Now())

Function Date2epoch(myDate)

Date2epoch = DateDiff("s", "01/01/1970 00:00:00", myDate)

End function

Date2epoch(Now())

Function epoch2Date(myEpoch)

epoch2Date = DateAdd("s", myEpoch, "01/01/1970 00:00:00")

End function