网页视频播放器程序代码.docVIP

网页视频播放器程序代码(通用代码),支持avi,wmv,asf,mov,rm,ra,ram等在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手... 思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用.. 现发布源代码如下: Sub SelPlay(strUrl,strWidth,StrHeight)Dim Exts,isExtIf strUrl Then?? isExt = LCase(Mid(strUrl,InStrRev(strUrl, .)+1))Else?? isExt = End IfExts = avi,wmv,asf,mov,rm,ra,ramIf Instr(Exts,isExt)=0 Then?Response.write 非法视频文件Else?Select Case isExt??Case avi,wmv,asf,mov???Response.write EMBED id=MediaPlayer src=strUrl width=strWidth height=strHeight loop=false autostart=true/EMBED??Case mov,rm,ra,ram???Response.Write OBJECT height=strHeight width=strWidth classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA???Response.Write PARAM NAME=_ExtentX VALUE=12700???Response.Write PARAM NAME=_ExtentY VALUE=9525???Response.Write PARAM NAME=AUTOSTART VALUE=-1???Response.Write PARAM NAME=SHUFFLE VALUE=0???Response.Write PARAM NAME=PREFETCH VALUE=0???Response.Write PARAM NAME=NOLABELS VALUE=0???Response.Write PARAM NAME=SRC VALUE=strUrl???Response.Write PARAM NAME=CONTROLS VALUE=ImageWindow???Response.Write PARAM NAME=CONSOLE VALUE=Clip???Response.Write PARAM NAME=LOOP VALUE=0???Response.Write PARAM NAME=NUMLOOP VALUE=0???Response.Write PARAM NAME=CENTER VALUE=0???Response.Write PARAM NAME=MAINTAINASPECT VALUE=0???Response.Write PARAM NAME=BACKGROUNDCOLOR VALUE=#000000???Response.Write /OBJECT???Response.Write BR???Response.Write OBJECT height=32 width=strWidth classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA???Response.Write PARAM NAME=_ExtentX VALUE=12700???Response.Write PARAM NAME=_ExtentY VALUE=847???Response.Write PARAM NAME=AUTOSTART VALUE=0???Response.Write PARAM NAME=SHUFFLE VALUE=0???Response.Write PARAM NAME=PREFETCH VALUE=0???Response.Write PARAM NAME=NOLABELS VALUE=0???Response.Write PARAM NAME=CONTROLS VALUE=ControlPanel,StatusBar???Response.Write PARAM NAME=CONSOLE VALUE=Clip???Response.Write PARAM NAME=LOOP VAL