ウェブビデオプレーヤープログラムコード(共通コード)
4052 ワード
*********************関数名:SelPlay'を作成します。 使って:ホームページの中でビデオを放送します。 数:ストリップ ---- ビデオアドレス strewidth ---ビデオの幅を表示 stright ---動画を表示します。 SelPlay(strul,strewidth,StrHeight)Dim Exts,isExt If strul <> "" The n isExt = LCase(Mid(strul,InStarRev) ".")+1)Else isExt = "" End If Exts = "avi,wmv,asf,mov,rm,ラ,ram"If Instr(Exts,isExt)=0 The n Resonse.write "違法ビデオファイル「Else」 プロジェクト Case isExt Case "avi","wmv","asf","mov" Resonse.write "