Ir para conteúdo
Fórum Script Brasil
  • 0

Dúvida com aspSmartUpload

claytonprog

Perguntado por claytonprog,

 Share

Pergunta

claytonprog

claytonprog

Postado
Postado

Pessoal! Estou com problemas neste código:

Formulario de Cadastro

<form action="upload.asp" method="post" enctype="multipart/form-data">
        
        
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
        <td width="121">
        <p align="right"><b>
                        <font size="2">Título:&nbsp;&nbsp; </font></b></td>
        <td>
                        <font face="Verdana">
        <input type="text" name="titulo" size="32" ></font></td>
    </tr>
    <tr>
        <td width="121">
        <p align="right"><b>
                        <font size="2">Descrição:</font></b></td>
        <td>
                        <textarea name="descricao" cols="49" rows="8"></textarea></td>
    </tr>
    <tr>
        <td width="121" height="28">
        <p align="right"><b>
                        <font size="2" color="#800000">Imagem:</font></b></td>
        <td height="28">
                        <input name="arquivo1" type="file" class="style10" size="26" /></td>
    </tr>
    <tr>
        <td width="121">
        &nbsp;</td>
        <td>
                        <font face="Verdana" size="2" color="#FF0000"><br>Obs: Só é permitido arquivos 
com extensões </font><font face="Verdana" size="2">.jpg</font><font face="Verdana" size="2" color="#FF0000"> 
ou .</font><font face="Verdana" size="2">gif <font color="#FF0000">e o tamanho 
                        máximo do arquivo não deve ultrapassar </font>1.8 MB.</font></td>
    </tr>
    <tr>
        <td width="121">
        &nbsp;</td>
        <td>
                        &nbsp;</td>
    </tr>
    <tr>
        <td width="121">
        <b><font face="Verdana" size="2" color="#800000">Anexar arquivo:</font></b></td>
        <td>
                        <input name="arquivo" type="file" class="style10" size="26" /></td>
    </tr>
    <tr>
        <td width="121">
        <p align="right"><b><font face="Verdana" size="2" color="#800000">&nbsp;</font></b></td>
        <td>
                        <font face="Verdana" size="2" color="#FF0000"><br>Obs: Só é permitido arquivos 
com extensões </font><font face="Verdana" size="2">.zip, .rar</font><font face="Verdana" size="2" color="#FF0000">, </font>
                        <font face="Verdana" size="2"> 
                        doc</font><font face="Verdana" size="2" color="#FF0000"> 
ou .</font><font face="Verdana" size="2">pdf <font color="#FF0000">e o tamanho 
máximo do arquivo não deve ultrapassar </font>1.8 MB.</font></td>
    </tr>
</table>
<p><input type="submit" name="enviar" value="Enviar" /></p>
<p>&nbsp;<th width="5" align="left" valign="middle" scope="col">&nbsp;</th>
</tr>
<tr>

</form>
Formulário de envio 
<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, sql, verifica
Dim mySmartUpload, intCount, File, descricao, nome, titulo

Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("db/downloads.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

On error Resume Next

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.AllowedFilesList = "jpg,gif,doc,zip,rar,pdf"
mySmartUpload.DeniedFilesList = "exe,bat,cab,swf,asp,aspx,htm,html,png"
mySmartUpload.MaxFileSize = 350000
mySmartUpload.Upload


        
For Each File in mySmartUpload.Files

titulo=mySmartUpload.Form("titulo")
descricao=mySmartUpload.Form("descricao")
nome=File.FileName


Next

If Err.number <> 0 Then

Response.Write("<p><br><font face=""Verdana"" size=""2""><br><br>Um dos seguintes erros aconteceu: você tentou enviar um arquivo cuja terminação não é .zip, .rar e nem .pdf Ou então o arquivo que você enviou é maior que 15.000 bytes(8 kb. ). A operação foi cancelada. Por favor tente de novo. ")
response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>"
response.write "<meta http-equiv='refresh' content='5; url=downloads_full.asp'/>"

response.end

end if


sql = "SELECT * FROM tblproducts WHERE productfile = '"&nome&"'"
Set verifica = objConn.Execute(sql)


         

If NOT verifica.EOF Then
    Response.Write "Já existe um arquivo com este nome, tente outro!"
    response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>"
    response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>"

Else
    strQuery = "INSERT INTO tblproducts (productname,productdescription,productfile) VALUES ('"&titulo&"','"&descricao&"','"&nome&"')"
    objRs = ObjConn.Execute(strQuery)
    intCount = mySmartUpload.Save("Downloads")
                
End If




objConn.close
Set verifica = Nothing
Set objConn = Nothing
Set ObjRs = Nothing


      Response.Write("Arquivo <b>" & File.FileName & "</b> ")
      Response.Write "Extensão do arquivo: " & File.FileExt & "<br>"
      Response.Write "Tamanho do arquivo: " & File.Size & "<br>"  
      response.write "<font face=""Verdana"" size=""2""><br><br><br>arquivo enviado com sucesso<br></font>"
      response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>"
      response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>"
          


%>

Eu consigo enviar dois arquivos um no formato .zip e outro no formato jpg. porém na hora de gravar os nomes no banco de dados eu consigo gravar o primeiro. Eu preciso salvar os nomes do dois arquivos um no formato .zip e outro no formato .jpg. Não está dando erro nenhum eu só não consigo salvar os nomes do dois arquivos no banco. Quem puder ajudar agradeço.

.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
bareta

bareta

Postado
Postado 

Formulário 

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload : Sample 2</H1>
<HR>

<FORM METHOD="POST" ACTION="upload.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

</BODY>
</HTML>

Upload

<HTML>
<BODY BGCOLOR="white"> 
<%
' Variables
Dim mySmartUpload
Dim file
Dim intCount
intCount=0

' Object creation
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload
mySmartUpload.Upload

' Select each file
For each file In mySmartUpload.Files
<p> ' Only if the file exist
If not file.IsMissing Then

' Save the files with his original names in a virtual path of the web server
file.SaveAs("/aspSmartUpload/Upload/" & file.FileName)
' sample with a physical path 
' file.SaveAs("c:\temp\" & file.FileName)

' Display the properties of the current file
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
Response.Write("FileName = " & file.FileName & "<BR>")
Response.Write("FileExt = " & file.FileExt & "<BR>")
Response.Write("FilePathName = " & file.FilePathName & "<BR>")
Response.Write("ContentType = " & file.ContentType & "<BR>")
Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
intCount = intCount + 1
End If
Next

' Display the number of files which could be uploaded
Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

' Display the number of files uploaded
Response.Write(intCount & " file(s) uploaded.<BR>")
 %>
</BODY>
</HTML>

Retirado de "http://www.netpoint.com.br/ajuda/index.php?title=Uploads_M%C3%BAltiplos_com_coleta_de_arquivos"

http://www.netpoint.com.br/ajuda/index.php...eta_de_arquivos

Link para o comentário
Compartilhar em outros sites
  • 0
claytonprog

claytonprog

Postado
  • Autor
Postado

Caro Bareta!

Veja como está meu codigo:

CODE

<%

Option Explicit

Response.Expires = 0

Dim objConn, objRs, strQuery, sql, verifica

Dim mySmartUpload, intCount, File, descricao, nome, titulo

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("db/downloads.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

On error Resume Next

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "jpg,gif,doc,zip,rar,pdf"

mySmartUpload.DeniedFilesList = "exe,bat,cab,swf,asp,aspx,htm,html,png"

mySmartUpload.MaxFileSize = 350000

mySmartUpload.Upload

For Each File in mySmartUpload.Files

titulo=mySmartUpload.Form("titulo")

descricao=mySmartUpload.Form("descricao")

nome=File.FileName

sql = "SELECT * FROM tblproducts WHERE productfile = '"&titulo&"'"

Set verifica = objConn.Execute(sql)

If NOT verifica.EOF Then

Response.Write "Já existe um arquivo com este nome, tente outro!"

response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>"

response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>"

Else

strQuery = "INSERT INTO tblproducts (productname,productdescription,imagem,productfile) VALUES ('"&titulo&"','"&descricao&"','"&nome&"','"&nome&"')"

objRs = ObjConn.Execute(strQuery)

intCount = mySmartUpload.Save("Downloads")

End If

Next

If Err.number <> 0 Then

Response.Write("<p><br><font face=""Verdana"" size=""2""><br><br>Um dos seguintes erros aconteceu: você tentou enviar um arquivo cuja terminação não é .zip, .rar e nem .pdf Ou então o arquivo que você enviou é maior que 15.000 bytes(8 kb. ). A operação foi cancelada. Por favor tente de novo. ")

response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>"

response.write "<meta http-equiv='refresh' content='5; url=downloads_full.asp'/>"

response.end

end if

objConn.close

Set verifica = Nothing

Set objConn = Nothing

Set ObjRs = Nothing

Response.Write("Arquivo <b>" & File.FileName & "</b> ")

Response.Write "Extensão do arquivo: " & File.FileExt & "<br>"

Response.Write "Tamanho do arquivo: " & File.Size & "<br>"

response.write "<font face=""Verdana"" size=""2""><br><br><br>arquivo enviado com sucesso<br></font>"

response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>"

response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>"

%>

Dois problemas estão acontecendo:

Está gravando duplicadamente

Ex: enviei dois aquivos

foto1.jpg

arquivo.zip

Na minha tabela está assim:

- para arquivos de foto

uso campo chamado: imagem

- para arquivos de zip ou rar

uso campo chamado: productfile

quando foi feito o envio

ficou gravado assim:

1- foto1.jpg foto1.jpg

2 - arquivo.zip arquivo.zip

Eu quero que grave assim

1- foto1.jpg arquivo.zip

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...