Mayıs 24
Video Gösterme Fonksiyonu (asp)
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
şimdi senin için düzelttim. Kodu ben normalde sadece ID değeri ile kullanıyordum komple url yazmıyordum ama şimdi urlsini hazırladım.
ben denemek için böyLe kuLLandım yaLnız çaLıştıramadım. Bir sorunda göremedim açıkcası neden çaLışmıyor ki? (: