Popüler dil ASP ile facebook video çözümü

kubilay · 1 12-02-2011, 15:43:26

Önce facebook'a ufak bi mesaj yollamak istiyorum.

Bi arkadaşın yorumuyla farkettim videolarda sorun olduğunu, hemen r10 'u açtım, fatal bişeyler yazmış ama php :/ ASP gibi yüce bi dil unutulmuş, php çözüm yayınlanmış. Biliyorum ki şimdi herkes yaygın olan programlama dili asp 'nin çözümünü yazacak ama ilk ben davranmak istedim.

Önce json çözümleme fonksiyonunu en üste koyuyoruz.

Kod:

Function cozumle(ByVal strEntry)
strEntry = Replace(strEntry, “\\u00253A”, “:”)
strEntry = Replace(strEntry, “\\u00252F”, “/”)
strEntry = Replace(strEntry, “\\u00253F”, “?”)
strEntry = Replace(strEntry, “\\u00253D”, “=”)
strEntry = Replace(strEntry, “\\u002526″, “&”)
cozumle = strEntry
End Function

Daha sonra gelen video'ya göre api'ye bağlanıp çalışan videoları oluşturacağımız fonksiyonu yazıyoruz.

Kod:

Function calistir(gelenurl)
alinbunudisari = split(gelenurl,”/”)
kactanevar = ubound(alinbunudisari)
videoid = split(alinbunudisari(kactanevar),”_”)
videoadres = “http://www.facebook.com/ajax/flash/expand_inline.php?target_div=u879823_18&__a=1&v=”& videoid(0)
Set XMLHTTP = server.CreateObject(“MSXML2.ServerXMLHTTP”)
XMLHTTP.Open “GET”, videoadres, False
XMLHTTP.Send
strHTML = XMLHTTP.ResponseText
Set XMLHTTP = Nothing
sorunvarmi=Ubound(Split(strHTML,”Privacy Check Failed”)) ‘ VİDEO HERKESE AÇIK MI KONTROL EDİYORUZ
if not sorunvarmi>0 then
kodbasi = “”"video_src\”",\”"”
kodsonu = “\”"]”
kategori = split(strHTML,”"&kodbasi&”
bitis = split(kategori(1),”"&kodsonu&”")
metin= cozumle(bitis(0))
response.write metin
end if
End Function

kaynak: http://www.kubilay.net/facebook-vide...-2012-asp.html