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

<% ‘****************************** ‘函数:SelPlay(strUrl,strWidth,StrHeight) ‘参数:strUrl,动画视频路径;strWidth,视频高度;StrHeight,视频高度 ‘作者:阿里西西 ‘日期:2007/7/13 ‘描述:取得用户真实IP,对代理地址仍然有效;返回值:文本类型的IP地址 ‘示例:<%=SelPlay(“mov.swf”,”120′′,”90′′)%> ‘****************************** Sub SelPlay(strUrl,strWidth,StrHei