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

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