上传时间：
网页自动操作通用工具自动识别验证码
56官方微信
扫一扫发现精彩网页视频播放器程序代码通用代码
稿源：中国站长站
在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...
思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用..
现发布源代码如下：
以下为引用的内容：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,ram&If 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&& 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&&&End SelectEnd IfEnd Sub
以下为引用的内容：Call&SelPlay(DvUrl,280,220)
本文收集整理自互联网,若您是原文作者,请来信更改作者及出处Post#chinaz.com（把#改为@）
有好的文章希望站长之家帮助分享推广，猛戳这里
本网页浏览已超过3分钟，点击关闭或灰色背景，即可回到网页腾讯视频嵌入网页的方法 腾讯视频嵌入网页代码
时间： 11:03:07来源：作者：gm(0)
想要在网页中嵌入优酷、土豆、爱奇艺的视频很简单，但是现在将腾讯视频嵌入网页后却不能正常显示，而腾讯视频现在的资源也越来越多，想直接将腾讯视频嵌入到网页中怎么操作呢？其实只需要一段代码就可以了。首先，提供一个腾讯视频嵌入网页代码。我们只需替换这段代码的一部分就可以了。&p style=&text-align: center&&&iframe class=&video_iframe& style=&z-index:1;& src=&http://v.qq.com/iframe/player.html?vid=t01662frswa&width=500&height=375&auto=0& allowfullscreen=&& frameborder=&0& height=&375& width=&500&&&/iframe&&/p&找到一段腾讯视频，比如地址：http://v.qq.com/boke/page/d/0/i/d0163kxz8di.html这是一段《工业机器人工作场景》的视频，将这个网址的蓝色部分，替换到上面给出的代码中的红色部分，就可以了。最终效果为：&p&style=&text-align: center&&&iframe class=&video_iframe& style=&z-index:1;& src=&http://v.qq.com/iframe/player.html?vid=d0163kxz8di&width=500&height=375&auto=0& allowfullscreen=&& frameborder=&0& height=&375& width=&500&&&/iframe&&/p&很简单吧！下面是腾讯视频嵌入网页的效果：网页视频播放器程序代码（通用代码）_网页播放器
作者：用户
本文讲的是网页视频播放器程序代码（通用代码）_网页播放器，
'*********************************************** '函数名：SelPlay '作
用：在网页中播放视频 '参
数：strUrl －－－－ 视频地址
'*********************************************** '函数名：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 "&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"" 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&"
End Select End If End Sub
调用程序代码 Call SelPlay(DvUrl,280,220)
以上是云栖社区小编为您精心准备的的内容，在云栖社区的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索网页视频播放器
通用网页播放器、电台播放器代码 通用、网页播放器代码、网页视频播放器代码、网页音乐播放器代码，以便于您获取更多的相关知识。
弹性可伸缩的计算服务，助您降低 IT 成本，提升运维效率
40+云计算产品，6个月免费体验
稳定可靠、可弹性伸缩的在线数据库服务，全球最受欢迎的开源数据库之一
云服务器9.9元/月，大学必备
云栖社区(yq.aliyun.com)为您免费提供相关信息，包括
，所有相关内容均不代表云栖社区的意见！网站视频代码(通用代码)_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&100W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
网站视频代码(通用代码)
阅读已结束，下载本文需要
定制HR最喜欢的简历
你可能喜欢}