ASP根据提交的视频格式进行正确的播放的函数

原创 2007年09月28日 08:48:00

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 

相关文章推荐

如何使用java代码进行视频格式的转换(FLV)

一,前言     在给网页添加视频播放功能后,发现上传的视频有各种格式,那么就需要将他么转换成FLV,以很好的支持在线视频播放。 二,准备     工具包    http://pan.baidu...

【JAVA】JAVA使用ffmpeg进行视频格式转换以及截图

JAVA 处理视频文件,需要用到 ffmpeg  这个工具。不需要依赖jar包。无论是在windows服务器还是linux服务器,想要使用 ffmpeg 都需要先安装。 附上Linux下  ...

如何使用java代码进行视频格式的转换(FLV)

如何使用java代码进行视频格式的转换(FLV)

C# asp.net 视频格式转换成flv

  • 2017年11月08日 14:01
  • 11.67MB
  • 下载

JS控制HTML5媒体播放与暂停,及Chrome兼容的视频格式

嗨!嗨!嗨!嗨起来正常播放最近写了个小Dome,在Chrome和微信上播放视频和音乐,并通过按钮控制他们的播放和暂停。 经测试,目前Chrome和微信对 Html5的video/audio Tag支...

openframeworks播放mp4,avi的视频格式

在我们使用openframeworks的videoPlayer和DirectShowPlayer的时侯可能会出现一下几个问题: 1.无法播放avi,mp4等格式的一些视频 2.无法播放经过...

asp.net 视频格式转换成flv格式

  • 2017年11月02日 13:55
  • 11.67MB
  • 下载

关于MP4视频在浏览器上无法播放的问题(没有找到支持的视频格式和mime类型)

最近做了一个上传视频并预览的页面,只支持上传扩展名为‘.mp4’的视频,但是使用过程中发现了一个问题: 同样是‘.mp4’文件,有的上传后可以正常播放,而有的则不能正常播放。在FireFox...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP根据提交的视频格式进行正确的播放的函数
举报原因:
原因补充:

(最多只允许输入30个字)