龙威2国语电影在线观看:网页视频播放器程序代码通用代码

来源：百度文库 编辑：九乡新闻网 时间：2024/05/08 07:05:15

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

2007-08-08 09:18:32 来源:中国站长站 【大 中 小】 评论：9 条 我要投稿 收藏本文 分享至微博

站长交易（http://jy.chinaz.com）帮站长赚钱 虚拟主机评测+IDC导航=IDC123.COM

在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...

思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用..

现发布源代码如下：

 

以下为引用的内容：
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 ""
   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

 

调用方式:

 

以下为引用的内容：
Call SelPlay(DvUrl,280,220)
网页视频播放器程序代码通用代码 网页视频播放器代码大全 优酷视频网页播放器代码1 flash播放器通用代码： flash播放器通用代码 常用网页播放器代码 网页音乐播放器代码 网页音乐播放器代码 [网页技巧]网页音乐播放器代码 收集最常用的网页中嵌入视频代码大全,各种各样的网页视频播放器代码. 网页上常用的视频播放器/音乐播放器代码a DIY网页播放器的代码 制做网页播放器代码全集 常用网页嵌入播放器代码------------大全 网页中添加音乐播放器代码 网页中插入视频播放代码全集（2） FlV视频播放器代码。 [界面设计] 关于HTML 音乐播放器代码|音乐播放器网页代码大全(转) 关于HTML 音乐播放器代码|音乐播放器网页代码大全(转) qwqw网页插入音乐播放器的代码大全 网页插入音乐0播放器的代码大全 网页中插入音乐播放器代码mp3 转：网页音乐播放器代码－超级实用主义！ 在网页插入音乐播放器的代码大全