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