asp 网页视频播放器程序代码(通用代码),支持avi,wmv,asf,mov,rm,ra,ram等（asp 网页视频播放器程序代码）一篇读懂

文章摘要

本文介绍了一个名为`SubSelPlay`的函数，用于判断视频文件的格式合法性。函数接受三个参数：`strUrl`（视频文件路径）、`strWidth`和`StrHeight`（视频宽度和高度）。通过以下步骤判断视频格式： 1. 从`strUrl`中提取扩展名`isExt`并转换为小写。 2. 定义合法视频格式列表`Exts`，包括`avi,wmv,asf,mov,rm,ra,ram`等。 3. 检查`isExt`是否在`Exts`列表中： - 如果不在列表中，输出“非法视频文件”。 - 如果在列表中，根据扩展名的类型（如`avi,wmv,asf,mov`或`mov,rm,ra,ram`）执行相应的处理。该函数主要用于过滤和验证视频文件的格式，确保其合法性和兼容性。

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 “”

End Select

End If

End Sub