When making a program for the customer, I suddenly encountered a problem, that is, when the product page user submits a video playback file, how to play the correct video format in the submitted URL... I was depressed for a while, and thought about the idea and started to do it when I said it... The idea was to get the file type first and select different web player codes according to the type... Three times and five times and two... At the same time, for the reusability of the code in the future, a general calling function was written to facilitate calls in other systems in the future.
The source code is now released as follows:
The code copy is as follows:
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,ram
If Instr(Exts,isExt)=0 Then
Response.write Illegal video file
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,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>
End Select
End If
End Sub
Call method:
The code copy is as follows:
Call SelPlay(DvUrl,280,220)
In fact, better code, in some relatively good online player source code, etc., you can refer to it, such as: Max and other video playback systems.