Yapimcinin açiklamasi: Web wiz forum sitelerinden youtube videolarini izlemeye yarar Vidonun altinda 3 adet resim ve download linki yer alir.
Kurulum 2 asamadan olusmaktadir. 1.functions/functions_format_post.asp dosyasina su kodlari eklemek. ( %> dan önce ) function youtube(strMessage) do while inStr(1,strMessage,"[tube]",1)>0 Dim tube_bas,tube_son,adres,kod tube_bas=inStr(1,strMessage,"[tube]",1) tube_son=instr(tube_bas,strMessage,"[/tube]",1) adres=duzenle(mid(strMessage,tube_bas+6,tube_son-tube_bas-6)) kod="
Bu videoyu indirmek için tiklayiniz " strMessage=replace(strMessage,mid(strMessage,tube_bas,tube_son-tube_bas+7),kod) loop youtube=strMessage end function function duzenle(adres) dim baslangic,karakter,kod baslangic=instr(adres,"=")+1 karakter=instr(baslangic,adres,"&") if karakter>0 then kod=mid(adres,baslangic,karakter-baslangic) else kod=mid(adres,baslangic) end if duzenle=trim(kod) End Function 2-forum_posts.asp dosyasina su satiri eklemek. 'If the message has been edited parse the 'edited by' XML into HTML for the post den önce if inStr(1,strMessage,"[TUBE]",1)>0 and inStr(1,strMessage,"[/TUBE]",1)>0 then strMessage=youtube(strMessage)
|