网页视频播放器程序代码

网页视频播放器程序代码(通用代码),支持avi,wmv,asf,mov,rm,ra,ram等 '*********************************************** '函数名：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 " " Case "mov","rm","ra","ram" Response.Write " " Response.Write "
" Response.Write " " End Select End If End Sub 调用 Call SelPlay(DvUrl,280,220)