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, Se escribió una función de llamadas general para facilitar las llamadas en otros sistemas en el futuro.
El código fuente ahora se publica de la siguiente manera:
La copia del código es la siguiente:
Sub Selplay (Strurl, Strwidth, Strheight)
Dim exts, isext
Si Strurl <> entonces
isext = lcase (Mid (Strurl, Instrrev (Strurl,.)+1))
Demás
isext =
Final si
Exts = avi, wmv, asf, mov, rm, ram
If instrer (exts, isext) = 0 entonces
Respuesta. Escribe archivo de video ilegal
Demás
Seleccionar caso ISEXT
Case Avi, WMV, ASF, MOV
Respuesta.Write <Incorpri ID = MediaPlayer src = & Strurl & width = & strwidth & hight = & strheight & loop = false autostart = true> </bred>
Case MOV, RM, RAM
Respuesta.Write <Object Hightight = & 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 = bucle value = 0>
Response.write <param name = numLoop value = 0>
Response.Write <Param name = Center Value = 0>
Response.write <param name = mantenimiento de valor = 0>
Response.write <param name = backgroundColor value =#000000>
Response.Write </ject>
Response.Write <br>
Respuesta.Write <Object Hight = 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 = bucle value = 0>
Response.write <param name = numLoop value = 0>
Response.Write <Param name = Center Value = 0>
Response.write <param name = mantenimiento de valor = 0>
Response.write <param name = backgroundColor value =#000000>
Response.Write </ject>
Final seleccionar
Final si
Final
Método de llamadas:
La copia del código es la siguiente:
Llame a Selplay (dvurl, 280,220)
De hecho, un mejor código, en algún código fuente de reproductor en línea relativamente bueno, etc., puede consultarlo, como: Max y otros sistemas de reproducción de video.