При создании программы для клиента я внезапно столкнулся с проблемой, то есть, когда пользователь страницы продукта подает файл воспроизведения видео, как воспроизводить правильный видеоформат в представленном URL ... Я был депрессив Общая функция вызова была написана для облегчения вызовов в других системах в будущем.
Исходный код теперь выпущен следующим образом:
Кода -копия выглядит следующим образом:
Sub Selplay (Strurl, Strwidth, Strheight)
Dim Exts, Isext
Если Strurl <> Then Then
isext = lcase (mid (strurl, instrrev (strurl ,.)+1))
Еще
isext =
Конец, если
Exts = avi, wmv, asf, mov, rm, ram
Если instr (exts, isext) = 0 тогда
Response.write незаконной видеофайл
Еще
Выберите случай 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 = saneversepect value = 0>
Ответ.
Response.write </object>
Response.write <br>
Response.write <Высота объекта = 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 = saneversepect value = 0>
Ответ.
Response.write </object>
Конец выбора
Конец, если
Конец суб
Метод вызова:
Кода -копия выглядит следующим образом:
Позвоните в Селэплей (DVURL, 280 220)
На самом деле, лучший код, в некотором относительно хорошем исходном коде онлайн -игрока и т. Д. Вы можете обратиться к нему, например: Max и другие системы воспроизведения видео.