Sistema de upload

[designmix 0]

Galera estou com um pau no meu script de upload. Ele nao esta pegando o valor do dampo type"file" e mandando para o bando os nomes estão certos

 

aqui esta o form

ASP

[*] <form action="enviar_noticia.asp" method="post" enctype="multipart/form-data" name="form1">

 

[*] <table width="534" border="0" align="center">

 

[*] <tr>

 

[*] <td width="107" class="texto">Data da matéria:</td>

 

[*] <td><input name="Data" type="text" class="form1" style="width: 100px; text-align: left"></td>

 

[*] <td class="texto">A <font class="texto_bold"><%=total%></font> Noticias cadastradas </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td class="texto">Titulo da Matéria: </td>

 

[*] <td colspan="2"><input name="materia" type="text" class="form1" id="materia" style="width: 400px; text-align: left"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td class="texto">Imagem:</td>

 

[*] <td colspan="2"><input name="Foto" type="file" class="form1" id="Foto" style="width: 400px; "></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td> </td>

 

[*] <td colspan="2"><textarea name="Conteudo" id="Conteudo" style="width: 400px; height: 250px; text-align: left"></textarea></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td> </td>

 

[*] <td width="157"><input name="Submit" type="submit" class="form1" value="Enviar"></td>

 

[*] <td width="256"><input name="Submit2" type="reset" class="form1" value="Limpar Campos"></td>

 

[*] </tr>

 

[*] </table>

 

[*] </form> 

 

e aqui esta meu sistema de upload estou usando o dundas

ASP

[*]<!--#include file="ssi_verificar.asp"-->

 

[*]<!--#include file="_conn/bib_conexao_.asp"-->

 

[*]<%

 

[*] Set oDundas = Server.CreateObject("Dundas.Upload.2")

 

[*] oDundas.UseUniqueNames = False

 

[*] oDundas.Save "e:home\dtp1\web\teste\_img_noticias\"

 

[*] For Each vFiles In oDundas.Files

 

[*] if a <> "ok" then

 

[*] Foto = oDundas.GetFileName(vFiles.Path)

 

[*] a = "ok"

 

[*] end if

 

[*] Next

 

[*]

 

[*]

 

[*]Data  = oDundas.Form.Item("data")

 

[*]materia = oDundas.Form.Item("materia")

 

[*]Foto  = oDundas.Form.Item("Foto")

 

[*]conteudo  = oDundas.Form.Item("conteudo")

 

[*]

 

[*]strSQL = "INSERT INTO noticia (data, materia, Foto, conteudo) " 

 

[*]strSQL = strSQL & "values ('"& data & "','" & materia & "','" & Foto & "','" & conteudo & "') " 

 

[*]Response.Write strSQL

 

[*]response.End

 

[*]

 

[*]call abre_conexao

 

[*]conn.Execute strSQL

 

[*]call fecha_conexao

 

[*]%>

 

[*]

[[rush_jeff_rulez] 0]

Eae veio ...

 

E se tu tentar assim ...

 

 

ASP

[*]Foto = Trim(oDundas.GetFileName(objUpload.Files(0).Path))

 

Sera q rola

[designmix 0]

nada agora deu esse erro..

Microsoft VBScript runtime error '800a01a8' Object required: 'objUpload' /teste/enviar_noticia.asp, line 9

[[rush_jeff_rulez] 0]

nada agora deu esse erro..

Microsoft VBScript runtime error '800a01a8' Object required: 'objUpload' /teste/enviar_noticia.asp, line 9

<{POST_SNAPBACK}>

Mal ae ... psotei o codigo errado

 

tenta agora :

 

ASP

[*]Foto = Trim(objUpload.GetFileName(objUpload.Files(0).Path))

[Marcelo Barcellos 0]

O nome do objeto é "oDundas" e não "ObjUpload"....

[[rush_jeff_rulez] 0]

O nome do objeto é "oDundas" e não "ObjUpload"....

<{POST_SNAPBACK}>

Eh verdade ....

 

ASP

[*]Foto = Trim(oDundas.GetFileName(oDundas.Files(0).Path))

 

Mal eu ...

[designmix 0]

Galera eu dei um Response.write strSQL

 

e meu despondeu o campo do file veio em branco

INSERT INTO noticia (data, materia, Foto, conteudo) values ('11/08/2005','testes agora 458','','conteudi')

 

Ainda não consigo pegar o valor do campo

[[rush_jeff_rulez] 0]

Galera eu dei um Response.write strSQL

 

e meu despondeu o campo do file veio em branco

INSERT INTO noticia (data, materia, Foto, conteudo) values ('11/08/2005','testes agora 458','','conteudi')

Ainda não consigo pegar o valor do campo

<{POST_SNAPBACK}>

Eae veio ... aqui nessa parte:

 

ASP

[*]For Each vFiles In oDundas.Files

 

[*]

 

[*] if a <> "ok" then

 

[*]

 

[*] Foto = oDundas.GetFileName(vFiles.Path)

 

[*]

 

[*] a = "ok"

 

[*]

 

[*] end if

 

[*]

 

[*] Next

 

[*]

 

Tu jah nao ta pegando o nome do arquivo q esta seno enviado !?

[designmix 0]

Eu nao entendi..Eu nao tenho que pegar o caminho do arquivo no campo file me mandar para o db. eu li numa documentação que pego com Foto = oDundas.Form.Item("Foto")

[[rush_jeff_rulez] 0]

Bah ... saca soh veio ....

 

Eu uso assim para pegar os nomes das minhas fotos fazer o upload e gravar no bd ... com o dundas tbm.

 

Ve se lhe serve:

 

ASP

[*]Set objUpload = Server.CreateObject("Dundas.Upload.2") 

 

[*]

 

[*]objUpload.UseUniqueNames = False 

 

[*]cmnh = "http://www.meusite.com/fotos/"&user&""

 

[*]objUpload.Save "e:\home\meusite\web\fotos\"&user&"" 

 

[*]

 

[*]descricao = OBJUPLOAD.form("T1")

 

[*]nomedafoto = Trim(objUpload.GetFileName(objUpload.Files(0).Path))

 

[*]

 

[*]inserir = "INSERT INTO fotos (Cod_User, Endereco, Descricao_1, Nome_1)"&_

 

[*]" VALUES ('" & user & "', '" & cmnh & "', '" & descricao & "', '" & nomedafot & "')" 

 

[*]Conexao.Execute(inserir)

[designmix 0]

Não entendo seu script , o meu funciona local so na web que nao add o caminho da foto

[Deividy 0]

você só usaria o Foto = Form.Item se fosse input com file que é caso do upload isso não resolvevocê talvez não esta consegundo colocar as fotos no servidor por causa dissoobjUpload.Save "e:\home\meusite\web\fotos\"&user&"" você precisa saber o caminho inteiro do seu site na web

[[rush_jeff_rulez] 0]

Não entendo seu script , o meu funciona local so na web que nao add o caminho da foto

<{POST_SNAPBACK}>

você tah pegando o endereco fisico da imagem ... tipo C:/imagens/foto.jpg !? ... no seu pc vai rolar .... agora no server nao tenho tanta certeza ...

 

Mas assim, nao sei se vai adiantar mas faz um teste, nessa parte:

 

ASP

[*]Data  = oDundas.Form.Item("data")

 

[*]materia = oDundas.Form.Item("materia")

 

[*]Foto  = oDundas.Form.Item("Foto")

 

[*]conteudo  = oDundas.Form.Item("conteudo")

 

Retira essa linha:

 

ASP

[*]Foto  = oDundas.Form.Item("Foto")

 

E ve se ele pega o nome da foto

[designmix 0]

tirei mais nada peguei o valor mais vem em branco

 

INSERT INTO noticia (data, materia, Foto, conteudo) values ('11/08/2005','testes agora','','sasasasas')

[meirelles 0]

upload é um caso sério, demorei 1 mes pra configurar o meu aspupload e ainda sim tive que fazer gatilho no codigo, coisas absurdas pro upload funcionar, tipo, grava duas fotos no banco e depois deleta uma huahuahahahauhauaha, mó comédia q eu sou!

[designmix 0]

hahahha.. nem fale de um mes preciso disso o mais rapido ou que vai fazer ulploads vai ser eu, pego minhas coisa e vou trabalhar em outro lugar..Conheço o basico de asp nunca fiz nada com upload

[[rush_jeff_rulez] 0]

Caraca veio .... tipo aki nao tenho tempo pra ficar testando os cods ... mas se liga soh ... vou comentar o meu cod pra ver se te ajuda:

 

ASP

[*]Set objUpload = Server.CreateObject("Dundas.Upload.2") 

 

[*]objUpload.UseUniqueNames = False 

 

[*]

 

[*]' cmnh eh o endereço das minhas fotos na net

 

[*]cmnh = "http://www.meusite.com/fotos/"

 

[*]

 

[*]'diretorio onde gravarei meu arquivos na net

 

[*]objUpload.Save "e:\home\meusite\web\fotos\"

 

[*]

 

[*]'pego a descricao da foto no form e o nome da foto

 

[*]descricao = OBJUPLOAD.form("Descricao")

 

[*]nomedafoto = Trim(objUpload.GetFileName(objUpload.Files(0).Path))

 

[*]

 

[*]'insiro as variaveis nas colunas da tabela

 

[*]inserir = "INSERT INTO fotos (Cod_User, Endereco, Descricao_1, Nome_1)"&_

 

[*]" VALUES ('" & user & "', '" & cmnh & "', '" & descricao & "', '" & nomedafoto & "')" 

 

[*]Conexao.Execute(inserir)

 

Sei lah cara tenta fazer um up com esse code q te passei ... pelo menos pra você ganhar tempo ... ateh conseguir fazer o q você quer ou entao entra aqui:

 

http://www.freeaspupload.net/

 

Boa sorte

[meirelles 0]

tem certeza que nome do campo foto no formulario é file e não file1?

[designmix 0]

aqui esta o nome do campo <input name="Foto" type="file" id="Foto" class="form1" style="width: 400px; ">

[designmix 0]

Eu ja estou ficando nervoso com esse script nao sei aonde esta errado local funciona. E ainda na Web so manda a imagem para pasta mais nao pega o caminho

ASP

[*]<%

 

[*] Set oDundas = Server.CreateObject("Dundas.Upload.2")

 

[*] oDundas.UseUniqueNames = False

 

[*] oDundas.Save "e:home\dtp1\web\teste\_img_noticias\"

 

[*] Foto = Trim(oDundas.GetFileName(oDundas.Files(0).Path))

 

[*]

 

[*]Data  = oDundas.Form.Item("data")

 

[*]materia = oDundas.Form.Item("materia")

 

[*]Foto = oDundas.Form.Item("Foto")

 

[*]conteudo  = oDundas.Form.Item("conteudo")

 

[*]

 

[*]strSQL = "INSERT INTO noticia (data, materia, Foto, conteudo) " 

 

[*]strSQL = strSQL & "values ('"& data & "','" & materia & "','" & Foto & "','" & conteudo & "') " 

 

[*]Response.Write strSQL

 

[*]response.End

 

[*]

 

[*]call abre_conexao

 

[*]conn.Execute strSQL

 

[*]call fecha_conexao

 

[*]%>

Formulario

ASP

[*]<input name="Foto" type="file" id="Foto" class="form1" style="width: 400px; ">

:angry: :angry: :angry: :angry: