ウェブビデオプレーヤープログラムコード(共通コード)

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 ""  Case "mov「"rm","ラ","ram"   Resonse.Write "“   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write "「   Resonse.Write "「   Resonse.Write "
“   Resonse.Write "“   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write ""   Resonse.Write "「   Resonse.Write "「 End Select End If End Sub  呼び出しプログラムコードCall SelPlay(DvUrl,280,220)