ASP根据视频格式正确的播放的函数

abcdef133

　在给客户做个程序时,突然遇到个问题,就是产品页用户提交视频播放文件时,如何根据提交的网址内的视频格式进行正确的播放呢....郁闷了一会,想好了思路,说动手就动手...

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

　　现发布源代码如下:

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)

复制代码