smez Postado Outubro 11, 2007 Denunciar Share Postado Outubro 11, 2007 Bom galera como que eu faço para fechar o POPUP Automatico depois de fazer um Upload<body class="texto_pagina" onLoad="doTitle();self.focus()"> <form method="post" ENCTYPE="multipart/form-data" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?link=cadastro&codigo_selo=<%=Request("codigo_selo")%>&enviar=sim" onSubmit="enviar.disabled=true"> Enviar um novo selo:<br> <INPUT type="file" name="caminho_selo" class="campos_formulario" style="width: 100%"><br> <INPUT type="submit" name="enviar" value="Enviar" class="botao_enviar"><br> <i>(A imagem deve ter nó máximo 200Kb)</i> </form> <% If Request("enviar") <> "" Then byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin contentType = UploadRequest.Item("caminho_selo").Item("ContentType") filepathname = UploadRequest.Item("caminho_selo").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) filename = Replace(filename,".","_"& rndit &".") value = UploadRequest.Item("caminho_selo").Item("Value") %> <strong>Aguarde o envio da imagem...</strong><br> <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> <% Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set MyFile = ScriptObject.CreateTextFile(Server.mapPath("../config/imagens_conteudo/produtos/imagensPQN/"&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 'renomeia ao arquivo Function rndit() Dim RndTemp Randomize RndTemp = Rnd * 100 RndTemp= Int(RndTemp) rndit = RndTemp End Function caminho = "config/imagens_conteudo/produtos/imagensPQN/"&filename&"" SQL = "UPDATE Selos SET caminho_selo='"& caminho & "' WHERE codigo_selo="&Request.QueryString("codigo_selo")&"" set rs = abredb.execute(SQL) %> <a href=javazcript:window.close()> <script language=javascript> window.opener.recebe_imagem('caminho_selo', imagem);window.close() </script> <a href="java script:window.opener.location='adm_alterar_selo.asp?codigo_selo=<%=Request.QueryString("codigo_selo")%>';window.close()"><b>Fechar Janela</b></a> <%eND iF%>eu fiz esse script, mas não esta funfando, Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 quintelab Postado Outubro 18, 2007 Denunciar Share Postado Outubro 18, 2007 Cara tenho uma janela aqui que eu fecho somente com o comando: close();tenta retirar o "window", quem sabe da certo... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 smez Postado Outubro 23, 2007 Autor Denunciar Share Postado Outubro 23, 2007 Cara tenho uma janela aqui que eu fecho somente com o comando: close();tenta retirar o "window", quem sabe da certo...valeu deu certo, obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
smez
Bom galera como que eu faço para fechar o POPUP Automatico depois de fazer um Upload
<body class="texto_pagina" onLoad="doTitle();self.focus()"> <form method="post" ENCTYPE="multipart/form-data" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?link=cadastro&codigo_selo=<%=Request("codigo_selo")%>&enviar=sim" onSubmit="enviar.disabled=true"> Enviar um novo selo:<br> <INPUT type="file" name="caminho_selo" class="campos_formulario" style="width: 100%"><br> <INPUT type="submit" name="enviar" value="Enviar" class="botao_enviar"><br> <i>(A imagem deve ter nó máximo 200Kb)</i> </form> <% If Request("enviar") <> "" Then byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin contentType = UploadRequest.Item("caminho_selo").Item("ContentType") filepathname = UploadRequest.Item("caminho_selo").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) filename = Replace(filename,".","_"& rndit &".") value = UploadRequest.Item("caminho_selo").Item("Value") %> <strong>Aguarde o envio da imagem...</strong><br> <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> <% Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set MyFile = ScriptObject.CreateTextFile(Server.mapPath("../config/imagens_conteudo/produtos/imagensPQN/"&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 'renomeia ao arquivo Function rndit() Dim RndTemp Randomize RndTemp = Rnd * 100 RndTemp= Int(RndTemp) rndit = RndTemp End Function caminho = "config/imagens_conteudo/produtos/imagensPQN/"&filename&"" SQL = "UPDATE Selos SET caminho_selo='"& caminho & "' WHERE codigo_selo="&Request.QueryString("codigo_selo")&"" set rs = abredb.execute(SQL) %> <a href=javazcript:window.close()> <script language=javascript> window.opener.recebe_imagem('caminho_selo', imagem);window.close() </script> <a href="java script:window.opener.location='adm_alterar_selo.asp?codigo_selo=<%=Request.QueryString("codigo_selo")%>';window.close()"><b>Fechar Janela</b></a> <%eND iF%>eu fiz esse script, mas não esta funfando,
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.