<%
'***********************************
'Função: Selplay (Strurl, Strwidth, Streight)
Parâmetros: Strurl, Caminho de vídeo de animação; strwidth, altura de vídeo; Estreto, altura do vídeo
'Autor: Alixi
Data: 2007/7/13
'Descrição: obtenha o IP real do usuário e ainda é válido para o endereço de proxy; Valor de devolução: Tipo de texto Endereço IP
'Exemplo: <%= Selplay ("mov.swf", "120", "90")%>
'***********************************
Subselplay (Strurl, Strwidth, Streight)
Dimexts, isext
Ifstrurl <> "" então
isext = lcase (MID (Strurl, Instrrev (Strurl, ".")+1)))
Outro
isext = ""
Endif
Exts = "Avi, WMV, ASF, MOV, RM, RA, RAM, SWF"
Ifinstr (ext, isext) = 0then
Response.Write "Arquivo de vídeo ilegal"
Outro
SelectCaseEsext
Case "Avi", "WMV", "ASF", "MOV"
Response.Write "<bedId = MediaPlayersrc =" & Strurl & "Width =" & strwidth & "Height =" & Streight & "Loop =" "false" "AutoStart =" True "> </bed>"
Caso "mov", "rm", "ra", "ram"
Response.write "<objectheight =" & forty & "width =" & strwidth & "ClassID = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBBCFA>"
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 =" "" e strurl & "" ">"
Response.write "<paramname =" "controles" "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 =" "mantenhaSpect" "value =" "0" ">"
Response.write "<paramname =" "BackgroundColor" "value =" "#000000" ">"
Response.Write "</ject>"
Response.Write "<br>"
Response.write "<objectheight = 32width =" & strwidth & "ClassID = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBBCFA>"
Response.Write "<paramname =" "_ Extentx" "value =" "12700" ">"