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

随心笔谈11个月前发布 admin
80 0

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

© 版权声明

相关文章