您现在的位置是：网站首页> 编程资料编程资料

网页视频播放器程序代码（通用代码）_网页播放器_

2023-05-27 124人已围观

简介网页视频播放器程序代码（通用代码）_网页播放器_

'***********************************************
'函数名：SelPlay
'作  用：在网页中播放视频
'参  数：strUrl －－－－视频地址
           strWidth －－－显示视频宽
           strHeight －－－显示视频高
'***********************************************
Sub SelPlay(strUrl,strWidth,StrHeight)
Dim Exts,isExt
If strUrl <> "" Then
   isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1))
Else
   isExt = ""
End If
Exts = "avi,wmv,asf,mov,rm,ra,ram"
If Instr(Exts,isExt)=0 Then
Response.write "非法视频文件"
Else
Select Case isExt
  Case "avi","wmv","asf","mov"
   Response.write ""
  Case "mov","rm","ra","ram"
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write "
"
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
End Select
End If
End Sub
调用程序代码
Call SelPlay(DvUrl,280,220)

您可能感兴趣的文章:

浏览器中视频播放器实现的基本思路与代码

上一篇：超级REAL视频播放器_网页播放器_

下一篇：通用网页播放器_网页播放器_

您现在的位置是：网站首页> 编程资料编程资料

网页视频播放器程序代码（通用代码）_网页播放器_

相关内容

点击排行

本栏推荐

猜你喜欢