Gönderen Konu: Youtube videoları veya swf uzantılı dosyaları forumda kullanmak  (Okunma sayısı 3656 defa)

0 Üye ve 2 Ziyaretçi konuyu incelemekte.

Çevrimdışı hozel

  • İleti: 7
  • Puan: 0
Ynt: Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #10 : Şubat 15, 2007, 20:10:18 ÖS »
[swf]http://www.youtube.com/v/7Unl9sRImUg[swf kapat]  şeklindeki kodda çalışıyor ama
[swf]http://www.youtube.com/watch?v=bsippXAfm6M[swf kapat] biçimdeki youtube dan alınmış kodda çalışmıyor neden olabilir?

:-\

Sevgili adnancelik , abicim çalışan kodu kullan sende.  :)

Youtube videosunun dosya  url leri http://www.youtube.com/v/ şeklinde. http://www.youtube.com/watch?v olanı ise videoya ait sayfa url si.
Konuyu Paylaş:
  delicious  facebook  twitter  google

Çevrimdışı hozel

  • İleti: 7
  • Puan: 0
Ynt: Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #11 : Şubat 17, 2007, 15:22:59 ÖS »
Şu anda kullandığım flash oyunlar adlı maxweb eklentisi var. Ama çok mıncıkladığım için paylaşamadım. :) Bu şekliyle paylaşmam uygun olmaz. Coderler kızar sonra. Bu scripti bu hale nasıl getirdin diye. ::)  Son ve sade halini editliyorum. Yakında burada paylaşacağım kısmetse. Flash oyun dışında video eklentisi olarak farklı isimlede kullanılabilir.

Maxwebportal Flash Oyunlar uzmanweb.net in daha önceki sitesinde yayınlanmış. Sonradan bilgim oldu bende çalışma yapmıştım aynı eklenti için. Derledim topladım ama biraz geç olmuş. İlgilenen arkadaşlar downlaod bölümünden indirebilirler .

Kısa bir not: Popup açılması için inc_top.asp dosyasında <head> tag inin içine aşağıdaki kodu ekleyin.

}
function openFlash(url,windowName,height,width)
{

kays

  • Ziyaretçi
-Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #12 : Mart 25, 2007, 04:33:08 ÖÖ »
valla o kodu nereye ekleyeceğimizi hala anlamış değilim
altına mı üstünemi
yoksa değiştirecekmiyiz
daha açık  bi şekilde anlatsanız

Çevrimdışı CaSh

  • İleti: 80
  • Puan: 8
  • Cinsiyet: Bay
  • CaShTR
    • CSHTR | 2005
-Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #13 : Mart 26, 2007, 02:08:58 ÖÖ »
bırakın şu mwp ile uğraşmayı lütfen ya:)
http://wWw.cShTR.CoM <> Türkiye'nin En İyi Paylaşım Portalı

Çevrimdışı newformat

  • İleti: 37
  • Puan: 0
  • Cinsiyet: Bay
-Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #14 : Nisan 05, 2007, 22:18:11 ÖS »
merhaba arkadaşlar,

fString=replace(fString ,"[swf]","<embed src=""",1,-1,1)
fString=replace(fString ,"[swf kapat]",""" width=""450"", height=""300"">",1,-1,1)

bu kodlarla metacafe videolarını eklemeyi deniyorum ama beceremedim yardım edebilecek varmı?

Çevrimdışı bratmi

  • İleti: 112
  • Puan: 0
  • Cinsiyet: Bay
-Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #15 : Nisan 07, 2007, 22:13:20 ÖS »
slm ben burada birsey anmadim tam olarak bu kodlar nereye eklenecek kacinci satira ve ya hangi satirla deystirilecek bunu biri yazarsa sevinirim tesekurler
arkadaslar dediklerinizi yapmama ragmen olmadi rica etsem duzenlenmis dosyayi siteye ekleseniz daha iyi olmaz mi tesekkurler

Arkadaşım inc_function.asp dosyasını ekliyeceğim ama "Mesaj içeriği izin verilenden fazla. (En çok 20000 karakter). " olduğu için ekleyemiyorum.

Aşağıdaki  kodları 850. satırdan sonrasında görmen gerek.

Kod: [Seç]
'###### mwpv2.1 Bitti ##########

if fField_Type = "jsurlpath" then
fString = Replace(fString, "'", "\'") 'mwpv2.1
fString = Server.URLEncode(fString)   'mwpv2.1
ChkString = fString                   'mwpv2.1
exit Function
end if
if fField_Type = "edit" then             'mwpv2.1
if strAllowHTML <> "1" then         'mwpv2.1
fString = HTMLEncode(fString)     'mwpv2.1
end if                                 'mwpv2.1
fString = Replace(fString, """", "&quot;")  'mwpv2.1
ChkString = fString                     'mwpv2.1
exit function                             'mwpv2.1
end if
if fField_Type = "display" then
if strAllowHTML <> "1" then
fString = HTMLEncode(fString)
end if
if strBadWordFilter = "1" then
fString = chkBadWords(fString)
end if
fString = replace(fString,"+","+")
fString = replace(fString, """", "&quot;")
        ChkString = fString
exit function
elseif fField_Type = "message" then
if strAllowHTML <> 1 Then
If InStr(1,fString,"[CODE]",1)>0 Then
            fString=doMsgCode(fstring)
         Else
fString = HTMLEncode(fString)
fString=saveForumCode(fString,fField_Type)
End if
else

if  (mlev = 4) or (lcase(strNoCookies) = "1") then ' admine kod kolaylığı.

   fString=replace(fString ,"[swf]","<embed src=""",1,-1,1)
fString=replace(fString ,"[swf kapat]",""" width=""450"", height=""300""&gt;",1,-1,1)

fString=replace(fString,"type=""","")


end if

fString=replace(fString,"type=""","")



'fString = HTMLEncode(fString)
fString=replace(fString,"'","''")
fString=replace(fString,"%>","%&gt;")
fString=replace(fString,"<%","&lt;%")
'fString=replace(fString,"%&gt;","")
'fString=replace(fString,"&lt;%","")
fString=replace(fString,"<object","&lt;object")
fString=replace(fString,"/object","&lt;/object")



if not (mlev = 4) or (lcase(strNoCookies) = "1") then ' admine kod kontrolu yok.

fString=replace(fString,"<embed","&lt;embed")
fString=replace(fString,"/embed","&lt;/embed")

end if



fString=replace(fString,"<script","&lt;.script")
fString=replace(fString,"javascript","java script")
fString=replace(fString,"http-equiv="Refresh"","http_equiv=Ref_resh")
fString=replace(fString,"alert(","al ert(")
        'ChkString = fString
        ChkString = chkHtmlCode(fString)
exit function
end if

'fString = replace(fString, """", "&quot;")
elseif fField_Type = "hidden" then
fString = HTMLEncode(fString)
elseif fField_Type = "numeric" then     'mwpv2.1
if not isNumeric(fString) then      'mwpv2.1
  my_Conn.close                     'mwpv2.1
  set my_Conn = nothing             'mwpv2.1
  response.Redirect(strHomeUrl & "default.asp")  'mwpv2.1
else                                'mwpv2.1
        ChkString = fString                 'mwpv2.1
  exit function                     'mwpv2.1
end if                              'mwpv2.1
end if                                  'mwpv2.1
if fField_Type = "displayimage" then
fString = Replace(fString, " ", "")
fString = Replace(fString, """", "")
fString = Replace(fString, "<", "")
fString = Replace(fString, ">", "")
chkString = fString
exit function
end If
if fField_Type = "preview" then
if strAllowHTML <> "1" then
fString = HTMLEncode(fString)
end if
end If

  if fField_Type <> "message"  then
fString=saveForumCode(fString,fField_Type)
  End if
ChkString = fString
end Function

Function doMsgCode(fString)
' New function by Hawk92 - source code box mod - 11-2004
' This function processes messages that have code in them
' This will parse the message and append html to generate the codebox
' Non code portions of the string are passed through the normal SaveForumCode Function
'
' This is the end string for the codebox
endstr="[/@@]</textarea></td></tr></table>
[/code]

Çevrimdışı AdmiN

  • Genel Sorumlu
  • Administrator
  • *
  • İleti: 7977
  • Puan: 750
  • Cinsiyet: Bay
  • ~|| Bilginin Gücü ||~
    • Kişisel Web Sitem
-Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #16 : Nisan 08, 2007, 00:07:19 ÖÖ »
Kodlama bilgin yoksa seni ço uğraştırır.Ben bu kodları denemedim.Kodları ekleyen arkadaş ta siteye pek fazla uğramıyor sanırım.

Çevrimdışı bratmi

  • İleti: 112
  • Puan: 0
  • Cinsiyet: Bay
-Youtube videoları veya swf uzantılı dosyaları forumda kullanmak
« Yanıtla #17 : Nisan 08, 2007, 00:42:21 ÖÖ »
tesekur ederim admin bilgilendirmen icin

 

Benzer Konular

  Konu / Başlatan Yanıt Son İleti
10 Yanıt
2115 Gösterim
Son İleti Ocak 06, 2007, 01:03:27 ÖÖ
Gönderen: pcalav
1 Yanıt
849 Gösterim
Son İleti Nisan 29, 2007, 18:49:09 ÖS
Gönderen: AdmiN
1 Yanıt
2030 Gösterim
Son İleti Haziran 06, 2009, 22:47:51 ÖS
Gönderen: Ozgur Hicyilmaz
1 Yanıt
951 Gösterim
Son İleti Şubat 27, 2009, 22:46:01 ÖS
Gönderen: AdmiN
2 Yanıt
1325 Gösterim
Son İleti Mayıs 27, 2009, 12:21:49 ÖS
Gönderen: musti-jan