Pessoal eu estou utilizando um script para upload sem componentes(peguei aqui mesmo no forum) que funcionava perfeitamente, mas derrepente parou de funcionar. Não da erro nenhum, a mensagem que aparece é a de "ok"
ou seja que deu tudo certo. Porem quando vou vizualizar as imagens que foram para a pasta de destino atraves do upload
não aparece nada, nenhuma imagem é exibida, porque isso acontece?
O que tem de errado no código?
salva_cadastro.asp
<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
' Recuperando os Dados Digitados ----------------------
varId = session("Login")
varMarca = UploadRequest.Item("marca").Item("Value")
varModelo = UploadRequest.Item("modelo").Item("Value")
varFormato = UploadRequest.Item("formato").Item("Value")
varAnoFab = UploadRequest.Item("anofabricacao").Item("Value")
varTipo = UploadRequest.Item("tipo").Item("Value")
varFuncionamento = UploadRequest.Item("funcionamento").Item("Value")
varAparencia = UploadRequest.Item("aparencia").Item("Value")
varCidade = UploadRequest.Item("cidade").Item("Value")
varEstado = UploadRequest.Item("estado").Item("Value")
varNome = UploadRequest.Item("nome").Item("Value")
varEmpresa = UploadRequest.Item("empresa").Item("Value")
varDDD = UploadRequest.Item("DDD").Item("Value")
varFone = UploadRequest.Item("fone").Item("Value")
varEmail = UploadRequest.Item("email").Item("Value")
varPreco = UploadRequest.Item("preço").Item("Value")
varPagamento = UploadRequest.Item("pagamento").Item("Value")
varOBS = UploadRequest.Item("obs").Item("Value")
DataCadastro = session("data2")
' Tipo de arquivo que esta sendo enviado
tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")
tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")
tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")
tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")
tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType")
' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")
caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")
caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")
caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")
caminho_foto5 = UploadRequest.Item("foto5").Item("FileName")
' Nome dos arquivos enviados
nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))
nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))
nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))
' Conteudo binario dos arquivos enviados
foto1 = UploadRequest.Item("foto1").Item("Value")
foto2 = UploadRequest.Item("foto2").Item("Value")
foto3 = UploadRequest.Item("foto3").Item("Value")
foto4 = UploadRequest.Item("foto4").Item("Value")
foto5 = UploadRequest.Item("foto5").Item("Value")
' pasta onde as imagens serao guardadas
pasta = Server.MapPath("Fotos_maquinas_venda/")
nome_foto1 = "/"&nome_foto1
nome_foto2 = "/"&nome_foto2
nome_foto3 = "/"&nome_foto3
nome_foto4 = "/"&nome_foto4
nome_foto5 = "/"&nome_foto5
' pasta + nome dos arquivos
cfoto1 = "Fotos_maquinas_venda" + nome_foto1
cfoto2 = "Fotos_maquinas_venda" + nome_foto2
cfoto3 = "Fotos_maquinas_venda" + nome_foto3
cfoto4 = "Fotos_maquinas_venda" + nome_foto4
cfoto5 = "Fotos_maquinas_venda" + nome_foto5
' Fazendo o Upload do arquivo selecionado
if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to Len(foto1)
MyFile.Write chrB(AscB(MidB(foto1,i,1)))
Next
MyFile.Close
end if
if foto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to Len(foto2)
MyFile.Write chrB(AscB(MidB(foto2,i,1)))
Next
MyFile.Close
end if
if foto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to Len(foto3)
MyFile.Write chrB(AscB(MidB(foto3,i,1)))
Next
MyFile.Close
end if
if foto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to Len(foto4)
MyFile.Write chrB(AscB(MidB(foto4,i,1)))
Next
MyFile.Close
end if
if foto5 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
For i = 1 to Len(foto5)
MyFile.Write chrB(AscB(MidB(foto5,i,1)))
Next
MyFile.Close
end if
' Conecta-se ao Banco de Dados
call abreconexao
' cadastra os dados no banco de dados
sql = " Insert into tbl_maquinas_venda ( COD_USUARIO, MARCA, MODELO, FORMATO, ANO_FABRICACAO, TIPO, FUNCIONAMENTO, APARENCIA, LOC_CIDADE, LOC_ESTADO, NOME, EMPRESA, DDD, TELEFONE, E_MAIL, preço, PAGAMENTO, OBSERVACOES, FOTO1, FOTO2, FOTO3, FOTO4, FOTO5, DATA ) values ( '"&varId&"', '"&varMarca&"', '"&varModelo&"', '"&varFormato&"', "&varAnoFab&", '"&varTipo&"', '"&varFuncionamento&"', '"&varAparencia&"', '"&varCidade&"', '"&varEstado&"', '"&varNome&"', '"&varEmpresa&"', '"&varDDD&"', '"&varFone&"', '"&varEmail&"', "&varPreco&", '"&varPagamento&"', '"&varObs&"', '"&cfoto1&"', '"&cfoto2&"', '"&cfoto3&"', '"&cfoto4&"', '"&cfoto5&"', '"&DataCadastro&"')"
SET rsSQL = ConexaoDB.Execute(sql)
' Mostra Mensagem de Confirmação na Tela
Response.write "Dados Cadastrados com Sucesso!"
%>
Acredito que o erro possa estar aqui:
if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to Len(foto1)
MyFile.Write chrB(AscB(MidB(foto1,i,1)))
Next
MyFile.Close
end if
if foto2 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
For i = 1 to Len(foto2)
MyFile.Write chrB(AscB(MidB(foto2,i,1)))
Next
MyFile.Close
end if
if foto3 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
For i = 1 to Len(foto3)
MyFile.Write chrB(AscB(MidB(foto3,i,1)))
Next
MyFile.Close
end if
if foto4 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
For i = 1 to Len(foto4)
MyFile.Write chrB(AscB(MidB(foto4,i,1)))
Next
MyFile.Close
end if
if foto5 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
For i = 1 to Len(foto5)
MyFile.Write chrB(AscB(MidB(foto5,i,1)))
Next
MyFile.Close
end if
Mas onde?
por favor me ajudem com esse problema, já estou com ele a varias semanas, mas não consegui fazer funcionar.
agradeço desde já.
OBS.: OS ARQUIVOS QUE ESTOU UPANDO, NÃO PASSAM DE 200KB
Pergunta
ANDRE_GUSTAVO
Pessoal eu estou utilizando um script para upload sem componentes(peguei aqui mesmo no forum) que funcionava perfeitamente, mas derrepente parou de funcionar. Não da erro nenhum, a mensagem que aparece é a de "ok"
ou seja que deu tudo certo. Porem quando vou vizualizar as imagens que foram para a pasta de destino atraves do upload
não aparece nada, nenhuma imagem é exibida, porque isso acontece?
O que tem de errado no código?
salva_cadastro.asp
<!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- varId = session("Login") varMarca = UploadRequest.Item("marca").Item("Value") varModelo = UploadRequest.Item("modelo").Item("Value") varFormato = UploadRequest.Item("formato").Item("Value") varAnoFab = UploadRequest.Item("anofabricacao").Item("Value") varTipo = UploadRequest.Item("tipo").Item("Value") varFuncionamento = UploadRequest.Item("funcionamento").Item("Value") varAparencia = UploadRequest.Item("aparencia").Item("Value") varCidade = UploadRequest.Item("cidade").Item("Value") varEstado = UploadRequest.Item("estado").Item("Value") varNome = UploadRequest.Item("nome").Item("Value") varEmpresa = UploadRequest.Item("empresa").Item("Value") varDDD = UploadRequest.Item("DDD").Item("Value") varFone = UploadRequest.Item("fone").Item("Value") varEmail = UploadRequest.Item("email").Item("Value") varPreco = UploadRequest.Item("preço").Item("Value") varPagamento = UploadRequest.Item("pagamento").Item("Value") varOBS = UploadRequest.Item("obs").Item("Value") DataCadastro = session("data2") ' Tipo de arquivo que esta sendo enviado tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType") tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType") tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType") tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType") tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto1 = UploadRequest.Item("foto1").Item("FileName") caminho_foto2 = UploadRequest.Item("foto2").Item("FileName") caminho_foto3 = UploadRequest.Item("foto3").Item("FileName") caminho_foto4 = UploadRequest.Item("foto4").Item("FileName") caminho_foto5 = UploadRequest.Item("foto5").Item("FileName") ' Nome dos arquivos enviados nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")) nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\")) nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\")) nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\")) nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\")) ' Conteudo binario dos arquivos enviados foto1 = UploadRequest.Item("foto1").Item("Value") foto2 = UploadRequest.Item("foto2").Item("Value") foto3 = UploadRequest.Item("foto3").Item("Value") foto4 = UploadRequest.Item("foto4").Item("Value") foto5 = UploadRequest.Item("foto5").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("Fotos_maquinas_venda/") nome_foto1 = "/"&nome_foto1 nome_foto2 = "/"&nome_foto2 nome_foto3 = "/"&nome_foto3 nome_foto4 = "/"&nome_foto4 nome_foto5 = "/"&nome_foto5 ' pasta + nome dos arquivos cfoto1 = "Fotos_maquinas_venda" + nome_foto1 cfoto2 = "Fotos_maquinas_venda" + nome_foto2 cfoto3 = "Fotos_maquinas_venda" + nome_foto3 cfoto4 = "Fotos_maquinas_venda" + nome_foto4 cfoto5 = "Fotos_maquinas_venda" + nome_foto5 ' Fazendo o Upload do arquivo selecionado if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to Len(foto1) MyFile.Write chrB(AscB(MidB(foto1,i,1))) Next MyFile.Close end if if foto2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to Len(foto2) MyFile.Write chrB(AscB(MidB(foto2,i,1))) Next MyFile.Close end if if foto3 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3) For i = 1 to Len(foto3) MyFile.Write chrB(AscB(MidB(foto3,i,1))) Next MyFile.Close end if if foto4 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4) For i = 1 to Len(foto4) MyFile.Write chrB(AscB(MidB(foto4,i,1))) Next MyFile.Close end if if foto5 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5) For i = 1 to Len(foto5) MyFile.Write chrB(AscB(MidB(foto5,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados call abreconexao ' cadastra os dados no banco de dados sql = " Insert into tbl_maquinas_venda ( COD_USUARIO, MARCA, MODELO, FORMATO, ANO_FABRICACAO, TIPO, FUNCIONAMENTO, APARENCIA, LOC_CIDADE, LOC_ESTADO, NOME, EMPRESA, DDD, TELEFONE, E_MAIL, preço, PAGAMENTO, OBSERVACOES, FOTO1, FOTO2, FOTO3, FOTO4, FOTO5, DATA ) values ( '"&varId&"', '"&varMarca&"', '"&varModelo&"', '"&varFormato&"', "&varAnoFab&", '"&varTipo&"', '"&varFuncionamento&"', '"&varAparencia&"', '"&varCidade&"', '"&varEstado&"', '"&varNome&"', '"&varEmpresa&"', '"&varDDD&"', '"&varFone&"', '"&varEmail&"', "&varPreco&", '"&varPagamento&"', '"&varObs&"', '"&cfoto1&"', '"&cfoto2&"', '"&cfoto3&"', '"&cfoto4&"', '"&cfoto5&"', '"&DataCadastro&"')" SET rsSQL = ConexaoDB.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" %>Acredito que o erro possa estar aqui:if foto1 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to Len(foto1) MyFile.Write chrB(AscB(MidB(foto1,i,1))) Next MyFile.Close end if if foto2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to Len(foto2) MyFile.Write chrB(AscB(MidB(foto2,i,1))) Next MyFile.Close end if if foto3 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3) For i = 1 to Len(foto3) MyFile.Write chrB(AscB(MidB(foto3,i,1))) Next MyFile.Close end if if foto4 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4) For i = 1 to Len(foto4) MyFile.Write chrB(AscB(MidB(foto4,i,1))) Next MyFile.Close end if if foto5 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5) For i = 1 to Len(foto5) MyFile.Write chrB(AscB(MidB(foto5,i,1))) Next MyFile.Close end ifMas onde?
por favor me ajudem com esse problema, já estou com ele a varias semanas, mas não consegui fazer funcionar.
agradeço desde já.
OBS.: OS ARQUIVOS QUE ESTOU UPANDO, NÃO PASSAM DE 200KB
ate +
Link para o comentário
Compartilhar em outros sites
18 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.