网页视频播放器程序代码

2022-05-19 15:55:30 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《网页视频播放器程序代码》，欢迎阅读！
播放器,代码,网页,程序,视频

网页视频播放器程序代码

(通用代码),支持avi,wmv,asf,mov,rm,ra,ram等

在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...

思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用.. 现发布源代码如下:

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

"

id=MediaPlayer

src="&strUrl&"

width="&strWidth&"

height="&strHeight&" loop=""false"" autostart=""true"">" Case "mov","rm","ra","ram" Response.Write

"