- <%
- '******************************
- '函数: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
- %>
asp 实现视频显示的效果函数
2019-10-12 10:42阿里西西 ASP教程
asp 实现视频显示的效果函数
延伸 · 阅读
- 2019-10-12asp 取得用户真实IP,对代理地址仍然有效的函数
- 2019-10-12asp 通用数据库连接过程函数
- 2019-10-12asp实现图片右键滑轮控制大小的函数
- 2019-10-12asp 字符串截取函数
- 2019-10-12asp下实现格式化文件大小以MB显示的函数
- 2019-10-12asp 下用正则表达式检测邮箱格式的函数
精彩推荐
- ASP教程
js 不用重复检测浏览器提高效率
使用了两个匿名函数,仅在初始化时判断一次,后每次调用无须判断。效率相对高一些。...
- ASP教程
asp(vbs)fso OpenTextFile方法参数说明
OpenTextFile是asp语言中的一个方法,打开指定的文件并返回一个 TextStream 对象,可以通过这个对象对文件进行读、写或追加 ...
- ASP教程
asp提示Server 对象 错误 ASP 0178 : 80070005
今天帮客户配置好服务器以后测试程序发现asp程序提示Server 对象 错误 ASP 0178 : 80070005,经测试是因为权限问题。...
- ASP教程
ASP 连接 SQL SERVER 2008的方法
现在很多朋友使用了sql2008,但原来2000的代码已经无法使用了,这里分享下asp连接sql2008的方法,需要的朋友可以参考下...
- ASP教程
asp 取一个数的整数 但不是四舍五入,只要有小数,就取大于这
asp 取一个数的整数 但不是四舍五入,只要有小数,就取大于这个数的整数...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp 判断是否为搜索引擎蜘蛛的代码
下面的代码注意是针对搜索引擎做出一些适当的内容显示,但这样对于seo不好。不建议使用。作为学习参考。...
- ASP教程
asp批量添加修改删除操作示例代码
这篇文章主要介绍了asp批量添加修改删除操作示例,包括js客户端数据有效性验证,服务器端自己添加验证,需要的朋友可以参考下...