Ir para conteúdo
Fórum CódigoFonte.net

Gilberto Jr

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

  1. Esse código e totalmente livre? https://www.facebook.com/webprogramation Att;
  2. Boa tarde. Eu estou usando esse componente para fazer upload. <% SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores 'Configura o caminho onde arquivo será salvo SaFileUp.Path = Server.MapPath("img/") 'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\ 'Você pode usar também o caminho relativo se preferir 'SaFileUp.Path = Server.MapPath("./upload/") 'Caso o usuário não indique um arquivo para upload, informa erro. If SaFileUp.IsEmpty Then set rs = conn.execute("insert into aplicativo (arquivo, descarquivo, versao, idcategoria, qtddown, status, foto, dataregistro) values ('1', '"&SaFileUp.Form("nomecat")&"', '"&SaFileUp.Form("versao")&"', '"&SaFileUp.Form("categoria")&"', 0, 1, 'semfoto.jpg', '"&mask_data(Date)&"')") Else 'Salva o arquivo no servidor SaFileUp.Save nome_foto = Right(SaFileUp.Form("Foto"),Len(SaFileUp.Form("Foto"))-InstrRev(SaFileUp.Form("Foto"),"\")) set rs = conn.execute("insert into aplicativo (arquivo, descarquivo, versao, idcategoria, qtddown, status, foto, dataregistro) values ('1', '"&SaFileUp.Form("nomecat")&"', '"&SaFileUp.Form("versao")&"', '"&SaFileUp.Form("categoria")&"', 0, 1, '"&nome_foto&"', '"&mask_data(Date)&"')") END IF %> Mas quando o arquivo é grande não consegue subir. Tem algum procedimento que eu posso fazer pra resolver isso. Por exemplo, eu tentei fazer um upload de um arquivo de 50 mb e deu erro. Como eu posso resolver isso. https://www.facebook.com/webprogramation Att;
×
×
  • Criar Novo...