php万能播放器代码,网页视频播放器程序代码（通用代码）

网页视频播放器程序代码(通用代码)

更新时间：2006年07月10日 00:00:00   作者：

'***********************************************

'函数名：SelPlay

'作  用：在网页中播放视频

'参  数：strUrl －－－－ 视频地址

strWidth －－－显示视频宽

strHeight －－－显示视频高

'***********************************************

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 "