ASP视频播放代码实现及支持格式

TXT文件

下载需积分: 44 | 2KB | 更新于2024-09-13 | 48 浏览量 | 举报 1 收藏

立即下载

这是一个关于ASP（Active Server Pages）编程的资源，提供了一段用于在网页上播放视频的代码。这段代码经过了测试，可以确保其可用性。用户可以放心下载并应用到自己的项目中。 ASP视频播放代码允许开发者在基于ASP的网页上嵌入视频内容，支持多种视频格式，如avi、wmv、asf、mov、rm、ra和ram。代码首先检查提供的视频URL是否包含有效的扩展名，然后根据不同的视频格式选择合适的HTML标签和参数来创建视频播放器。代码中的`SubSelPlay`函数接收三个参数：`strUrl`（视频文件的URL）、`strWidth`（播放器的宽度）和`StrHeight`（播放器的高度）。函数首先通过`LCase(Mid(strUrl, InStrRev(strUrl, ".") + 1))`获取URL的最后一个部分，即视频文件的扩展名，并将其转换为小写。接着，它检查这个扩展名是否在支持的视频格式列表`Exts`中。如果不在，函数会输出提示信息“ WHETHER THE VIDEO FILE”。如果视频扩展名有效，代码会进入`SelectCase`语句，根据不同的视频格式生成相应的HTML标签。对于avi、wmv、asf和mov这四种格式，代码使用`<EMBED>`标签来创建一个内联媒体播放器，设置`src`属性为视频URL，`width`和`height`分别设置为播放器的宽度和高度，`loop`设为`false`表示不循环播放，`autostart`设为`true`表示视频自动开始播放。对于mov、rm、ra和ram格式的视频，代码使用`<OBJECT>`标签创建一个ActiveX控件来播放视频。`<OBJECT>`标签内包含了多个`<PARAM>`标签，这些参数定义了播放器的行为，如播放器的尺寸、视频的源URL、是否自动开始播放等。其中，`classid`属性用于指定ActiveX控件的类ID，这里是RealPlayer的控件标识。这段代码的用途是在不支持Flash或其他现代视频播放器技术的旧系统或浏览器环境中，为ASP网站提供基本的视频播放功能。它依赖于客户端计算机上安装了相应的媒体播放软件（如Windows Media Player或RealPlayer）来播放视频。虽然这种方法在现代Web开发中可能不再常见，但对于维护旧系统或兼容老式浏览器的场景仍然有价值。

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 "<EMBED id=MediaPlayer src="&strUrl&" width="&strWidth&" height="&strHeight&" loop=""false"" autostart=""true""></EMBED>"
Case "mov","rm","ra","ram"
Response.Write "<OBJECT height="&strHeight&" width="&strWidth&" classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA>"
Response.Write "<PARAM NAME=""_ExtentX"" VALUE=""12700"">"
Response.Write "<PARAM NAME=""_ExtentY"" VALUE=""9525"">"
Response.Write "<PARAM NAME=""AUTOSTART"" VALUE=""-1"">"
Response.Write "<PARAM NAME=""SHUFFLE"" VALUE=""0"">"
Response.Write "<PARAM NAME=""PREFETCH"" VALUE=""0"">"
Response.Write "<PARAM NAME=""NOLABELS"" VALUE=""0"">"
Response.Write "<PARAM NAME=""SRC"" VALUE="""&strUrl&""">"
Response.Write "<PARAM NAME=""CONTROLS"" VALUE=""ImageWindow"">"
Response.Write "<PARAM NAME=""CONSOLE"" VALUE=""Clip"">"
Response.Write "<PARAM NAME=""LOOP"" VALUE=""0"">"
Response.Write "<PARAM NAME=""NUMLOOP"" VALUE=""0"">"
Response.Write "<PARAM NAME=""CENTER"" VALUE=""0"">"
Response.Write "<PARAM NAME=""MAINTAINASPECT"" VALUE=""0"">"
Response.Write "<PARAM NAME=""BACKGROUNDCOLOR"" VALUE=""#000000"">"

下载后可阅读完整内容，剩余1页未读，立即下载