您正在使用IPV4(3.235.184.215)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年99元       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 端午节 0
2021年 建党节 17
2022年 元 旦 201
2022年 春 节 232
 
  • 您现在的位置:首页 >> ASP >> 内容

    asp 实现视频显示的效果函数

    内容摘要: %'******************************'函数:SelPlay(strUrl,strWidth,StrHeight)'参数:strUrl,动画视频路径;strWidth,视频高度;StrHeight,视频高度'作者:阿里西西'日期:2007/7/13'描述:取得用户真实IP,对代理地址仍然有效;返回值:文本类型的IP地址'示例:%=S......

      <%

    '******************************

    '函数:SelPlay(strUrl,strWidth,StrHeight)

    '参数:strUrl,动画视频路径;strWidth,视频高度;StrHeight,视频高度

    '作者:阿里西西

    '日期:2007/7/13

    '描述:取得用户真实IP,对代理地址仍然有效;返回值:文本类型的IP地址

    '示例:<%=SelPlay("mov.swf","120","90")%>

    '******************************

    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,swf"

    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>"

    Case "swf"

    Response.Write "<embed src="""&strUrl&""" width="""&strWidth&""" height="""&strHeight&""" type=""application/x-shockwave-flash"" play=""true"" loop=""true"" menu=""true""></embed>"

    Case else

    Response.Write "<img src=""/IMages/NoDV.JPG"" />"

    End Select

    End If

    End Sub

    %>

    手机扫描二维码可直达本页
      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/6/2 发布时间:11:01:28 点击:177 录入:齐天大圣
  • 上一篇:十进制代码转换为二进制代码
  • 下一篇:asp 关键词高亮显示(不区分大小写)
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.35 Build 21.06.10(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021