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

【原文】

在浩瀚的星空下，有一位追梦人，他的梦想如同璀璨的星光，照亮了他前行的道路。他走在自己的路上，尽管前路坎坷，但他从未放弃过自己的梦想。他一直在追逐着自己的梦想，不断前行，不断奋斗。他的故事，是一部充满艰辛和努力的奋斗史。

在广袤无垠的星空之下，有一位勇敢追梦的人，他的梦想犹如夜空中最明亮的星光，为他照亮了前行的道路，为他指明了方向。他坚毅前行，行走在属于自己的道路上，即使面临重重困难和挑战，他的心中依然燃烧着对梦想的执着追求。

他是一颗永不言弃的星辰，挑战着星辰大海中的每一个未知。他的梦想如同翅膀，带他飞向未知的远方。他奋力追逐着自己的梦想，无论遇到多少艰难险阻，他都会勇往直前，不断前行。他的故事如同一部壮丽的史诗，记录着他的坚韧和毅力，展现着他的奋斗和拼搏。

他的故事不仅仅是他个人的传奇，更是激励人心的典范。他告诉我们，只要有梦想，有勇气，有毅力，就能战胜一切困难，实现自己的梦想。他的故事是一部充满热血与激情的奋斗史，是一部充满梦想与希望的励志故事。让我们一同见证他的辉煌，一同感受他的激情与力量，一同为他的梦想加油助力！

函数SelPlay(strUrl, strWidth, StrHeight)介绍

作者：阿里西西

日期：2007/7/13

说明：此函数用于获取用户的真实IP地址，即使通过代理也能有效获取。返回值是文本类型的IP地址。

示例：SelPlay("mov.swf","120","90")

Sub SelPlay(strUrl, strWidth, StrHeight)

我们判断输入的视频路径strUrl是否非空。如果非空，我们获取其文件扩展名isExt。合法的视频文件扩展名包括avi、wmv、asf、mov、rm、ra、ram和swf。对于每一种视频格式，我们将嵌入相应的代码以在网页上播放视频。下面是具体的实现过程：

如果视频文件是avi、wmv、asf或mov格式，我们将使用EMBED标签来嵌入视频。如果视频是mov、rm、ra、ram格式，我们使用OBJECT标签来嵌入视频。对于swf格式的视频，我们同样使用embed标签来嵌入。如果输入的视频路径不是这些合法的格式之一，我们将返回“非法视频文件”的提示信息。如果未指定视频格式或视频路径为空，我们将返回一个默认的图片提示。下面是具体的代码实现：

如果strUrl不为空，则获取其扩展名isExt。我们定义了一组合法的视频文件扩展名Exts。如果视频文件的扩展名不在这个列表中，我们返回“非法视频文件”的错误提示。否则，我们根据视频文件的类型选择不同的播放方式。对于avi、wmv等类型的视频文件，我们使用EMBED标签进行嵌入播放；对于rm等类型的视频文件，我们使用OBJECT标签进行嵌入播放；对于swf类型的视频文件，我们同样使用embed标签进行嵌入播放。对于其他的非指定格式的视频文件或空路径，我们返回一个默认的图片提示。整个过程中，我们通过Response.Write方法将生成的HTML代码输出到网页上。我们使用Render方法将生成的HTML代码渲染到网页上。通过这样的方式，我们可以方便地实现网页视频的播放功能。请注意，以上代码仅供参考和学习目的使用。如果您在商业项目中使用以上代码，请务必遵守相关的版权法规并确保合法使用相关资源。