Subir E Imprimir Na Tela!

mkboy · Abril 13, 2004

To tentando subir uma imagem para o servidor e imprimi-la na tela, mas não estou conseguindo.

Até subir a imagem para o servidor ta normal, mas na hora que tento fazer um request.form do campo e fazer um response write, da erro.

Veja como estou fazendo:

formulario para enviar imagem

<form action="upload.asp" METHOD="POST" ENCTYPE="multipart/form-data" >
<p>Subir foto:</p>
<INPUT TYPE=FILE SIZE=40 NAME="FILE1">

</p>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" value="Inserir Foto" name="B1" style="background-color: #ffffff; font-family: Verdana; font-size: 8 pt; color: #006699; font-weight: bold">
</font></p>
<p> </p>
</form>

Essa pagina sem o request e o response funciona legal:

<%
foto = Request.form("FILE1")
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("G:/inetpub/domains/meusite.com.br/www/catalogo/upload")
%>
<% = Count %> arquivo enviado.
<%=foto%>
</BODY>
</HTML>

Depois que exibir a imagem na tela, vou preencher um formulario e salvar as informacoes do formulario com a imagem que ta na variavel no banco de dados, para listar em outra pagina.

É assim que faço?

dark0 · Abril 13, 2004

hum

desse jeito que você colocou:

<%=foto%>

não funcionou?:

gera algum erro?

se sim, qual erro?

responde ae, pois senao fica complicado lhe ajudar

abraços

Victor · Abril 13, 2004

<%
Set RecSet = Server.CreateObject("adodb.recordset")
if Request.QueryString("upload") <> "" then
	session("upload") = Request.QueryString("upload")
end if

if Request.QueryString("acao") = "gravar" then
	Set upl = Server.CreateObject("SoftArtisans.FileUp") 
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	on error Resume Next
  nome_foto = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
  if FSO.FileExists(endereco_fisico&"\imagens\"&nome_foto) = False Then
  	if Request.QueryString("recorte") = "sim" then
    RecSet.Open "Select foto_recorte from promocao where id = "&session("upload")&"", conn	
    	foto_antiga = RecSet("foto_recorte")
    RecSet.Close
    FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga
    upl.Path = endereco_fisico&"\imagens\"
    upl.Save
    Conn.Execute "Update promocao set foto_recorte = '"&nome_foto&"' where id = "&session("upload")&""
  	else
    RecSet.Open "Select foto from promocao where id = "&session("upload")&"", conn	
    	foto_antiga = RecSet("foto")
    RecSet.Close
    FSO.DeleteFile endereco_fisico&"\imagens\"&foto_antiga
    upl.Path = endereco_fisico&"\imagens\"
    upl.Save
    Conn.Execute "Update promocao set foto = '"&nome_foto&"' where id = "&session("upload")&""
  	end if
  else
  	Response.Write "<script>alert('o sistema encontrou um outro arquivo com este mesmo nome, por favor renomeio o arquivo para prosseguir...')</script>" 
  end if
	Set upl = Nothing
	Set FSO = Nothing
end if

RecSet.Open "Select * from tabela where id = "&session("upload")&"", conn
	t=RecSet("titulo")
	foto=RecSet("foto")
	foto_r=RecSet("foto_recorte")
RecSet.Close%>
<%=foto%>
<%=foto_r%>

Olha uma base ai de um upload, usa esse de base!!! Qualquer coisa é só falar!!!

[]'s

Victor

Entrar

Subir E Imprimir Na Tela!

Pergunta

mkboy

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

Victor

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades