站长论坛

标题: ASP根据视频格式正确的播放的函数 [打印本页]
作者: abcdef133    时间: 2007-9-16 13:05
标题: ASP根据视频格式正确的播放的函数
　在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...

　　思路是先取得文件的类型,并根据类型选择不同的网页播放器代码..三下五去二.....同时为了代码在以后的复用性,写成了通用的调用函数.方便以后在别的系统中调用..

　　现发布源代码如下:
  1. Sub SelPlay(strUrl,strWidth,StrHeight)
  2. Dim Exts,isExt
  3. If strUrl <> "" Then
  4.    isExt = LCase(Mid(strUrl,InStrRev(strUrl, ".")+1))
  5. Else
  6.    isExt = ""
  7. End If
  8. Exts = "avi,wmv,asf,mov,rm,ra,ram"
  9. If Instr(Exts,isExt)=0 Then
  10. Response.write "非法视频文件"
  11. Else
  12. Select Case isExt
  13.   Case "avi","wmv","asf","mov"
  14.    Response.write ""
  15.   Case "mov","rm","ra","ram"
  16.    Response.Write ""
  17.    Response.Write ""
  18.    Response.Write ""
  19.    Response.Write ""
  20.    Response.Write ""
  21.    Response.Write ""
  22.    Response.Write ""
  23.    Response.Write ""
  24.    Response.Write ""
  25.    Response.Write ""
  26.    Response.Write ""
  27.    Response.Write ""
  28.    Response.Write ""
  29.    Response.Write ""
  30.    Response.Write ""
  31.    Response.Write ""
  32.    Response.Write "
  33. "
  34.    Response.Write ""
  35.    Response.Write ""
  36.    Response.Write ""
  37.    Response.Write ""
  38.    Response.Write ""
  39.    Response.Write ""
  40.    Response.Write ""
  41.    Response.Write ""
  42.    Response.Write ""
  43.    Response.Write ""
  44.    Response.Write ""
  45.    Response.Write ""
  46.    Response.Write ""
  47.    Response.Write ""
  48.    Response.Write ""
  49. End Select
  50. End If
  51. End Sub
复制代码
调用方式:
  1. Call SelPlay(DvUrl,280,220)
复制代码




欢迎光临 站长论坛 (http://www.tzlink.com/bbs/) Powered by Discuz! X3.2