UPLOAD de Arquivo com mais de 5mb

[smez]

Bom Pessoal fiz um sistema de upload de arquivo sem componente, esta enviando normal, mas quando tento subir uma arquivo grande mais de 5mb , não sobe e não aparece o tipo de erro

da a seguinte mensagem

O Internet Explorer não pode exibir a página da Web

se o arquivo for menor de 5mb sobe normal

o que pode ser

segue abaixo o script

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

' Recuperando os Dados Digitados ----------------------
Nome = UploadRequest.Item("txtNome").Item("Value")

contentType = UploadRequest.Item("txtFoto").Item("ContentType") 
filepathname = UploadRequest.Item("txtFoto").Item("FileName") 
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) 
filename = Replace(filename,".","_"& rndit &".") 
value = UploadRequest.Item("txtFoto").Item("Value")


Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


'FAZ O UPLOAD DAS IMAGENS EM UMA PASTA (/CONTEUDO).
 pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
          'Set MyFile = ScriptObject.CreateTextFile(Server.mapPath("../foto/"&filename&""))
        Set MyFile = ScriptObject.CreateTextFile("D:/"&filename&"")
   
 For i = 1 to LenB(value) 
     MyFile.Write chr(AscB(MidB(value,i,1)))
 Next
 MyFile.Close
'renomeia ao arquivo
Function rndit()
    Dim RndTemp 
    Randomize 
    RndTemp = Rnd * 100 
    RndTemp= Int(RndTemp) 
    rndit = RndTemp 
End Function

Response.Redirect "arquivo.asp"

[Ted k']

os uploads sem componentes tem um limite, caso queira enviar com mais de 5mb, aconselho a você procurar um script de upload com componente!

[smez]

os uploads sem componentes tem um limite, caso queira enviar com mais de 5mb, aconselho a você procurar um script de upload com componente!

<%

Dim objUpload

Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 614400

objUpload.UseVirtualDir = True

objUpload.UseUniqueNames = False

objUpload.Save "/ftp"

Set objUpload = Nothing

Response.Write "Upload efetuado com sucesso"

%>

estou fazendo assim agora, esta dando o seguinte erro

Dundas.Upload.2 error '80004005'

Uploading file size limit exceeded.

/ftp/upload.asp, line 9

[Ted k']

opa:

objUpload.MaxFileSize = 9000000

[LordVader BR]

Acredito que mesmo fazendo isso não irá funcionar....

você vai rodar localmente ou vai publicar para web??

Se for rodar localmente (no caso de um Servidor de Intranet) você pode fazer o seguinte:

Vá no servidor que o script esta hospedado

Abra o IIS

Botao direito no nome do servidor / Propriedades

1 Marque a caixa "Enable Direct Metabase Edit"(em portugues algo como "Habilitar edicao de metabase")

2 Procure em C:\windows\sytem32\inetserv o arquivo "metabase.xml" e edite ele

3 Procure por AspMaxRequestEntityAllowed e altere o valor para bemmm mais... ai funciona q é uma maravilha

;)

[smez]

Acredito que mesmo fazendo isso não irá funcionar....

você vai rodar localmente ou vai publicar para web??

Se for rodar localmente (no caso de um Servidor de Intranet) você pode fazer o seguinte:

Vá no servidor que o script esta hospedado

Abra o IIS

Botao direito no nome do servidor / Propriedades

1 Marque a caixa "Enable Direct Metabase Edit"(em portugues algo como "Habilitar edicao de metabase")

2 Procure em C:\windows\sytem32\inetserv o arquivo "metabase.xml" e edite ele

3 Procure por AspMaxRequestEntityAllowed e altere o valor para bemmm mais... ai funciona q é uma maravilha

;)

Vai Rodar na web

[LordVader BR]

então smez...

O jeito é usar componente mesmo...

Quando ele usa sem componente, ele joga no buffer e ele tem por padrão 5mb(+ou - isso...acredito eu)

Veja os componentes que tem seu servidor de hospedagem e bom proveito!

[Ted k']

LordVader BR eu envio arquivos de 12 e 15 megas com essa característica que postei, claro com aumento do tempo de execução de script e não obtive problemas, poderia então me explicar melhor como funciona via web o aumento do tamanho de envio?

[LordVader BR]

Via Web acredito que não seja possivel.

E sinceramente fiquei surpreso se você conseguiu upar arquivo de mais 10Mb....

Tinha desenvolvido um sistema de Disco Virtual e usava upload sem componentes. Passava de "X"Mb e não conseguia upar. Mas lembro que "X" era menor que 10Mb.

Na epoca rodei a net inteira atras disso, e consegui esta informacao q postei. Como o Disco Virtual era pra rodar na Intranet da Empresa, nem me preucupei como fazia na web.

Neste esquema, pra ter uma ideia, o pessoal usava pra upar as ISO's dos cd's. Ou seja, upava arquivos de 700Mb+ na rede local e ia bem.