Application of ASP to realize the effect function of video display

<%
'******************************
' Function: Selplay (strurl,strwidth,strheight)
' Parameters: strURL, animated video path; strwidth, video height; strheight, video height
' Author: Arisisi
' Date: 2007/7/13
' Description: Obtain the user real IP, the proxy address is still valid; return value: The IP address of the text type
' Example: <%=selplay ("mov.swf", "a", "")%>
'******************************
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 "Illegal video files"
Else
Select Case Isext
Case "Avi", "WMV", "ASF", "MOV"
Response.Write "<embed id=mediaplayer src=" &strUrl& "width=" &strWidth& "height=" &strheight & "loop=" "false" "autostart=" "true" "></EMBED>"
Case "mov", "rm", "RA", "Ram"
Response.Write "<object height=" &strHeight& "width=" &strWidth& "Classid=clsid: Cfcdaa03-8be4-11cf-b84b-0020afbbccfa> "
Response.Write "<param name=" "_extentx" "value=" "12700" ">"
Response.Write "<param name=" "_extenty" "value=" "9525" ">"
Response.Write "<param name=" "AUTOSTART" "value=" "1" ">"
Response.Write "<param name=" "SHUFFLE" "value=" "0" ">"
Response.Write "<param name=" "PREFETCH" "value=" "0" ">"
Response.Write "<param name=" "Nolabels" "value=" "0" ">"
Response.Write "<param name=" "SRC" "value=" "&strUrl&" ">"
Response.Write "<param name=" "CONTROLS" "value=" "Imagewindow" ">"
Response.Write "<param name=" "CONSOLE" "value=" "Clip" ">"
Response.Write "<param name=" "LOOP" "value=" "0" ">"
Response.Write "<param name=" "Numloop" "value=" "0" ">"
Response.Write "<param name=" "CENTER" "value=" "0" ">"
Response.Write "<param name=" "Maintainaspect" "value=" "0" ">"
Response.Write "<param name=" "BackgroundColor" "value=" "#000000" ">"
Response.Write "</OBJECT>"
Response.Write "<BR>"
Response.Write "<object height=32 width=" &strWidth& "CLASSID=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA > "
Response.Write "<param name=" "_extentx" "value=" "12700" ">"
Response.Write "<param name=" "_extenty" "value=" "847" ">"
Response.Write "<param name=" "AUTOSTART" "value=" "0" ">"
Response.Write "<param name=" "SHUFFLE" "value=" "0" ">"
Response.Write "<param name=" "PREFETCH" "value=" "0" ">"
Response.Write "<param name=" "Nolabels" "value=" "0" ">"
Response.Write "<param name=" "CONTROLS" "value=" "Controlpanel,statusbar" ">"
Response.Write "<param name=" "CONSOLE" "value=" "Clip" ">"
Response.Write "<param name=" "LOOP" "value=" "0" ">"
Response.Write "<param name=" "Numloop" "value=" "0" ">"
Response.Write "<param name=" "CENTER" "value=" "0" ">"
Response.Write "<param name=" "Maintainaspect" "value=" "0" ">"
Response.Write "<param name=" "BackgroundColor" "value=" "#000000" ">"
Response.Write "</OBJECT>"
Case "SWF"
Response.Write "<embed src=" "&strUrl&" "width=" "&strWidth&" "" height= "" &strHeight& " "Type=" "Application/x-shockwave-flash" "play=" "true" "loop=" "true" "menu=" "true" "></embed>"
Case Else
Response.Write "End Select
End If
End Sub
%>