Youtube videoları veya swf uzantılı dosyaları forumda kullanmak

[hozel]

inc_functions.asp dosyasının  yaklaşık 853. satırandaki kodlarda aşağıdaki şekilde küçük bir değişiklikle swf uzantılı dosyalar ve youtube benzeri sitelerin video url lerini kullanarak forum sayfalarında video sunumları yapabilirsiniz. Buradan sonrası hayal gücünüze kalmış.
Aşağıdaki kodlarla yalnız admin video ekelyebilir. Admin dışında yetki vermek güvenli olmayabilir.

[swf]http://www.youtube.com/v/7Unl9sRImUg[swf kapat] şeklinde forum editöründen metin girişi yaptığınızda video görüntüleniyor.
[swf]xxxx[swf kapat] yerine [video]xxxx[video kapat] şeklinde yazabilirsiniz. . Youtube videoları gündemde olduğundan swf uzantılı dosyalar önplana çıkmıştı. Ancak aynı şekilde vmw, mpg vs. uzantılı video formatlarınıda kullanabilirsiniz.


Örnek için linke tıklayın : http://tasucu.org/tweb-tr/forum.asp?FORUM_ID=119&CAT_ID=32&Forum_Title=KOM%DDK+VE+%DDLG%DDN%C7+V%DDDEOLAR


----------------------------------------------------------------------------
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=""400"", height=""325"">",1,-1,1)

         
      String=replace(fString,"type=""","")
         
         
   end if
         
         fString=replace(fString,"type=""","")
      
      
      
         'fString = HTMLEncode(fString)
         fString=replace(fString,"'","''")
         fString=replace(fString,"%&#62;","%&gt;")
         fString=replace(fString,"&#60;%","&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 bu kodlar serbest.
            
         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=&#34;Refresh&#34;","http_equiv=Ref_resh")
         fString=replace(fString,"alert(","al ert(")
           'ChkString = fString
           ChkString = chkHtmlCode(fString)
         exit function
      end if
-------------------------------------------------------------------------------------

[Dinç]

inc_functions.asp dosyasında şu değişikliği yapmayı deneyin:
fString=replace(fString ,"[swf]","<embed src=""",1,-1,1)
fString=replace(fString ,"[swf kapat]",""" width=""450"", height=""300"">",1,-1,1)

Tırnak sayıları konusunda emin değilim. Şimdilik bu kadar anlıyorum asp kodlarından.

[demir]

Paylasimin icin tesekkur ederim Hozel ama ayrintili anlatirmisin bu kodlari ekleyecez mi yoksa siteden bu kodlari bulup degistirecez mi ben aradim 853 te falan bulamadim

[Dinç]

Bu kodları inc_functions.asp dosyasına ekleyeceksiniz.

Aslında yazı paneline yeni bir form eklense ve veritabanına da yeni bir tablo konulsa, formda genişlik ve yükseklik ile adres satırları olsa. gösterim sayfasına da veritabanından bu bilgiler çağırılsa sanırım sorun kalmaz. Bunu gösterim tablosuna "if" döngüsüyle ekleyebiliriz. Biraz zaman alır ama olmaz diye bir şey yok.

[demir]

arkadaslar dediklerinizi yapmama ragmen olmadi rica etsem duzenlenmis dosyayi siteye ekleseniz daha iyi olmaz mi tesekkurler

[hozel]

inc_functions.asp dosyasında şu değişikliği yapmayı deneyin:
fString=replace(fString ,"[swf]","<embed src=""",1,-1,1)
fString=replace(fString ,"[swf kapat]",""" width=""450"", height=""300"">",1,-1,1)

Tırnak sayıları konusunda emin değilim. Şimdilik bu kadar anlıyorum asp kodlarından.

Evet Dinç daha güzel ifade etmiş. Bu şekliye denedim artık video bouyutu için köşelerinden çekiştirmeye gerek yok. Kod tashihi için teşekkürler Dinç.

Ama yeni tablo açmak dediğin gibi zahmetli ve deneyim gerektiren bir çalışma olur. Aslında güzelde olur. Bu sadece forumlarda hızlı bir şekilde video eklemek için önermiştim.

Ş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.

[hozel]

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]

[adnancelik]

kenarlarda beyazlıkları
fString=replace(fString ,"[swf]","<embed src=""",1,-1,1)
fString=replace(fString ,"[swf kapat]",""" width=""450"", height=""300""&gt;",1,-1,1)
kodlarında width=""450"" yi arttırarak kaldırmak mümkün olmadı nasıl yapabiliriz.Yapabilen var mı?

[hozel]

kenarlarda beyazlıkları
fString=replace(fString ,"[swf]","<embed src=""",1,-1,1)
fString=replace(fString ,"[swf kapat]",""" width=""450"", height=""300""&gt;",1,-1,1)
kodlarında width=""450"" yi arttırarak kaldırmak mümkün olmadı nasıl yapabiliriz.Yapabilen var mı?

Konu ettiğin youtube vidoları ise 425 x 340 tam oturuyor. Tabiki Farklı ebattaki dosyarın ebatlarını kaynağından ayarlaman gerek.

[adnancelik]

Youtube da video'ları tanımlayan [swf]http://www.youtube.com/watch?v=bsippXAfm6M[swf kapat]   biçimindeki URL kodunu değil embed kodun [swf]http://www.youtube.com/v/bsippXAfm6M[swf kapat] kısmını alıp yazı tipi olarak sadece arial fontu seçmek gerekiyor.