Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

wills

Upload com defeito

Por , em ASP Clássico

Recommended Posts

wills    0

wills
Postado

3º tela:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body> <table width=1% border=1> <tr> <td><!--#include file="topo.inc"--></td> </tr> <tr> <td> <% cat_id = Request.Form("cat_id") nome = Request.Form("nome") descricaop = Request.Form("descricaop") descricaog = Request.Form("descricaog") preco = Request.Form("preco") imagem = Request.Form("imagem") ' não exibe o nome da imagem, apenas a carrega dentro do servidor. response.Write(imagem) disp = Request.Form("disp") lojaDB.Execute("INSERT INTO produtos(cat_id,nome,descricaop,descricaog,preco,imagem,disp)" & _ "VALUES('" & cat_id & "','" & nome & "','" & descricaop & "','" & _ descricaog & "','" & preco & "','" & imagem & "','" & disp & "')") %> </td> </tr> <tr> <td><!--#include file="binferior.inc"--></td> </tr> </table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

<%Rafael%>    0

<%Rafael%>
Postado

Salve,para trabalhar com Uploads no ASP não é muito simples, têm algumas observações...1 - É necessário algum componente para Upload (Dundas, AspUpload, etc) ou alguma classe em Fso para efetuar o Upload2 - Ao trabalhar com uploads, o enctype do seu form deve ser do tipo "multipart/form-data"3 - Ao trabalhar com uploads (e consequentemente com o enctype="multipart/form-data), a requisição dos dados (inclusive campos de texto) não pode ser feita utilizando o Request.Form, e sim o objeto Request do componente (ou da classe Fso), que geralmente será "nomedoObjeto.Form()"Poste suas dúvidas aí e vamos auxiliando!Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

então cara, eu uso o dundas upload... mas que ocorre é que não consigo salvar o nome da img no bd, apenas no ftp...entende?eu não consigo capturar o nome do meu form.

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><% On Error Resume Next Set Upload = server.CreateObject("Dundas.Upload.2")Upload.UseVirtualDir = FalseUpload.UseUniqueNames = TrueUpload.Save "c:\inetpub\lavorato\web\v2\fotos"if Upload.Files.Count = 1 thenorigName1 = Upload.GetFileName(Upload.Files(0).Path)elseif Upload.Files.Count = 2 thenorigName1 = Upload.GetFileName(Upload.Files(0).Path)origName2 = Upload.GetFileName(Upload.Files(1).Path)elseif Upload.Files.Count = 3 thenorigName1 = Upload.GetFileName(Upload.Files(0).Path)origName2 = Upload.GetFileName(Upload.Files(1).Path)origName3 = Upload.GetFileName(Upload.Files(2).Path)elseif Upload.Files.Count = 4 thenorigName1 = Upload.GetFileName(Upload.Files(0).Path)origName2 = Upload.GetFileName(Upload.Files(1).Path)origName3 = Upload.GetFileName(Upload.Files(2).Path)origName4 = Upload.GetFileName(Upload.Files(3).Path)elseif Upload.Files.Count = 5 thenorigName1 = Upload.GetFileName(Upload.Files(0).Path)origName2 = Upload.GetFileName(Upload.Files(1).Path)origName3 = Upload.GetFileName(Upload.Files(2).Path)origName4 = Upload.GetFileName(Upload.Files(3).Path)origName5 = Upload.GetFileName(Upload.Files(4).Path)elseend ifSet Upload = nothingIf Err <> 0 ThenResponse.Write Err.Description & " " & Err.Number & "<br>"else%><form action="cadastro1.asp" method="post" enctype="application/x-www-form-urlencoded"> <table width=1% border=1> <tr> <td><!--#include file="topo.inc"--></td> </tr> <tr valign=top> <td width=1%>Nome :</td> <td><input type=text maxlength=50 size=50 name=nome></td> </tr> <tr valign=top> <td width=1%>Categoria :</td> <td> <select name=cat_id> <option value=nulo>Selecione uma Categoria</option> <% set lista_categoria = lojaDB.Execute("SELECT * FROM categorias") While not lista_categoria.EOF %> <option value="<%=lista_categoria("id")%>" <%If (lista_categoria("id") = cat_id) Then Response.Write "selected" End If%>><%=lista_categoria("nome")%></option> <% lista_categoria.MoveNext Wend %> </select></td> </tr> <tr valign=top> <td width=1%>Descrição resumida :</td> <td><input type=text maxlength=100 size=50 name=descricaop></td> </tr> <tr valign=top> <td width=1%>Descrição completa :</td> <td><input type=text maxlength=255 size=50 name=descricaog></td> </tr> <tr valign=top> <td width=1%>Preço :</td> <td>R$  <input type=text size=8 name=preco></td> </tr> <!--tr valign=top><td width=1%>Imagem :</td><td><input type=file size=50 name=imagem></td></tr--> <tr valign=top> <td>Tamanho / Qtdes</td> <td> <% Dim tamanhoDB set tamanhoDB = Server.CreateObject("ADODB.Connection") tamanhoDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\lavorato\web\v2\loja.mdb" tamanhoDB.open dim id_tam, nomeTamanho, lista_tamanhos set lista_tamanhos = tamanhoDB.Execute("SELECT * FROM Tamanho ORDER BY Tamanho.nm_Tamanho") If lista_tamanhos.EOF Then Response.Write "Erro!" Else while not lista_tamanhos.EOF id_tam = lista_tamanhos("id_Tamanho") nomeTamanho = lista_tamanhos("nm_Tamanho") %> <input type="checkbox" name="chk<%=id_tam%>" value="checkbox"> <%=nomeTamanho%> - qtde: <input type="text" name="txt<%=id_tam%>"> <br /> <% lista_tamanhos.movenext wend End If lista_tamanhos.close set lista_tamanhos = Nothing tamanhoDB.close %> </td> </tr> <tr valign=top> <td width=1%>Disponível :</td> <td> <select name=disp> <option value="S" <% If acao = "erro" Then If disp = "S" Then Response.Write "selected" End If Else %>selected<% End If%>>Sim</option> <option value="N" <%If disp = "N" Then Response.Write "selected" End If%>>Não</option> </select></td> </tr> <tr> <td><input name="" type="submit" value="Enviar"></td> </tr> <tr> <%end if%> <td><!--#include file="binferior.inc"--></td> </tr> </table></form></body></html><%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body> <table width=1% border=1> <tr> <td><!--#include file="topo.inc"--></td> </tr> <tr> <td> <% Session("imagem")=request.Form("imagem") if (session(imagem)) <> "" then cat_id = Request.Form("cat_id") nome = Request.Form("nome") descricaop = Request.Form("descricaop") descricaog = Request.Form("descricaog") preco = Request.Form("preco") disp = Request.Form("disp") lojaDB.Execute("INSERT INTO produtos(cat_id,nome,descricaop,descricaog,preco,imagem,disp)" & _ "VALUES('" & cat_id & "','" & nome & "','" & descricaop & "','" & _ descricaog & "','" & preco & "','" & imagem & "','" & disp & "')") else response.Write("erro!") end if %> </td> </tr> <tr> <td><!--#include file="binferior.inc"--></td> </tr> </table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito