admin 管理员组文章数量: 1103806
网页视频播放器程序代码(通用代码)
更新时间：2006年07月10日 00:00:00 作者：
'***********************************************
'函数名：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)
相关文章
在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...2008-11-11
功能齐全的Real播放器...2006-11-11
windowsmediaplay中控制从wmv的指定时间开始播放，指定时间停止播放2008-11-11
本文介绍下，一些常用的网页在线视频播放代码，有需要的朋友可以参考下2014-04-04
在网页中(所有网页都由html组成，所以说下面的代码，可以用于任何网页，部分限制了html的网页除外。2010-04-04
这篇文章主要介绍了防止SyntaxHighlighter.js的代码高亮时闪一下的解决方法,需要的朋友可以参考下2020-03-03
[翻译] JW Media Player 中文文档...2007-11-11
超级REAL视频播放器...2006-06-06
网页播放器Object使用详解，对于制作网页播放器的朋友可以参考下。2010-03-03
符合web标准的媒体播放器代码...2006-07-07
最新评论
版权声明：本文标题：php万能播放器代码,网页视频播放器程序代码（通用代码） 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.520sys.cn/xp/1754992749a1454511.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论