网页视频播放器程序代码(通用代码)

更新时间：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

最新评论