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

随心笔谈2个月前更新 admin
185 00
🌐 经济型:买域名、轻量云服务器、用途:游戏 网站等 《腾讯云》特点:特价机便宜 适合初学者用 点我优惠购买
🚀 拓展型:买域名、轻量云服务器、用途:游戏 网站等 《阿里云》特点:中档服务器便宜 域名备案事多 点我优惠购买
🛡️ 稳定型:买域名、轻量云服务器、用途:游戏 网站等 《西部数码》 特点:比上两家略贵但是稳定性超好事也少 点我优惠购买

文章摘要

本文介绍了一个名为`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

© 版权声明

相关文章