Upload de SWF

marcelocardoso · Janeiro 28, 2009

Amigos!

Resolvi postar aqui oque tenho e está funcionando, para ver se os amigos me ajudam a mudar o esquema de imagem para swf:

Vejam só:

Este exemplo abaixo peguei na internet e funciona bem, mas não consigo adaptar para .SWF

Tenho um diretorio e estes 2 arquivos mais esta pasta:

1) criar.asp

2) criar_upload.asp

3) diretorio chamado de: pasta_flash

SCRIPT CRIAR.ASP

<HTML>
<HEAD>
<script language="JavaScript" type="text/javascript">
function abre_janela(width, height, nome) {
	 var top; var left;
		  top = ( (screen.height/2) - (height/2) )
			 left = ( (screen.width/2) - (width/2) )
					   window.open('',nome,'width='+width+',height='+height+',scrollbars=no,toolbar=no,location=no,status=no,menubar=no,resizable=no,left
='+left+',top='+top);
}
function recebe_imagem(campo, imagem){
	 var foto = 'img_' + campo
			document.frm[campo].value = imagem;
			document.frm[foto].src	= imagem;
}
</script>
</HEAD>
<BODY bgcolor="#FFFFFF">


<form action="inserir.asp" method="post" name="frm" target="_parent" id="frm">
  <table width="100%" border=0 align="center" cellpadding=0 cellspacing=0 class=BORDER_FORM>
	<tr class=titulo_campos>
	  <td><input name="ImagemIMG1" type="hidden" id="ImagemIMG1" value="pasta_flash/imagem01.gif">
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
			<tr>
			  <td width="86%" height="30"><div align="center"><a href="criar_upload.asp?campo=<%=Server.URLEncode("ImagemIMG1")%>&pasta=<%=Server.URLEncode("")%>" target="alterar_imagem" onClick="abre_janela(360, 320, 'alterar_imagem')"><strong>ALTERAR IMAGEM</strong></a></div></td>
			</tr>
		</table></td>
	</tr>
	<tr class=titulo_campos>
	  <td><div align="center"><img src="pasta_flash/imagem01.gif" alt="" name="img_ImagemIMG1" width="450" height="350" border="0" id="img_ImagemIMG1"></div></td>
	</tr>
  </table>
</form>


</BODY>
</HTML>

SCRIPT CRIAR_UPLOAD.ASP

<HTML>
<HEAD>
<TITLE>Enviar Imagens</TITLE>
<script language=javascript>
function envia_imagem(imagem) {
			   self.opener.recebe_imagem('<%=Request("campo")%>', imagem);
window.close();
}
</script>
<style type="text/css">
<!--
BODY {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #333333;
}
TD {
	font-size: 11px;
	color: #999999;
}
INPUT {
	font-size: 11px;
	text-decoration: none;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
FILE {
	font-size: 11px;
	text-decoration: none;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	color: #0060BF;
}
A:HOVER {
	color: #0060BF;
	text-decoration: underline;
}
A:ACTIVE {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #000000;
	cursor: hand;
}
-->
</style>
</HEAD>

<%
 Dim UploadControl
 Dim UploadRequest
 Dim Folder
 Dim File
 Dim ObjFS
 Dim objRootFolder
		  
 SUB BuildUploadRequest(RequestBin)
	  PosBeg = 1
	  PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
 boundaryPos = InstrB(1,RequestBin,boundary)

 DO UNTIL (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))

 SET UploadControl = CreateObject("Scripting.Dictionary")
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
	 PosBeg = Pos + 6
	 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
	   Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
	PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
   PosBound = InstrB(PosEnd,RequestBin,boundary)
 
 IF  PosFile <> 0 AND (PosFile < PosBound) THEN
	 PosBeg = PosFile + 10
	 PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
   FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "FileName", FileName
		Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
	 PosBeg = Pos + 14
	 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
	 PosBeg = PosEnd+4
	 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
	  Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
 ELSE
 		Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
	 PosBeg = Pos + 4
	 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
	  Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
 END IF
 	UploadControl.Add "Value" , Value	
	UploadRequest.Add name, UploadControl	
	BoundaryPos = InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	LOOP
 END SUB

 FUNCTION getByteString(StringStr)
 FOR i = 1 TO Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 NEXT
 END FUNCTION

 FUNCTION getString(StringBin)
		  getString =""
 FOR intCount = 1 TO LenB(StringBin)
		  getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
		  NEXT
 END FUNCTION

'AJUSTE DO DIRETÓRIO DOS ARQUIVOS
 pasta_imagens = "pasta_flash" & Request("pasta")
		 pasta = Server.URLEncode(Request("pasta"))
		 campo = Server.URLEncode(Request("campo"))

 SET objFS = Server.CreateObject("Scripting.FileSystemObject")
 IF NOT objFS.FolderExists(Server.MapPath(pasta_imagens)) THEN
		objFS.CreateFolder(Server.MapPath(pasta_imagens))
 END IF

 IF Request("enviar") <> "" THEN
 SET objFS = NOTHING
	 byteCount = Request.TotalBytes
	RequestBin = Request.BinaryRead(byteCount)

 SET UploadRequest = CreateObject("Scripting.Dictionary")
	 BuildUploadRequest  RequestBin
	 contentType = UploadRequest.Item("arquivo_imagem").Item("ContentType")
	filepathname = UploadRequest.Item("arquivo_imagem").Item("FileName")
		filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  value = UploadRequest.Item("arquivo_imagem").Item("Value")

'DEFINE QUAIS ARQUIVOS POSSIVEIS PARA ENVIO
 IF Lcase(Right(filename,3)) = "jpg" OR Lcase(Right(filename,3)) = "gif" THEN
 
 SET objFS = Server.CreateObject("Scripting.FileSystemObject")
  IF objFS.FileExists( Server.mappath(pasta_imagens & "\" & filename)) THEN
%>

<script language=javascript>
	   alert("Erro ao enviar imagem, o arquivo '<%=filename%>' já existe na pasta '<%=pasta_imagens%>' do seu site")
enviar.disabled = false;
</script>

<%
 ELSE
 IF LenB(value) > 900000 THEN
%>
<script language=javascript>
	   alert("Erro ao enviar a imagem, o tamanho do arquivo deve ser menor que 300Kb")
enviar.disabled = false;
</script>
<%
 ELSE
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr> 
	<td><strong><font color="#0060BF">Aguarde o envio da imagem...</font></strong></td>
	<td> </td>
  </tr>
  <tr> 
	<td colspan="2"><input name="progress" value="0% enviado" style="border:none"> 
	  <table width="100" border="0" cellspacing="0" cellpadding="0" style="border: 1px inset">
		<tr> 
		  <td><input name="barra" style="border:none; background-color: orangered; height: 10; width:1" readonly=""></td>
		  <td></td>
		</tr>
	  </table></td>
  </tr>
</table>
<%
 SET ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
 SET MyFile = ScriptObject.CreateTextFile( Server.mappath(pasta_imagens & "\" & filename))
   progress = 0
		  n = 0
	  FOR i = 1 TO LenB(value)
				   MyFile.Write chr(AscB(MidB(value,i,1)))
   progress = Fix((i * 100) / LenB(value))
 IF n <> progress THEN
		  n = progress
%>
<script language=javascript>progress.value = "<%=n%>% enviado"</script>
<script language=javascript>barra.style.width = "<%=n%>"</script>
<%
 END IF
 NEXT
 MyFile.Close
%>
<script language=javascript>
envia_imagem('<%=pasta_imagens & "/" & filename%>');
</script>
<%
 END IF
 SET objFS = NOTHING
 END IF
 ELSE
%>
<script language=javascript>
alert("Erro ao enviar a imagem, a imagem deve possuir a extensão .JPG ou .GIF");
enviar.disabled = false;
</script>
<%
 END IF
 END IF
%>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>?campo=<%=campo%>&pasta=<%=pasta%>&enviar=sim" METHOD="post" ENCTYPE="multipart/form-data" name="frm" target="_parent" id="frm" onSubmit="enviar.disabled=true">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="2">
	<tr> 
	  <td colspan="2"><strong><font color="#000000">Enviar uma nova imagem</font></strong></td>
	</tr>
	<tr> 
	  <td width="89%"><div align="center"> 
		  <input name="arquivo_imagem" type="file" id="arquivo_imagem" style="width: 100%" size="35" maxlength="50">
		</div></td>
	  <td width="11%"><div align="center"> 
		  <input type="submit" name="enviar" value="Enviar" class="botao_enviar">
		</div></td>
	</tr>
	<tr> 
	  <td colspan="2">( A imagem deve ter nó máximo 900Kb )</td>
	</tr>
  </table>
</FORM>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
	<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
		<tr> 
		  <td height="22"><strong><font color="#0060BF">Seleção 
			de imagem enviada anteriormente </font></strong></td>
		</tr>
		<tr> 
		  <td> <DIV class="titulo_campos" style="width:100%; height:175px; visibility: visible; overflow: auto; border:1px solid"> 

<%
'Listaremos as imagens do diretório
 lista_imagens pasta_imagens, "gif,jpg,swf"
 
 FUNCTION lista_imagens( strFolder, tipo )
	   IF Trim( Request.QueryString("folder") ) <> "" THEN
	strFolder = Request.ServerVariables("APPL_PHYSICAL_PATH") & Request.QueryString("folder")
 END IF

 SET ObjFS = Server.CreateObject("Scripting.FileSystemObject")
 SET objFolder = ObjFS.GetFolder(Server.MapPath(strFolder))
 
 FOR EACH File IN objFolder.files
	 tipo = Replace(tipo, ",", "")
 FOR i = 1 TO len(tipo) step 3
 IF Right(File, 3) = Mid(tipo, i, 3) THEN
	Response.Write "  <a href=""java script: envia_imagem('" & StrFolder& "/" & File.Name & "')"" class=""texto_pagina"">" & File.Name & "</a><BR>" & vbcrlf
 END IF
 NEXT
 NEXT
  
 Response.Write "</td></tr></table>" & vbcrlf
  
 SET objFolder = NOTHING
 SET Folder = NOTHING
 END FUNCTION
%>
</DIV></td>
		</tr>
		<tr>
		  <td></td>
		</tr>
	  </table>
	</td>
  </tr>
</table>
</BODY>
</HTML>

Podem testar funciona perfeitamente com imagem, mas gostaria que não fosse com imagem, gostaria de apenas trocar para .SWF

Tipo:

Ao abrir a tela criar.asp ao invés de uma imagem alí, deveria ser um arquivo swf.

E ao clicar no link ALTERAR IMAGEM, deveria ser ALTERAR SWF, e depois na janela que se abre ao clicar ali, daria para fazer upload de swf ao invés de imagens e assim que fosse feito o upload carregasse instantaneamente como acontece com esse exemplo de imagens. ok

Amigos poderiam me ajudar, pois acredito que seja apenas com o javascrip, pois não entendo nada de JS.

Agradeceria muito a ajuda de vocês..

Obrigado mesmo....

Ted k' · Janeiro 28, 2009

troca essa linha:

IF Lcase(Right(filename,3)) = "jpg" OR Lcase(Right(filename,3)) = "gif" THEN

por essa:

IF Lcase(Right(filename,3)) = "swf" THEN

marcelocardoso · Janeiro 29, 2009

TED e amigos!

Agora fiz deste jeito aqui em casa, e consegui fazer com que ele funcione com o SWF, mas só que ele só funciona mesmo no FIREFOX sem problema algum, mas no IE8 dá erro quando abro a parte de upload e seleciono o arquivo, ele não atualiza e ainda dá o seguinte erro java script:

Dá um erro no canto do iniciar do windows, chamado de: ERRO NA PAGINA, onde abro a janelinha, e vejo o erro, e é:

Erros de Script da Página da Web

Agente de Usuário: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 1.1.4322)

Carimbo de data/hora: Thu, 29 Jan 2009 03:17:05 UTC

Mensagem: 'document.frm[...]' é nulo ou não é um objeto

Linha: 14

Caractere: 5

Código: 0

URI: http://13542.0.4.1/criar.asp

E se não me engano pelo que verifiquei a linha e no javascript abaixo da pagina CRIAR.ASP

function recebe_imagem(campo, imagem){

var foto = 'img_' + campo

document.frm[campo].value = imagem;

document.frm[foto].src = imagem;

SEGUE CODIGOS COMO FIZ AGORA, E QUE FUNCIONA SÓ NO FIREFOX: VEJAM....

SCRIPT CRIAR.ASP

<HTML>
<HEAD>

<script language="JavaScript" type="text/javascript">
function abre_janela(width, height, nome) {
var top; var left;
	top = ( (screen.height/2) - (height/2) )
			 left = ( (screen.width/2) - (width/2) )
window.open('',nome,'width='+width+',height='+height+',scrollbars=no,toolbar=no,location=no,status=no,menubar=no,resizable=no,left
='+left+',top='+top);
}
function recebe_imagem(campo, imagem){
var foto = 'img_' + campo
	document.frm[campo].value = imagem;
	document.frm[foto].src = imagem;
}
</script>


</HEAD>
<BODY>


<form action="teste.asp" method="post" name="frm" target="_parent" id="frm">
  <table width="100%" height="380" border="0" align="left" cellpadding="2" cellspacing="2" class="BordaLaranja">
	<tr>
	  <td><table width="100%" border="0" cellspacing="2" cellpadding="2">
		<tr>
		  <td width="73%"><input name="ImagemBANNER" type="hidden" id="ImagemBANNER" value="banners/teste.swf"></td>
		  <td width="27%" height="30" bgcolor="#F4F4F4"><div align="center"><a href="criar_upload.asp?campo=<%=Server.URLEncode("ImagemBANNER")%>" target="alterar_imagem" class="FonteNoticiasTextoBold" onClick="abre_janela(350, 320, 'alterar_imagem')"><strong>ALTERAR BANNER</strong></a></div></td>
		</tr>
	  </table></td>
	</tr>
	<tr>
	  <td>
	 <div align="center">
	  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="400" height="400">
	   <param name="src" value="banners/teste.swf">
		<embed src="banners/teste.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" name="img_ImagemBANNER" id="img_ImagemBANNER" width="400" height="400">
		 </embed>
		</object>
	  </div></td>
	</tr>
	<tr>
	  <td><div align="center"><input type="submit" class="BotaoBorda1" value="OK"></div></td>
	</tr>
  </table>
</form>


</BODY>
</HTML>

CRIAR_UPLOAD.ASP

<HTML>
<HEAD>
<TITLE>Enviar Imagens</TITLE>
<script language=javascript>
function envia_imagem(imagem) {
		 self.opener.recebe_imagem('<%=Request("campo")%>', imagem);
window.close();
}
</script>
<style type="text/css">
<!--
BODY {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #333333;
}
TD {
	font-size: 11px;
	color: #999999;
}
INPUT {
	font-size: 11px;
	text-decoration: none;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
FILE {
	font-size: 11px;
	text-decoration: none;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	color: #0060BF;
}
A:HOVER {
	color: #0060BF;
	text-decoration: underline;
}
A:ACTIVE {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #000000;
	cursor: hand;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD>
<%
'Descriminamos as variaveis
 Dim UploadControl
 Dim UploadRequest
 Dim Folder
 Dim File
 Dim ObjFS
 Dim objRootFolder
		  
'Programação do sistema de envio de imagens
 SUB BuildUploadRequest(RequestBin)
	  PosBeg = 1
	  PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
 boundaryPos = InstrB(1,RequestBin,boundary)

 DO UNTIL (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))

 SET UploadControl = CreateObject("Scripting.Dictionary")
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
	 PosBeg = Pos + 6
	 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
	   Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
	PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
   PosBound = InstrB(PosEnd,RequestBin,boundary)
 
 IF  PosFile <> 0 AND (PosFile < PosBound) THEN
	 PosBeg = PosFile + 10
	 PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
   FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "FileName", FileName
		Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
	 PosBeg = Pos + 14
	 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
	 PosBeg = PosEnd+4
	 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
	  Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)

 ELSE
 
		Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
	 PosBeg = Pos + 4
	 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
	  Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
 
 END IF
 
	UploadControl.Add "Value" , Value	
	UploadRequest.Add name, UploadControl	
	BoundaryPos = InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	LOOP

 END SUB

 FUNCTION getByteString(StringStr)
 FOR i = 1 TO Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 NEXT
 END FUNCTION

 FUNCTION getString(StringBin)
		  getString =""
 FOR intCount = 1 TO LenB(StringBin)
		  getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
		  NEXT
 END FUNCTION

'AJUSTE DO DIRETÓRIO DOS ARQUIVOS
 pasta_imagens = "banners" & Request("pasta")
		 pasta = Server.URLEncode(Request("pasta"))
		 campo = Server.URLEncode(Request("campo"))

 SET objFS = Server.CreateObject("Scripting.FileSystemObject")
 IF NOT objFS.FolderExists(Server.MapPath(pasta_imagens)) THEN
		objFS.CreateFolder(Server.MapPath(pasta_imagens))
 END IF

 IF Request("enviar") <> "" THEN
 SET objFS = NOTHING
	 byteCount = Request.TotalBytes
	RequestBin = Request.BinaryRead(byteCount)

 SET UploadRequest = CreateObject("Scripting.Dictionary")
	 BuildUploadRequest  RequestBin
	 contentType = UploadRequest.Item("arquivo_imagem").Item("ContentType")
	filepathname = UploadRequest.Item("arquivo_imagem").Item("FileName")
		filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  value = UploadRequest.Item("arquivo_imagem").Item("Value")
  
 IF Lcase(Right(filename,3)) = "swf" THEN
 
 SET objFS = Server.CreateObject("Scripting.FileSystemObject")
  IF objFS.FileExists( Server.mappath(pasta_imagens & "\" & filename)) THEN
%>

<script language=javascript>
alert("Erro ao enviar imagem, o arquivo '<%=filename%>' já existe na pasta '<%=pasta_imagens%>' do seu site")
enviar.disabled = false;
</script>

<%
 ELSE
 IF LenB(value) > 900000 THEN
%>
<script language=javascript>
alert("Erro ao enviar a imagem, o tamanho do arquivo deve ser menor que 300Kb")
enviar.disabled = false;
</script>
<%
 ELSE
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr> 
	<td><strong><font color="#0060BF">Aguarde o envio da imagem...</font></strong></td>
	<td> </td>
  </tr>
  <tr> 
	<td colspan="2"><input name="progress" value="0% enviado" style="border:none"> 
	  <table width="100" border="0" cellspacing="0" cellpadding="0" style="border: 1px inset">
		<tr> 
		  <td><input name="barra" style="border:none; background-color: orangered; height: 10; width:1" readonly=""></td>
		  <td></td>
		</tr>
	  </table></td>
  </tr>
</table>
<%
 SET ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
 SET MyFile = ScriptObject.CreateTextFile( Server.mappath(pasta_imagens & "\" & filename))
   progress = 0
		  n = 0
	  FOR i = 1 TO LenB(value)
				   MyFile.Write chr(AscB(MidB(value,i,1)))
   progress = Fix((i * 100) / LenB(value))
 IF n <> progress THEN
		  n = progress
%>
<script language=javascript>progress.value = "<%=n%>% enviado"</script>
<script language=javascript>barra.style.width = "<%=n%>"</script>
<%
 END IF
 NEXT
 MyFile.Close
%>
<script language=javascript>
envia_imagem('<%=pasta_imagens & "/" & filename%>');
</script>
<%
 END IF
 SET objFS = NOTHING
 END IF
 ELSE
%>
<script language=javascript>
alert("Erro ao enviar a imagem, a imagem deve possuir a extensão .JPG ou .GIF");
enviar.disabled = false;
</script>
<%
 END IF
 END IF
%>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>?campo=<%=campo%>&pasta=<%=pasta%>&enviar=sim" METHOD="post" ENCTYPE="multipart/form-data" name="frm" target="_parent" id="frm" onSubmit="enviar.disabled=true">
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="2">
	<tr> 
	  <td colspan="2"><strong><font color="#000000">Enviar uma nova imagem</font></strong></td>
	</tr>
	<tr> 
	  <td width="89%"><div align="center"> 
		  <input name="arquivo_imagem" type="file" class="campos_formulario" id="arquivo_imagem" style="width: 100%" size="35" maxlength="50">
		</div></td>
	  <td width="11%"><div align="center"> 
		  <input type="submit" name="enviar" value="Enviar" class="botao_enviar">
		</div></td>
	</tr>
	<tr> 
	  <td colspan="2" class="NOTLINK">( A imagem deve ter nó máximo 900Kb )</td>
	</tr>
  </table>
</FORM>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr>
	<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
		<tr> 
		  <td height="22"><strong><font color="#0060BF">Seleção 
			de imagem enviada anteriormente </font></strong></td>
		</tr>
		<tr> 
		  <td> <DIV class="titulo_campos" style="width:100%; height:175px; visibility: visible; overflow: auto; border:1px solid"> 
			  <%
'Listaremos as imagens do diretório
 lista_imagens pasta_imagens, "swf"
 
 FUNCTION lista_imagens( strFolder, tipo )
	   IF Trim( Request.QueryString("folder") ) <> "" THEN
	strFolder = Request.ServerVariables("APPL_PHYSICAL_PATH") & Request.QueryString("folder")
 END IF

 SET ObjFS = Server.CreateObject("Scripting.FileSystemObject")
 SET objFolder = ObjFS.GetFolder(Server.MapPath(strFolder))
 
 FOR EACH File IN objFolder.files
	 tipo = Replace(tipo, ",", "")
 FOR i = 1 TO len(tipo) step 3
 IF Right(File, 3) = Mid(tipo, i, 3) THEN
	Response.Write "  <a href=""java script: envia_imagem('" & StrFolder& "/" & File.Name & "')"" class=""texto_pagina"">" & File.Name & "</a><BR>" & vbcrlf
 END IF
 NEXT
 NEXT
  
 Response.Write "</td></tr></table>" & vbcrlf
  
 SET objFolder = NOTHING
 SET Folder = NOTHING
 END FUNCTION
%>
			</DIV></td>
		</tr>
		<tr>
		  <td></td>
		</tr>
	  </table>
	</td>
  </tr>
</table>
</BODY>
</HTML>

Se puderem me ajudar, pois fique feliz quando consegui, mas só no firefox funciona tudo certinho, mas no ie não.

Podes me ajudar com este pequeno detalhe, pois deve ser alí no script conforme falei....

Obrigado!

Obrigado mesmo pela ajuda....

Ted k' · Janeiro 29, 2009

ai é javascript mando para a galera:

Movido de ASP http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Javascript / DHTML

berkowitz · Janeiro 29, 2009

tente mudar:

document.frm[campo].value = imagem;
	document.frm[foto].src = imagem;

para:

document.getElementById(campo).value = imagem;
	document.getElementById(foto).src = imagem;

ABrax!

marcelocardoso · Janeiro 29, 2009

AMIGO!

Fiz agora assim como falou, mas no IE8 ainda nao funciona, me dá o seguinte erro agora:

Mensagem: 'document.getElementById(...)' é nulo ou não é um objeto

Linha: 15

Caractere: 4

Código: 0

URI: /criar.asp

Testei agora com estas trocas que me solicitou para fazer e novamente no firefox funciona, tanto daquele jeito que fiz e do seu jeito.

Mas no IE8 não.

Oque posso fazer para contornar isso, estou triste já, pois pelo oque entendi é que o ie8 não pega o valor do document.get.......

Me ajudem colegas, quero fazer funcionar no ie também....

berkowitz · Janeiro 29, 2009

bom... vamos lá. Primeira coisa: não use o IE8 como base. Ele ainda é beta e está em fase de testes. Nem foi lançado oficialmente ainda.

Já que você usa o IE8, pede para renderizar a página como IE7. Faça o seguinte:

-----------

1- Tecle F12

2- No menu superior vá no último item ("Modo de documento") e selecione VAGOROSO (nome feio da ****)

3- Ao lado existe o item "Modo do Navegador". Escolha "Internet Explorer 7".

Assim você irá renderizar sua página como se fosse o IE7.

-----------

Agora vamos debugar sua função. Deixe ela assim e nos diga o que aparece:

function recebe_imagem(campo, imagem){
alert("Campo: "+campo+"\nImagem:"+imagem);
}

Abrax!

marcelocardoso · Janeiro 29, 2009

Amigo!

fiz como disse não sabia disso no ie, mas coloquei como VAGOROSO e ie7, depois abrir o ie8 atualizei a pagina, e quando abri a janela para trocar o swf ele me selecionou em amarelo, esta parte do codigo criar.asp no topo.

<script language=javascript>
function envia_banner(banner) {
		 self.opener.recebe_banner('ImagemBANNER', banner);
window.close();
}
</script>

Oque pode ser agora???? nesta linha: self.opener.recebe_banner('ImagemBANNER', banner);

marcelocardoso · Janeiro 29, 2009

E diz também que o objeto não dá suporte ao metodo

marcelocardoso · Janeiro 30, 2009

Amigos, tem alguma coisa que posso fazer aqui para resolver??????

obrigado!

berkowitz · Janeiro 30, 2009

não feche o IE.

Abra tua página normalmente, aí depois você faz o que falei. Ela vai atualizar sozinha e aí você vê o q pega (sem fechar a janela de Ferramentas para Desenvolvedores).

Outra coisa... você fez aquele ALERT q mencionei? O que ele retornou?

Bom... não sei se pode ser isso, mas troque self.opener por window.opener. Acho que isso ta atrapalhando tbm.

Abrax!!

marcelocardoso · Janeiro 30, 2009

Amigo!

agora deu o seguinte na tela do depurador:

abriu uma jenela alert com o seguinte texto:

interrompendo no tempo de execucao JSCRIPT - 'document.getElementById(...)' é nulo ou não é um objeto.

e na tela do deputador onde aparece o code do script, ele me seleciona em AMARELO o seguinte:

document.getElementById(swf).src = banner;

e usando o window.opener dá a mesma mensagem anterior...

Oque poderemos fazer amigo, pois to triste porque se funciona no firefox, deveria funcionar nos outros....

Me dá um help.....

marcelocardoso · Janeiro 31, 2009

AMIGOS e BERKOWITZ, oque podemos fazer aqui...

Tem como resolvermos sim ou não???????

Alguém me dá uma ajuda?????

Obrigado!

marcelocardoso · Janeiro 31, 2009

Alguém me dá uma luz neste script, que por causa do IE8 e nem o ie7 funcionam...

Que o tio bill, se exploda com o ie... pois é brabo....

Me ajudem por gentileza, quero resolver isso, mas nem eu e nem o amigo berkowitz estamos conseguindo.

E nao sei se tem alguma coisa a ver, mas já lí em algum que o ie so funciona lega quando tem o doctype, e estou usando este:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">

Obrigado

marcelocardoso · Fevereiro 2, 2009

Amigos!

Alguém poderia me dar uma luz aqui, pois já faz mais de 5 dias e não recebo nem pelo um ok, se é possível fazer isso rodar no IE, ou não.

Pois já estou pensando em desistir, pois eu realmente não tenho conhecimento javascript.

Por isso estava solicitando esta gentileza aos amigos.

Pode me dizer pelo menos se isso pode rodar em IE ou não.

SE não tem jeito me retornem, que eu largo de mão. ok

Muito obrigado.

marcelocardoso · Fevereiro 7, 2009

Pessoal!

Alguém me ajuda a solucionar este tópico????

Já estou uma SEMANA e meia...

E não consigo sair do lugar.

Obrigado!

berkowitz · Fevereiro 10, 2009

Cara... me desculpe a demora.

Bom... ainda não consegui achar seu problema. Faz o seguinte: sai debugando! Inclui alert em tudo pra ver o que tuas funções estão fazendo! Tipo assim:

<script language=javascript>
function envia_banner(banner) {
  alert(banner);		 
  /*self.opener.recebe_banner('ImagemBANNER', banner);
  window.close();*/
}
</script>

e na função recebe_imagem c faz assim:

function recebe_imagem(campo, imagem){
alert(campo+"  --  "+imagem);
/*var foto = 'img_' + campo
	document.frm[campo].value = imagem;
	document.frm[foto].src = imagem;*/
}

Com isso saberemos se as variáveis estão sendo "alimentadas" corretamente.

Abraços!

marcelocardoso · Fevereiro 12, 2009

Berkowitz!

Obrigado pelo retorno, mas fiz oque você falou, e nao sai alert nenhum.

Já me falaram para fazer uma DIV em torno da parte de SWF e montar uma nova com InnerHTML.

Mas isso mim é coisa do outro mundo, pois não entendo nada de js.

Ainda me quebro pra aprender muitas coisas de ASP, e quando menos de javascript.

Queria tanto fechar este script, mas não consigo.

E o engraçado que com imagem funciona perfeito.

Deve ser pouca coisa, pois se imagem vai, porque que swf nao.

Fico no seu aguardo.

marcelocardoso · Fevereiro 14, 2009

berkowitz!

Conseguiu alguma coisa????

Sabe como fazer isso com innerhtml, pois me disseram pra fazer isto e depois montar atráves disso, sei lá...

Não entendi.

marcelocardoso · Fevereiro 17, 2009

Amigos!

Algupem ajuda neste desafio aqui....

Já faz mais de 4 semana e não conseguimos fazer funcionar no IE.....

Obrigado!

Arquivado

Upload de SWF

Recommended Posts

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

berkowitz 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

berkowitz 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

berkowitz 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

berkowitz 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6