<%
'**********************************
'Función: Selplay (Strurl, Strwidth, Strheight)
'Parámetros: Strurl, ruta de video de animación; Strwidth, altura del video; Strhheight, altura de video
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: obtenga la IP real del usuario y todavía es válido para la dirección proxy; Valor de retorno: Tipo de texto Dirección IP
'Ejemplo: <%= selplay ("mov.swf", "120", "90")%>
'**********************************
Subselplay (Strurl, Strwidth, Strheight)
Dimexts, isext
Ifstrurl <> "" entonces
isext = lcase (Mid (Strurl, Instrrev (Strurl, ".")+1))
Demás
isext = ""
Endif
Exts = "avi, wmv, asf, mov, rm, ra, ram, swf"
Ifinstr (exts, isext) = 0then
Response.WRITE "Archivo de video ilegal"
Demás
SelectCaseSext
Caso "avi", "wmv", "asf", "mov"
Response.Write "<Incedid = MediaPlayersRC =" & Strurl & "Width =" & Strwidth & "Height =" & Strheight & "Loop =" "False" "AutoStart =" "True"> </griCS> "
Caso "mov", "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 =" "_ Extenty" "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 =" "controla" "value =" "ImageWindow" ""> "
Response.write "<paramname =" "console" "value =" "clip"> "
Response.write "<paramname =" "bucle" "value =" "0" ">"
Response.write "<paramname =" "numloop" "value =" "0" ">"
Response.write "<paramName =" "Center" "value =" "0" ">"
Response.write "<ParamName =" "Mantenerse Spect" "Value =" "0" ">"
Response.write "<paramname =" "backgroundColor" "value =" "#000000" ">"
Response.write "</ject>"
Response.Write "<br>"
Respuesta.write "<objectheight = 32Width =" & strwidth & "classid = clsid: cfcdaa03-8be4-11cf-b84b-0020afbbccfa>"
Response.write "<ParamName =" "_ Extentx" "Value =" "12700" ">"