文章摘要
这篇文章介绍了一个Visual Basic脚本函数（Sub SelPlay）用于验证视频文件的扩展名。该函数通过提取输入字符串中的扩展名（isExt），并将其与预定义的合法扩展名列表（Exts）进行比较。如果扩展名不在列表中，函数将返回“非法视频文件”的提示信息；如果合法，则进入Select Case结构进一步处理。然而，代码中Select Case的分支部分似乎没有实际内容，可能需要修复。整体来看，该脚本的功能是用于视频文件扩展名的合法性验证。
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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
