Upload...

[marciolvs 1]

Pessoal, tenho um sistema de upload sem componente, pego aqui mesmo no forum...

 

Bom o problema é o seguinte, sempre que faço um upload maior que 1MB ele dá este erro:

 

Páginas do Active Server erro 'ASP 0113'

 

Tempo limite de script expirado

 

/sistema/upload_doc.asp

 

O tempo máximo de execução de um script foi excedido. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS.

O timeout tá para 10 e ele nem xega a isso e já exibe a mensagem...

é um sistema de upload que tbm manda para o banco...

 

Se alguém poder me ajudar agradeço.. ou mandar outro sistema do tipo, upload x banco...

 

Valews...

 

Marcio L. Vercanti

[hillz 0]

Coloca o código que você está usando...

 

[]'s

[marciolvs 1]

Segue o codigo....

 

Upload_doc.asp

 

<!-- #include file = "upload_funcoes.asp" -->
<%
		' função reponsável por retornar a extensão do arquivo
		Function retornaExtensaoArquivo(arquivo)
			retornaExtensaoArquivo = right(arquivo, 4)
		End Function
		
		' Chamando Funções, que fazem o Upload funcionar
		byteCount = Request.TotalBytes
		RequestBin = Request.BinaryRead(byteCount)
		Set UploadRequest = CreateObject("Scripting.Dictionary")
		BuildUploadRequest RequestBin
		
		If byteCount > 2097152 Then
		response.write "Tamanho do arquivo: <font color='red'>" & byteCount & "</font><br>" 
		Response.Write "<center>Não deu certo... tamanho do arquivo não pode ser maior que 2MB (2.097.152 bytes)...<br><a href='java script:history.go(-1)'>voltar</a></center>"
		Response.End
		End If 
		
		' Recuperando os Dados Digitados ----------------------
		De = UploadRequest.Item("txtde").Item("Value")
		Para = UploadRequest.Item("txtpara").Item("Value")
		VPasta = UploadRequest.item("txtdocumento").Item("Value")
		Assunto = UploadRequest.Item("txtassunto").Item("Value")
		Mensagem = UploadRequest.Item("txtmensagem").Item("Value")
		Data = date
		
		' Tipo de arquivo que esta sendo enviado
		tipo_arquivo = UploadRequest.Item("txtarquivo").Item("ContentType")
		
		
		
		' Caminho completo dos arquivos enviados
		caminho_arquivo = UploadRequest.Item("txtarquivo").Item("FileName")
		
		
		
		' Nome dos arquivos enviados
		nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))
		
		
		
		' Conteudo binario dos arquivos enviados
		arquivo = UploadRequest.Item("txtarquivo").Item("Value")
		
		
		
		' Conecta-se ao Banco de Dados
		%>
		<!-- #include file="conexao.asp"-->
		<!-- #include file="config.asp"-->
		<% 
		dim conexaodb
		call abreconexao
		' cadastra os dados no banco de dados
		sql = "Insert into Documentos (De, Para, Pasta, Data, Assunto, Mensagem) values ('"& De &"', '" & Para & "', '" & VPasta & "', '"&Data&"', '"&Assunto&"', '"& Mensagem &"')"
		Conexaodb.Execute(sql)
		
		' recupera o id do cadastro
		sql = "Select Max(Id) As Id From Documentos"
		Set rsId = Conexaodb.Execute(sql)
		id = rsId("Id")
				
		' pasta onde as imagens serao guardadas
		pasta = Server.MapPath("documentos")
	
		IF arquivo <> "" Then
			nome_arquivo = "/arquivo_" & id & "_1" & retornaExtensaoArquivo(nome_arquivo)
		ELSE
			nome_arquivo = ""
		End IF
		'nome_arquivo = "/arquivo_" & id & "_1" & retornaExtensaoArquivo(nome_arquivo)
		
		
		sql = "Update Documentos Set arquivo = '" & nome_arquivo & "' Where Id = " & id
		Conexaodb.Execute(sql)
				
		' Fazendo o Upload do arquivo selecionado
		if arquivo <> "" then
			Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
			Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo)
			For i = 1 to LenB(arquivo)
		  MyFile.Write chr(AscB(MidB(arquivo,i,1)))
			Next
			MyFile.Close
		end if
		
		'envio e-mail para o cliente avisando que existe documento disponivél no site
		
		IF Para <> "Todos" Then
		SQL = "SELECT * FROM Administrador WHERE id="¶
		Set rs = conexaodb.execute(SQL)
		Call Abreconexao
		
		SQL2 = "SELECT * FROM Documentos_categ WHERE id_doc_categ="&vpasta
		Set rs2 = conexaodb.execute(SQL2)
		Call Abreconexao
		'response.Write(vpasta)
		'response.end()
		
			'str_nome = rs("nome")
			str_email = rs("email")
			str_pasta = rs2("Nome_doc_categ")
			str_assunto = "Atualmente ha documento ou mensagem disponível no site "&nomesitecliente
			
			str_mensagememail = "<b>Documento ou mensagem disponível no site :</b> " & nomesitecliente & "<br><br><b>Pasta do novo documento:</b> " & str_pasta &"<br><br><b>Mensagem:</b> "&"Para verificar este(s) documento(s) - Acesse: "&nomesitecliente&" e informe seu login e senha em nossa Área Restrita."
			
			set mensagem = server.createobject("CDONTS.NewMail")
			mensagem.from = nomeemailcliente
			mensagem.to = str_email
			mensagem.Subject = str_assunto
			mensagem.bodyformat = 0
			mensagem.mailformat = 0
			mensagem.Body = str_mensagememail
			mensagem.Send
			Set objMail = nothing
		end if

		
%>				
		<script>alert('Documento ENVIADO com sucesso!');location.href='principal.asp?ir=impressaodoc.asp&pag=3';</script>