não estou achando o erro

Adilson_Web_2007 · Outubro 2, 2007

Olá pessoal estou tentando fazer um upload, e coloquei uma varidação para saber se existe o arquivo com o mesmo nome. Só que o problema e que não tem o arquivo com o mesmo nome e aparece a mensagem digendo que Já existe um arquivo com esse nome. alguém pode me ajudar com esse erro por favor.

E minha outra duvida é, preciso pegar o nome do arquivo e gravar num banco de dados para obter esse nome?

Segue o script. Esse script eu peguei na net e tentei adaptá-lo.

<%Response.Buffer = TrueServer.ScriptTimeout = 1000dim codigo_clientecodigo_cliente = request.form("num")'Utilizaremos a função On Error Resume Next para ignorar qualquer erro que possa vir a acontecer, e posteriormente iremos identifica-lo e só então comunicarmos ao usuário.On Error Resume NextResponse.Write "<HTML><HEAD><TITLE>HONDA,DIAS,FERREIRA,ADVOGADOS.</TITLE></HEAD><BODY><br><br><br><br><br><br><br><br><br>"Response.Write("<div align=""center"" id=""carregando""><img src='imagem/loading.gif'>Aguarde...</div>")Response.Flush()Dim objUpload'Cria uma instancia do objeto Upload e atribui a variável objUpload.Set objUpload = server.CreateObject("Dundas.Upload.2")'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.objUpload.UseVirtualDir = True'Determinamos False em UseUniqueNames para que o arquivo nao mude de nome.objUpload.UseUniqueNames = False'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.If objUpload.FileExists(objNextFile.FileName) Then%><script language="javascript">window.alert('Já existe um arquivo com esse nome!');window.close(); </script><%elseobjUpload.Save "/Arquivos"'INFORMAÇÕES DO ARQUIVO CARREGADO'loop through all uploaded files, and output their Content TypeFor Each objUploadedFile in objUpload.FilesResponse.Write("content Type: " & objUploadedFile.ContentType & "<br>")Next'loop through all uploaded files, and output their Original PathFor Each objUploadedFile in objUpload.FilesResponse.Write("Original Path: " & objUploadedFile.OriginalPath & "<br>")Next'Informação para o caminho físico em que o arquivo foi carregado'loop through all uploaded files, and output their PathFor Each objUploadedFile in objUpload.FilesResponse.Write("Path: " & objUploadedFile.Path & "<br>")Next'loop through all uploaded files, and output their size in bytesFor Each objUploadedFile in objUpload.FilesResponse.Write("Size: " & objUploadedFile.Size & "<br>")Next'loop through all uploaded files, and output their tagnameFor Each objUploadedFile in objUpload.FilesResponse.Write("TagName: " & objUploadedFile.TagName & "<br>")Next'Limpa a instância criada na memória do servidor.Set objUpload = nothing'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.If Err <> 0 Then'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.Response.Write Err.Description & " " & Err.Number & "<br>"Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"Else'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acimaResponse.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font><br>"'Response.Write PathEnd Ifend ifResponse.Write("<script type=""text/javascript""> document.getElementById(""carregando"").style.display = ""none"";</script>")Response.Write "</BODY></HTML>"'Fim de grava_anexo.asp%>

Adilson_Web_2007 · Outubro 2, 2007

Pessoal quando eu inserir o nome desse arquivo no banco de dados, e so dar um select para trazer o caminho para i usuário visualizar o arquivo? de upload não entendo nada. alguém pode me ajudar por favor.

Adilson_Web_2007 · Outubro 3, 2007

Olá pessoal sobre os testos acima eu pesquisei na internet e achei algumas coisa que me "serviram" mas o problema que não está fazendo o upload e nem salvando no banco de dados. Alguém pode me ajudar por favor?Segue o código alterado não estou conseguindo inserir o codigo

Adilson_Web_2007 · Outubro 3, 2007

Vou tentar novamente inserir o código, eu não sei o que está acontecendo.

ASP

'Utilizaremos a função On Error Resume Next para ignorar qualquer erro que possa vir a acontecer, e posteriormente iremos identifica-lo e só então comunicarmos ao usuário.

On Error Resume Next

Dim objUpload,nomearquivo,objUploadedFile,conexaoDataBase,ConnString,sqlArquivo,rsAr

uivo,codigo,objNextFile

Response.Write "<HTML><HEAD><TITLE>Fazendo UpLoad com Dundas UpLoad</TITLE></HEAD><BODY>"

'Cria uma instancia do objeto Upload e atribui a variável objUpload.

Set objUpload = server.CreateObject("Dundas.Upload.2")

' recupera o valor passado por parametro

codigo = objUpload.form("numero")

'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.

objUpload.UseVirtualDir = True

' manter o memso nome

objUpload.UseUniqueNames = false

Set objNextFile = objUpload.GetNextFile()

For Each objUploadedFile in objUpload.Files

nomearquivo = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"")) & " "

sqlArquivo = "select nome_arquivo from nomeArquivo where nome_arquivo ='"&nomearquivo&"' "

set rsArquivo = conexaoDataBase.execute(sqlArquivo)

if rsArquivo.eof then

response.write("O arquido de nome:"&nomearquivo&" já se encontra em nossa base de dados! ")

else

'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.

objUpload.Save "Arquivos"

sqlArquivo = "INSERT INTO nomeArquivo (mone_arquivo, caminho_arquivo) VALUES ('"& titulo_foto &"','"& objNextFile.FileName &"')"

set rsArquivo = conexaoDataBase.execute(sqlArquivo)

end if

Set objUpload = nothing

'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.

If Err <> 0 Then

'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.

Response.Write Err.Description & " " & Err.Number & " "

Response.Write "Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)! <a href=java script:history.back(-1)>Voltar</a> "

Else

'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acima

Response.Write "Seus dados foram carregados com sucesso!"

End If

Response.Write "</BODY></HTML>"

'Fim de grava_anexo.asp

Daw · Outubro 3, 2007

Qual tipo de campo que você está tentando pôr o arquivo?

E qual banco está usando?

Adilson_Web_2007 · Outubro 3, 2007

no banco eu quero por so o nome do arquivo e o caminho. o banco de dados é o mysql.

Daw · Outubro 3, 2007

Eu não estou conseguindo enxergar direito o caso mas posso dizer uma coisa?

Tente primeiro fazer só o upload funcionar, e para isto tem diversas formas já postadas aqui no fórum que podem te ajudar Busca do Fórum iMasters.

Em seguida, você incrementa seu código se preocupando com as validações.

[]tz ;)

Adilson_Web_2007 · Outubro 3, 2007

eu consegui fazer ele funcionar sem inserir o caminho no banco de dados, ele parou de funcionar quando eu adaptei para gravar o caminho no banco.

Daw · Outubro 3, 2007

Tem como você postar o código de como ficou somente com o upload de arquivos?

Sem nada de banco de dados...

[]tz ;)

Tem como você postar o código de como ficou somente com o upload de arquivos?

Sem nada de banco de dados...

[]tz ;)

Adilson_Web_2007 · Outubro 3, 2007

Segue o código funcionando

de novo não estou conseguindo colocar o codigo.

eu quero adaptar para que eu possa colocar o nome do arquivo e o caminho no banco de dados.

vou tentar novamente.

ASP

'Utilizaremos a função On Error Resume Next para ignorar qualquer erro que possa vir a acontecer, e posteriormente iremos identifica-lo e só então comunicarmos ao usuário.

On Error Resume Next

Dim objUpload,nomearquivo,objUploadedFile,conexaoDataBase,ConnString,sqlArquivo,rsAr

uivo,codigo,objNextFile

Response.Write "<HTML><HEAD><TITLE>Fazendo UpLoad com Dundas UpLoad</TITLE></HEAD><BODY>"

'Cria uma instancia do objeto Upload e atribui a variável objUpload.

Set objUpload = server.CreateObject("Dundas.Upload.2")

' recupera o valor passado por parametro

codigo = objUpload.form("numero")

'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.

objUpload.UseVirtualDir = True

' manter o memso nome

objUpload.UseUniqueNames = false

'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.

objUpload.Save "Arquivos"

'Limpa a instância criada na memória do servidor.

Set objUpload = nothing

'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário.

If Err <> 0 Then

'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.

Response.Write Err.Description & " " & Err.Number & " "

Response.Write "Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)! <a href=java script:history.back(-1)>Voltar</a> "

Else

'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acima

Response.Write "Seus dados foram carregados com sucesso!"

End If

Response.Write "</BODY></HTML>"

'Fim de grava_anexo.asp

Arquivado

não estou achando o erro

Recommended Posts

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Daw 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Daw 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Daw 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Adilson_Web_2007 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante