您现在的位置是：网站首页> 编程资料编程资料

asp 实现视频显示的效果函数_应用技巧_

2023-05-25 251人已围观

简介 asp 实现视频显示的效果函数_应用技巧_

<%
'******************************
'函数：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 ""
  Case "mov","rm","ra","ram"
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write "
"
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
   Response.Write ""
  Case "swf"
   Response.Write ""
  Case else
   Response.Write ""
End Select
End If
End Sub
%>

上一篇：asp 取得用户真实IP，对代理地址仍然有效的函数_应用技巧_

下一篇：asp 通用数据库连接过程函数_应用技巧_

您现在的位置是：网站首页> 编程资料编程资料

asp 实现视频显示的效果函数_应用技巧_

相关内容

点击排行

本栏推荐

猜你喜欢