网页视频播放器程序代码（通用代码）_网页播放器

'***********************************************
'函数名：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)

获取音乐文件的播放时间及当前进度

首先将以下代码加入网页中： <spanid="text"></span> functioncurrentposition(){ if(d... [阅读全文]

javascript控制realplayer对象使用

//控制开始 <inputtype=buttonvalue=playonclick="javademo.doplay()"> <inputty... [阅读全文]

内嵌式RealPlayer播放器的参数含义

内嵌式realplayer播放器的参数含义内嵌式realplayer播放器的参数含义参数：autostart 属性：true或是false 作用：指定是否自... [阅读全文]

功能齐全的Real播放器

测试了一下，感觉非常好 [阅读全文]

多首歌曲连续播放之asx播放列表文件

经常看到一些音乐站点有这样的一个功能：任意选择页面中歌曲名称前的复选框，单击播放按钮即可实现这多个被选择歌曲的连续播放。如果是单个音频文件在文档中播放，使用常... [阅读全文]

图片自动播放器脚本之家修正

图片自动播放器代码网修正,可以兼容ff,发现些小问题,希望大家多多讨论,使用方法呢只需修改上面的地方即可,加了图片预载,转载请写明出处,剩下的大家来完善吧 [阅读全文]


验证码：

验证码：

网页视频播放器程序代码（通用代码）

2024年05月18日 • 网页播放器 •我要评论

相关文章:

发表评论