İçerikler ile ilgili her türlü sorunuzu ASP İndir Forum altında sorabilirsiniz
|
|
|
Oy:   |
 |
|
|
İçeriğin adı |
:
 Edyay Webwiz Youtube (tr)
(Test Et)
|
| |
|
|
Hit |
:
735 |
|
Bugün aldığı Hit |
:
0 |
|
Telif |
:
Edyay
/ Bu
yapımcıya ait diğer içerikleri göster |
|
Eklenme tarihi |
:
21 Haziran 2007, Perşembe |
|
Boyut |
: 21,5 KB |
|
Fiyatı |
: Ücretsiz |
|
Puan |
:
44 |
|
Sıra |
:
2353 |
|
Oy |
:
Bu içeriğe 8 kişi oy verdi. Oy ortalaması: 4,4 |
|
Paylaş |
|
|
|
|
Açıklama : |
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) |
|
|
