下载安卓APP箭头
箭头给我发消息

客服QQ:3315713922

网页视频播放器程序代码通用代码的介绍

作者:课课家     来源: http://www.kokojia.com/点击数:872发布时间: 2015-11-09 18:31:00

标签: 网页视频视频教程HTML

大神带你学编程,欢迎选课

欢迎来到小编的文章进行学习阅读,想必大家又有很多问题吧,在这里会有你想要收获的答案,请大家慢慢学习吧!计算机编程语言
在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...
思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用..
现发布源代码如下:

以下为引用的内容:
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 ""
  Case "mov","rm","ra","ram"
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write "ASPECT"" VALUE=""0"">"
   Response.Write ""
   Response.Write "
"
   Response.Write "
"
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write "
"
 End Select
End If
End Sub

编程语言排行榜上
编程语言(programming language),是用来定义计算机程序的形式语言。它是一种被标准化的交流技巧,用来向计算机发出指令。一种计算机语言让程序员能够准确地定义计算机所需要使用的数据,并精确地定义在不同情况下所应当采取的行动。[1]
最早的编程语言是在电脑发明之后产生的,当时是用来控制提花织布机及自动演奏钢琴的动作。在电脑领域已发明了上千不同的编程语言,而且每年仍有新的编程语言诞生。很多编程语言需要用指令方式说明计算的程序,而有些编程语言则属于声明式编程,说明需要的结果,而不说明如何计算。

调用方式:

以下为引用的内容:
Call SelPlay(DvUrl,280,220)


本文收集整理自互联网,若您是原文作者,请来信更改作者及出处Post#chinaz.com(把#改为@)c语言编程入门
更多视频课程文章的课程,可到课课家官网查看。我在等你哟!!!

赞(118)
踩(4)
分享到:
华为认证网络工程师 HCIE直播课视频教程