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 A função de chamada geral foi escrita para facilitar chamadas em outros sistemas no futuro.
O código -fonte agora é lançado da seguinte maneira:
A cópia do código é a seguinte:
Sub Selplay (Strurl, Strwidth, Streight)
Dim EXTS, ISEXT
Se formar <> então
isext = lcase (MID (Strurl, Instrrev (Strurl ,.)+1))
Outro
isext =
Final se
EXT = AVI, WMV, ASF, MOV, RM, RAM
Se Instr (Exts, Isext) = 0 então
Response.Write Arquivo de vídeo ilegal
Outro
Selecione Caso isext
Case Avi, WMV, ASF, MOV
Response.Write <INDED ID = MediaPlayer src = & strurl & width = & strwidth & Height = & streight & loop = false AutoStart = true> </bed>
Case Mov, RM, Ram
Response.Write <Objeto Hight = & Streight & Width = & Strwidth & ClassID = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
Response.write <param name = _extentx value = 12700>
Response.write <param name = _exty value = 9525>
Response.write <param name = AutoStart Value = -1>
Response.write <param name = shuffle value = 0>
Response.write <nome do param = valor de pré -busca = 0>
Response.write <nome do param = nolabels value = 0>
Response.write <param name = src value = & strurl &>
Response.write <param name = controles value = imagewindow>
Response.write <nome do param = valor do console = clipe>
Response.write <nome do param = valor do loop = 0>
Response.write <param name = numloop value = 0>
Response.write <nome do param = valor central = 0>
Response.Write <Nome do param = MantenAspect Value = 0>
Response.write <param name = BackgroundColor Value =#000000>
Response.write </ject>
Response.write <br>
Response.write <altura do objeto = 32 largura = & strwidth & ClassID = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCFA>
Response.write <param name = _extentx value = 12700>
Response.write <param name = _exty value = 847>
Response.write <nome do param = valor do AutoStart = 0>
Response.write <param name = shuffle value = 0>
Response.write <nome do param = valor de pré -busca = 0>
Response.write <nome do param = nolabels value = 0>
Response.write <param name = controles value = ControlPanel, statusbar>
Response.write <nome do param = valor do console = clipe>
Response.write <nome do param = valor do loop = 0>
Response.write <param name = numloop value = 0>
Response.write <nome do param = valor central = 0>
Response.Write <Nome do param = MantenAspect Value = 0>
Response.write <param name = BackgroundColor Value =#000000>
Response.write </ject>
Final Selecione
Final se
Final sub
Método de chamada:
A cópia do código é a seguinte:
Ligue para Selplay (DVURL, 280.220)
De fato, um código melhor, em algum código -fonte do jogador on -line relativamente bom, etc., você pode consultar, como: Max e outros sistemas de reprodução de vídeo.