Ver Mensaje Individual
  #33 (permalink)  
Antiguo 08/11/2004, 10:22
Avatar de Saruman
Saruman
 
Fecha de Ingreso: mayo-2003
Ubicación: Panama city, Panama, Panama
Mensajes: 1.154
Antigüedad: 21 años, 5 meses
Puntos: 5
Insertar Flash en ASP

Función para insertar un Flash en nuestras páginas ASP.

Código:
function InsertFlash(Path, FileName, Width, Height)
		with response
			.write("<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" " _
			& " codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""" & Width & """ " _
			& "height=""" & Height & """>")
			.write("<param name=""movie"" value=""" & Path & FileName & """>") & vbcrlf
			.write("<param name=menu value=false>") & vbcrlf
			.write("<param name=""quality"" value=""high"">") & vbcrlf
			.write("<embed src=""" & Path & FileName & """ quality=""high"" menu=""false"" pluginspage=""http://www.macromedia.com/go/getflashplayer""  " _
			& "type=""application/x-shockwave-flash"" width=""" & Width & """ height=""" & Height & """></embed>") & vbcrlf
			.write("</object>") & vbcrlf
		end with
	end function
Se utiliza asi:

Código:
call InsertFlash("ruta_del_swf", "archivo.swf", "Ancho_del_archivo", "alto_del_archivo")
Ancho_del_archivo y alto_del_archivo son valores enteros
__________________
Saruman

One Ring to rule them all, One Ring to find them, One Ring to bring them all and in the darkness bind them.