Ir para conteúdo

POWERED BY:

Arquivado

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

kaplan

upload dundas e gravar no bd

Por , em ASP Clássico

Recommended Posts

kaplan    0

kaplan
Postado

ola galera tudo beleza to meio sumido por aki, to com uma duvida grande aqui quero fazer um upload de varias fotos e quero gravar no bd o problema esta pra mim gravar no bd pq eu nunca fiz isto alguem pode me explicar melhor lembrando que serao no total de 10 fotos mais o cliente pode postar 5 ou mais fotos.

 

este é o codigo do meu form

<TITLE>Form</TITLE></HEAD><BODY> <b><form name="form" ENCTYPE="multipart/form-data" method="post" action="grava_anexo.asp"><table width="100%" border="0"><tr> <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">Anexo 1: <input type="file" value="Anexo" name="file"><br>Comentario Foto 1:<input type="text" name="foto"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 2: <input type="file" value="Anexo" name="file2"><br>Comentario Foto 2:<input type="text" name="foto2"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 3: <input type="file" value="Anexo" name="file3"><br>Comentario Foto 3:<input type="text" name="foto3"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 4: <input type="file" value="Anexo" name="file3"><br>Comentario Foto 4:<input type="text" name="foto4"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 5: <input type="file" value="Anexo" name="file3"><br>Comentario Foto 5:<input type="text" name="foto5"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 6: <input type="file" value="Anexo" name="file3"><br>Comentario Foto 6:<input type="text" name="foto6"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 7: <input type="file" value="Anexo" name="file3"><br>Comentario Foto 7:<input type="text" name="foto7"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 8: <input type="file" value="Anexo" name="file3"><br>Comentario Foto 8:<input type="text" name="foto8"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 9: <input type="file" value="Anexo" name="file9"><br>Comentario Foto 9:<input type="text" name="foto3"></font></td></tr><tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Anexo 10: <input type="file" value="Anexo" name="file10"><br>Comentario Foto 10:<input type="text" name="foto3"></font></td></tr></table><input type="submit" value="Enviar" name="submit" onClick=""></form></BODY></HTML></b>
Agora o meu codigo do Asp que faz o upload

 

<%'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 NextResponse.Write "<HTML><HEAD><TITLE>Fazendo UpLoad com Dundas 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")'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 "\arquivos_carregados"'Limpa a instância criada na memória do servidor.Set objUpload = nothing'outro'Dim fs'Set fs = Server.CreateObject("Scripting.FileSystemObject")'fs.MoveFile "caminho"& vararquivo,"caminho"& varnovo '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>"End IfResponse.Write "</BODY></HTML>"'Fim de grava_anexo.asp%>
beleza galera eu queria recuperar o nome da foto que ira ficar na pasta pq eu vou deixar no banco a foto e o comentario, vlw galera....

 

Cara, sempre utilize as tags code Imagem Postada para inserir seus codigos. Fica mais facil pra ler.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

oh galera vamos la me de uma mao pra mimComo fazer um upload de fotos, mais gravação desta foto no bd e mais uma gravação do comentario desta fotobom o comentario nao estou conseguindo gravar no bd por causa do que esta na meta do form(ENCTYPE="multipart/form-data")mais se eu tirar isto eu nao conseguido fazer o upload aiii ta complicadu me ajudem

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

oba vlw cara deu certo uso o script do upload sem componentes brigadaooo

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