Hakan ŞEN Kişisel Günce - Kategori : Programlama / http://www.hakansen.com

Ağustos 6

xmlHTTP ile başka siteden veri çekmek

Yorumlar (2) Tarih : 6 Ağustos 2007 Pazartesi Saat: 19:29:16
Kategoriler : Makale, Programlama
Etiketler : xml, xmlhttp, asp, başka siteden veri çekmek

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.

Kod:


     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


Kullanım şekli ise
Kod:
     URL = "http://www.youtube.com/"

     Veri = GETHTTP(Url)

        Response.Write Veri

Şeklinde kullanabilirsiniz, ileriki derslerde veriler üzerinde nasıl oynanacağını göstereceğim.

Kolay gelsin.

Ağustos 3

Youtube API Tarih Fonksiyonu - Epoch Converter Fonksiyonu (Unix Time)

Yorumlar (3) Tarih : 3 Ağustos 2007 Cuma Saat: 19:28:12
Kategoriler : Referanslar, Makale, Sorun Giderme, Programlama
Etiketler : youtube api, tarih, unix time, epoch, epoch converter, fonksiyon, function, slturkiye

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

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

şekilde verilmiş.

Bende ASP Vbasic kullanarak bunu normal tarih şekline nasıl çevirileceğini araştırdım, eğer ileride ihtiyacınız olursa buyrun.

Şimdiki Unix Zamanı;
Kod:


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


date2epoch fonksiyonu ile verilen tarihi Unix zamanına çevirmek için,
Kod:


Function Date2epoch(myDate)

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

End function


Kullanımı;
Kod:


Date2epoch(Now())


epoch2date komutu ile de Unix zamanını normal tarih değişkenine çevirmek için,
Kod:


Function epoch2Date(myEpoch)

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

End function



Belki bir gün lazım olur. Youtube API ile karaladığım siteyi görmek isterseniz adresi http://video.slturkiye.com Second Life Türkiye Video Dizini`ne bakabilirsiniz.

Temmuz 25

404.asp hata sayfalarında kullanılan linkleri hazırlama fonksiyonu

Yorumlar (1) Tarih : 25 Temmuz 2007 Çarşamba Saat: 11:33:14
Kategoriler : Programlama
Etiketler : asp, hata sayfası, url yapma, 404.asp, link, seo

Benim sitemde de gördüğünüz gibi http://www.hakansen.com/oku/134-asp-video-gosterme-fonksiyonu-duzeltme/ tarzi linkleri hazırlamak için bir fonksiyon hazırlamıştım.

Konu başlığı ASP Video Gösterme Fonksiyonu (Düzeltme) bunu linkle fonksiyonunda çalıştırdığımızda asp-video-gosterme-fonksiyonu-duzeltme diye bir string elde ediyoruz, bunu da seo dostu url linklerinde kullanabiliriz.

Kodun çalışan halini

Kod:
http://www.hakansen.com/Kod/url-yapma-fonksiyonu.txt

adresinde bulabilirsiniz.

Mayıs 24

Video Gösterme Fonksiyonu (asp)

Yorumlar (4) Tarih : 24 Mayıs 2007 Perşembe Saat: 14:01:28
Kategoriler : Programlama
Etiketler : asp, video, youtube, metacafe, fonksiyon, script

Uzun zamandır kod yazmıyorum hemen aklıma gelmişken bi tane yaziyim

Sitenize video dosyalarını koymak istiyorsunuz ama fonksiyonunuz yok hemen yazıyoruz


Kod:
Function videogoster(ByVal strMesaj)



     '// Değişken boşsa fonksiyondan çıkılıyor

     If strMesaj= "" Then Exit Function



     '// Mesajda [vidyo] komutu  ile video gösterimi hazirlama

     Do While InStr(strMesaj, "[vidyo]") > 0  AND InStr(strMesaj, "[/vidyo]") > 0



     DeyimBaslangici = InStr(strMesaj, "[vidyo]")

     DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/vidyo]") + 8          

     If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7

     strLink = Trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici)))

     strGeciciMesaj = strLink

     strGeciciMesaj = Replace(strGeciciMesaj, "[vidyo]", "", 1, -1, 1)

                     strGeciciMesaj = Replace(strGeciciMesaj, "watch?v=", "v/", 1, -1, 1) 

     strGeciciMesaj = Replace(strGeciciMesaj, "[/vidyo]", "", 1, -1, 1)     

     strGeciciMesaj = "<span class=""video""><object width=""425"" height=""350""><param name=""movie"" Value="""& strGeciciMesaj &"""></param><param name=""wmode"" Value=""transparent""></param><embed src="""& strGeciciMesaj &""" type=""Application/x-shockwave-flash"" wmode=""transparent"" width=""425"" height=""350""></embed></object></span>"

     strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1)

     Loop



     MesajFormatla = strMesaj



End Function


böylelikle mesajınızın içerisinde
Kod:
[vidyo]http://www.youtube.com/watch?v=aAueNbUp8d0[/vidyo]

diye bir bölüm olursa ve
Kod:
<%=videogoster(rs("veri"))%>

şeklinde veriyi süzerseniz otomatik olarak player eklenecektir.

ben bilerek vidyo yazım çünkü video yazanı kendi sistemimde kullandığım için apışıyo

Mayıs 22

Flash Kurulumu, değil mi?

Yorumlar (0) Tarih : 22 Mayıs 2007 Salı Saat: 09:55:39
Kategoriler : Programlama, Web Tasarım
Etiketler : shockwawe flash, plugin, java, vbscript,

Sitenize gelen bir kullanıcıya Flash plugini gerektiren bir bölüm göstericeksiniz, yada sitenizin iki versiyonu var biri flash diğer html, ama gelen ziyaretçinin otomatik olarak yönlenmesini istiyorsunuz, yani eğer flash varsa buraya yoksa diğer tarafa

ahanda kodumuz burada

Kod:
<SCRIPT LANGUAGE="JavaScript">

<!--

var useFlash = navigator.mimeTypes &&

navigator.mimeTypes["Application/x-shockwave-flash"] &&

navigator.mimeTypes["Application/x-shockwave-flash"].enabledPlugin;

//-->

</SCRIPT>

<SCRIPT LANGUAGE="VBScript">

<!--

On Error Resume Next

useFlash = Not IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))

-->

</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">

<!--

If ( useFlash ) {

window.location = "flashli sayfa.htm";

} Else {

window.location = "flashsizsayfa.htm";

}

//-->

</SCRIPT>


eXTReMe Tracker