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

<
******************************
'function: SelPlay (strUrl, strWidth, StrHeight)
参数：查询、视频动画路径；strwidth，视频的高度；StrHeight，视频的高度
作者：Ali Cici
日期：2007 7 13
描述：获取用户真正的IP，对代理地址仍然有效；返回值：文本类型的IP地址
的例子：
******************************
Sub SelPlay（查询、strwidth，StrHeight）
昏暗的EXT，isext
如果查询<>然后
isext = 1例（MID（查询（查询，instrrev，，）+ 1）））
其他的
isext =
最后如果
EXT =AVI，WMV，ASF，MOV、RM、RA、RAM、SWF
如果Instr（Extensins，isext）= 0
response.write 非法视频文件
其他的
选择案例isext
案例AVI
响应。写
案例MOV
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
响应。写
案例SWF
响应。写
其他案件
响应。写
最后选择
最后如果
端子
%>