auemntar limite de upload

[leooizepi 1]

e ae galera...

 

to precisando fazer um upload de um arquivo, e nao esta funfando..

quando eu envio um arquivo de 140kb.. ta beleza.. envia.. salva na pasta e tals.. agora quando eu envio um arquivo grande.. no meu caso é de 29mb a pagina nem responde...

 

essa configuração eu faço no meu codigo? ou tem q configurar o server?

 

Obs: se precisar eu posto o codigo...

 

valeu.. abraço!!

[Ted k' 126]

29 é um pouco grande, pode até dar tbm tempo expirado de execução de script!

 

qual componente está usando?

[saloeric 1]

No iis tem limite de upload se não me engano de 2 megas ou menos, isso tem k configurar no server, e depois no script visto ser um ficheiro de 29 megas vai ser demorado tem k definir o scripttimeout para um valor elevado.

[xanburzum 169]

qual componente esta usando?

Por padrão, o IIS permite upload de apenas 200kb via http por arquivo através das suas páginas. Para aumentar este limite, pare o IIS e edite o arquivo C:\windows\system32\inetsvr and edit metabase.xml.

O valor padrão setado para AspMaxRequestEntityAllowed é de 204800 (200kb). Para permitir upload de arquivos maiores, aumente este valor. Para aumentar para 2 megas, coloque 2048000.

Mas verifique o limite de seu componente de upload.

[zrageburn 0]

Só complementando o que tem que parar o serviço antes de editar o arquivo... hehehe

[leooizepi 1]

nao estou usando nenhum componente... vou colocar o script de upload

 

upload_funcoes.asp

<%

' Upload Sem componentes ---------------------------------------
Sub BuildUploadRequest(RequestBin)
on error resume next

PosBeg = 1
PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
BoundaryPos = InStrB(1, RequestBin, boundary)

Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))

Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")


Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))
Pos = InStrB(Pos, RequestBin, getByteString("name="))
PosBeg = Pos + 6
PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))
PosBound = InStrB(PosEnd, RequestBin, boundary)

If PosFile <> 0 And (PosFile < PosBound) Then
  PosBeg = PosFile + 10
  PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
  FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
  UploadControl.Add "FileName", FileName
  Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))
  PosBeg = Pos + 14
  PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
  ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
  UploadControl.Add "ContentType", ContentType
  PosBeg = PosEnd + 4
  PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
  Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
Else
  Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))
  PosBeg = Pos + 4
  PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
  Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
End If

UploadControl.Add "Value", Value
UploadRequest.Add Name, UploadControl
BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)
Loop
End Sub

Function getByteString(StringStr)
For i = 1 To Len(StringStr)
Char = Mid(StringStr, i, 1)
getByteString = getByteString & ChrB(AscB(Char))
Next
End Function

Function getString(StringBin)
getString = ""
For intCount = 1 To LenB(StringBin)
getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))
Next
End Function

' Fim upload sem Componentes -----------------------------------------
%>

upload_form2.asp

<!-- #include file = "upload_funcoes.asp" -->
<%

' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("upload_mdb/")

'caminho para onde o arquivo foi upado
caminho_upload = "upload_mdb/"&nome_foto

nome_foto = "/"&nome_foto

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if


'abre a conexao	
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(""&caminho_upload&"")

Set rs = Conn.Execute("SELECT * FROM clientes") 'selecionamos a tabela contato e ordenamos os registro pelo campo de auto numeração



If not rs.EOF Then
Do until rs.eof 'loop

Set id   = rs("id")
Set nome = rs("nome")
Set sexo = rs("sexo")




Dim conexao,nome,plataforma,data,hora,ocorrencia,idhistorico,importancia

'Cria um Objeto do tipo connection
Set conexao = Server.CreateObject("adodb.connection")

'Informa a string do banco
conexao.connectionString="DRIVER={MySQL ODBC 3.51 Driver};SERVER=xxx;PORT=xxx;DATABASE=xxx; USER=xxx;PASSWORD=xxx;pwd=xxx;Option=3;"

conexao.open

conexao.execute "INSERT INTO clientes_asp (id,nome,sexo) VALUES ('"&id&"','"&nome&"','"&sexo&"');"

conexao.Close
Set conexao= Nothing



rs.MoveNext
Loop
Else
  Response.Write("O banco de dados ainda está sem registros.") ' se o bacno estier vazio exibe essa msg
End if

'fecha a conexao
Conn.Close
Set Conn = Nothing

%>

Obs: os campos q eu to lendo do .mdb e inserindo no banco mysql é o arquivo de 140kb... o de 29mb a pagina nem abre!!

 

valeu.. vou alterar o arquivo do iis para v se da certo!

[Ted k' 126]

o Upload Sem Componentes tem o tamanho máximo dele padrão, ele pega necessariamente do sistema e aumentar não vai fazer efeito, aconselho a pegar um componente para fazer isso!

[xanburzum 169]

existem vários componentes de Upload muito bons, existem Free e pagos

entre eles destacam o FreeASPUpload,SmartUpload,Dundas,ASPUpload

até Ajax Control para ASP.Net

[leooizepi 1]

galera.. eu alterei o tempo para 4 minutos... mais tem hora q faz o upload hora nao!!! tem hora q chega nos 2m.. 3.. ele cai a pagina.. mais tem hora q funciona normal..

 

estranho...

 

valeu galera.. vou tentando aki... senao conseguir o jeito eh estudar os componentes.. é que mexo com php.. mais nesse caso em especial tenho q fazer upload pelo asp....