Yapımcının açıklaması: Web wiz forum sitelerinden youtube videolarını izlemeye yarar Vidonun altında 3 adet resim ve download linki yer alır.
Kurulum 2 aşamadan oluşmaktadır. 1.functions/functions_format_post.asp dosyasına şu kodları 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 tıklayınız " 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 dosyasına şu satırı 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)
|
Hiç yorum yok