NewsFeed   -
KỸ THUẬT LẬP TRÌNH
S  M  L
Embed video player in text - VB
Protected Function GetYouTubeScript(ByVal id As String) As String
        Dim scr As String = " "
        scr = scr & " "
        scr = scr & " "
        scr = scr & " "
        scr = scr & "         scr = scr & "type='application/x-shockwave-flash' allowscriptaccess='always' "
        scr = scr & "allowfullscreen='true' width='320' height='240'> "
        scr = scr & "
"
        Return scr
End Function

UASGE:
If Not IsDBNull(ds.Tables(0).Rows(0).Item("EmbedVideo")) Then
                    ds.Tables(0).Rows(0)("NewsData") = Replace(ds.Tables(0).Rows(0)("NewsData"), "AYE", "
" & GetYouTubeScript(ds.Tables(0).Rows(0).Item("EmbedVideo")) & "
")
End If
- 04/18/2011
Search:
NGHỆ THUẬT - PHIM - ẢNH

HÌNH ẢNH ĐẸP

Photo

Album: Duyên Dáng
< July 2011 >
Sun Mon Tue Wed Thu Fri Sat
26 27 28 29 30 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31 1 2 3 4 5 6
More... (All Collections)
H2O NEWS

Everything Meaning To You!

Email: [email protected]

Website: emty.org

Liên hệ

Đặt làm trang chủ

@