Ir para conteúdo

POWERED BY:

Arquivado

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

Andre Gustavo

Gravar dados do form, junto com os nomes dos arquivos do upload

Por , em ASP Clássico

Recommended Posts

Andre Gustavo    0

Andre Gustavo
Postado

Como faço para que grave os nomes dos arquivos no DB JUNTAMENTE COM O RESTANTE DAS INFORMAÇÕES DO FORM?

SÃO 5 ARQUIVOS DE FOTOS ENVIADOS VIA UPLOAD, CADA FOTO TEM UM CAMPO SEPARADO NO DB para serem gravados os nomes.

 

<%
var1 = session("MARCA")
var2 = session("MODELO") 
var3 = session("FORMATO")
var4 = session("FABRICACAO") 
var5 = session("TIPO") 
var6 = session("FUNCIONAMENTO") 
var7 = session("APARENCIA") 
var8 = session("CIDADE") 
var9 = session("ESTADO") 
var10 = session("NOME") 
var11 = session("EMPRESA") 
var12 = session("DDD") 
var13 = session("FONE") 
var14 = session("EMAIL") 
var15 = session("PRECO") 
var16 = session("PAGAMENTO") 
var17 = session("OBS") 
var18 = session("data2")

%>

<%
'Início de grava_anexo.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

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

Dim objUpload

'Cria uma instancia do objeto Upload e atribui a variável objUpload.
Set objUpload = server.CreateObject("Dundas.Upload.2")
Upload.MaxFileSize = 4194304

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

'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados.
objUpload.Save "/fotos_maquinas_venda"
FOTO1 = objUpload.GetFileName(path)

'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 acima
''Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font>"
''End If
''Response.Write "</BODY></HTML>"
'Fim de grava_anexo.asp
RESPONSE.Write("Sua máquina foi cadastrada com sucesso. Obrigado por utilizar nosso site.")

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode pegar o nome do arquivo em FSO

 

 

<%   
Set fso = CreateObject("Scripting.FileSystemObject")   
Set fileObject = fso.GetFile(Server.MapPath("\teste\") & "\arquivo.txt")   
  
Response.Write fileObject.Name   
fileObject.Name = "arquivo2.txt"  
Response.Write fileObject.Name   
  
Set fileObject = Nothing  
Set fso = Nothing  
%>

ou pelo Dundas com o UploadedFile.Path e dando um split nele

 

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

Upload.UseVirtualDir = False
upload.UseUniqueNames = True
Upload.Save caminho_upload_produtos

For Each UploadedFile in Upload.Files
caminho = UploadedFile.Path
Next

quebra = split(caminho,"\")

imagem = quebra(ubound(quebra))

Set Upload = nothing

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