站长网页视频播放器程序代码通用代码

2019-07-11 13:19:32 来源: 塔城信息港

09:24 来源:中国站长站 :小孩子【纠错】人评论

A-A+ 怎么开淘宝店 站优化方法 创业如何获得投资 小米note顶配版评测 LOL活动

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

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

现发布源代码如下:

以下为引用的内容:Sub SelPlay(strUrlstrWidthStrHeight)Dim ExtsisExtIf strUrl Then isExt = LCase(Mid(strUrlInStrRev(strUrl .)+1))Else isExt = End IfExts = aviwmvasfmovrmraramIf Instr(ExtsisExt)=0 ite 非法视频文件ElseSelect Case isExt Case aviwmvasfmov ite EMBED id=MediaPlayer src=strUrl width=strWidth height=strHeight loop=false autostart=true/EMBED Case movrmraram ite OBJECT height=strHeight width=strWidth classid=clsid:CFCDAABEcf-B84B-0020AFBBCCFA ite PARAM NAME=_ExtentX VALUE=12700 ite PARAM NAME=_ExtentY VALUE=9525 ite PARAM NAME=AUTOSTART VALUE=-1 ite PARAM NAME=SHUFFLE VALUE=0 ite PARAM NAME=PREFETCH VALUE=0 ite PARAM NAME=NOLABELS VALUE=0 ite PARAM NAME=SRC VALUE=strUrl ite PARAM NAME=CONTROLS VALUE=ImageWindow ite PARAM NAME=CONSOLE VALUE=Clip ite PARAM NAME=LOOP VALUE=0 ite PARAM NAME=NUMLOOP VALUE=0 ite PARAM NAME=CENTER VALUE=0 ite PARAM NAME=MAINTAINASPECT VALUE=0 ite PARAM NAME=BACKGROUNDCOLOR VALUE=#000000 ite /OBJECT ite BR ite OBJECT height=32 width=strWidth classid=clsid:CFCDAABEcf-B84B-0020AFBBCCFA ite PARAM NAME=_ExtentX VALUE=12700 ite PARAM NAME=_ExtentY VALUE=OLE VALUE=Clip ite PARAM NAME=LOOP VALUE=0 ite PARAM NAME=NUMLOOP VALUE=0 ite PARAM NAME=CENTER VALUE=0 ite PARAM NAME=MAINTAINASPECT VALUE=0 ite PARAM NAME=BACKGROUNDCOLOR VALUE=#000000 ite /OBJECTEnd SelectEnd IfEnd Sub

调用方式:

以下为引用的内容:CallSelPlay(DvUrl280220)

本文收集整理自互联若您是原文作者请来信更改作者及出处Post#chinaz(把#改为@) 查看更多相似文章

微店装修软件
微信一键生成小程序
你知道,seo营销是什么?
本文标签: