Ir para conteúdo

POWERED BY:

Arquivado

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

williamds

[B]Upload em BD[/B]

Por , em ASP Clássico

Recommended Posts

williamds    0

williamds
Postado

E ai pessoal, preciso de ajuda nesse componente. To enrolado nesse componente de upload, aspSmartUpload. não conseguindo gravar o nome do arquivo em um BD, no help tem como gravar a imagem em BD, mas eu to querendo somente o nome da imagem.

meu Codigo tá assim para upload. Ele tâ funcionando legal so falta o BD

formulario.asp

<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body text="#000099">	<form method="post" action="processa.asp" enctype="multipart/form-data">    <table border="0" align="center" cellpadding="0" cellspacing="0">    <tr align="center">       <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Teste         de Upload</b></font></td>    </tr>    <% dim ii = 1' aqui eu configuro o numero de campos, caso seja necessario para gravar em bd serve um campo sófor i = 1 to 5 step 1 %>    <tr>       <td height="30"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">          </font></td>      <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Imagem <%= i %>:</font></td>      <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">         <input name="Arquivo<%= i %>" type="file">        </font></td>    </tr>    <% Next%>    <tr align="center">       <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">         <input type="submit" name="Submit" value="Enviar">        </font></td>    </tr>  </table>		</form></body></html>
processa.asp

<% server.ScriptTimeout=10000On Error Resume NextDim Meu_UploadSet Meu_Upload = Server.CreateObject("aspSmartUpload.SmartUpload")Meu_Upload.AllowedFilesList = "jpg,gif"Meu_Upload.MaxFileSize = 50000Meu_Upload.TotalMaxFileSize = 100000Meu_Upload.UploadFor each file In Meu_Upload.Files	if not file.IsMissing then  file.SaveAs("/imagens/" & file.fileName)  Response.Write("Arquivo <b>" & File.FileName & " -</b> ")  Response.Write("(" & File.Size & "Bytes) enviado com sucesso!<br>")	end ifNextIf Err.number>0 then	Response.Write("Ocorreu um erro")	response.End()end if%>
Ajudaria muito se alguem me ajudasse

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