<%
'*********************************
'Function: selplay (Strurl, Strwidth, Strheight)
'Параметры: Strurl, анимационный видео -путь; Strwidth, рост видео; Стрит, рост видео
Автор: Аликси
Дата: 2007/7/13
'Описание: Получите настоящий IP -адрес пользователя, и он все еще действителен для прокси -адреса; Возвращение значения: тип текста IP -адрес
Пример: <%= selplay ("mov.swf", "120", "90")%>
'*********************************
Subselplay (Strurl, Strwidth, Strheight)
DIMEXTS, ISEXT
Ifstrurl <> "" Тогда
isext = lcase (mid (strurl, instrrev (strurl, ".")+1))
Еще
isext = ""
Эндиф
Exts = "avi, wmv, asf, mov, rm, ra, ram, swf"
Ifinstr (exts, isext) = 0then
Response.write "Незаконная видеофайла"
Еще
SelectCaseIsext
Дело "avi", "wmv", "asf", "mov"
Response.write "<embedid = mediaPlayerSrc =" & strurl & "width =" & strwidth & "height =" & strheight & "loop =" "false" "autostart =" "true"> </emped> "
Case "Move", "rm", "ra", "ram"
Response.write "<objectheight =" & strheight & "width =" & strwidth & "classid = clsid: cfcdaa03-8be4-11cf-b84b-0020afbbccfa>"
Response.write "<paramname =" "_ Extentx" "value =" "12700" ">"
Response.write "<paramname =" "_ Estenty" "value =" "9525" ">"
Response.write "<paramname =" "autostart" "value =" "-1" ">"
Response.write "<paramname =" "shuffle" "value =" "0" ">"
Response.write "<paramname =" "prefetch" "value =" "0" ">"
Response.write "<paramname =" "nolabels" "value =" "0" ">"
Response.write "<paramname =" "src" "value =" "" & strurl & ""> "
Response.write "<paramname =" "controls" "value =" "ImageWindow" ">"
Response.write "<paramname =" "console" "value =" "clip" ">"
Response.write "<paramname =" "loop" "value =" "0" ">"
Response.write "<paramname =" "numloop" "value =" "0" ">"
Response.write "<paramname =" "center" "value =" "0" ">"
Response.write "<paramname =" "saneapaspect" "value =" "0" ">"
Response.write "<paramname =" "founalcolor" "value =" "#000000" ">"
Response.write "</object>"
Response.write "<br>"
Response.write "<objectheight = 32width =" & strwidth & "classid = clsid: cfcdaa03-8be4-11cf-b84b-0020afbbccfa>"
Response.write "<paramname =" "_ Extentx" "value =" "12700" ">"