文章摘要
本文介绍了一个名为`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 “”
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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
相关文章
