Erro repentino em upload de arquivos (sem uso de componentes de terce

ronaldoflopes · Junho 22, 2016

Caso já exista algum tópico relacionado ao assunto peço que me desculpem mas não o encontrei.

Estou com um problema grave no upload de arquivos em todos os sites que implementamos na empresa.

Tudo funcionava as mil maravilhas até que de ontem para hoje simplesmente não consigo fazer o uploade de nenhum arquivo sequer.

Isso ocorre em todas as implementações em domínios de diferentes clientes.

Ao tentar fazer o upload de um arquivo ou imagem, obtenho o seguinte erro:

Microsoft VBScript runtime error '800a01a8'

Object required: '[undefined]'

/upload.asp, line 278

Ao verificar esta linha do arquivo encontrei o seguinte código que sempre funciona há mais de 5 anos e parou do nada:

contentType = UploadRequest.Item("blob").Item("ContentType")

Fui rastreando este erro e descobri que ele está relacionado a esta sub, BuildUploadRequest, que é quem trata os dados binários do arquivo e seta o objeto UploadRequest. Aparentemente ela parou de funcionar e não atribui nada no objeto por algum motivo que não consigo descobrir.

Já verifiquei permissões de leitura, e até imprimi o total de bytes que está chegando por post.

Em resumo, o arquivo está indo mas o asp não consegue tratar o binário para fazer o upload.

Alguém pode me ajudar?

Abaixo segue o código de um arquivo de upload que não funciona mais e antes funcionava perfeitamente:

<%
Sub BuildUploadRequest(RequestBin)
	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
%>
<html>
<head>

<script language="JavaScript1.2">
function abre_janela(width, height, nome) {
var top; var left;
top = ( (screen.height/2) - (height/2) )
left = ( (screen.width/2) - (width/2) )
window.open('',nome,'width='+width+',height='+height+',scrollbars=yes,toolbar=no,location=no,status=no,menubar=yes,resizable=no,left='+left+',top='+top);
}

function confirm_delete(form) {
if (confirm("Tem certeza que deseja excluir esta imagem?")) {
document[form].submit();}}

function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=20
}
function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}

PositionX = 100;
PositionY = 100;

defaultWidth  = 500;
defaultHeight = 500;

var AutoClose = true;

// Do not edit below this line...
// ================================
if (parseInt(navigator.appVersion.charAt(0))>=4){
var isNN=(navigator.appName=="Netscape")?1:0;
var isIE=(navigator.appName.indexOf("Microsoft")!=-1)?1:0;}
var optNN='scrollbars=no,width='+defaultWidth+',height='+defaultHeight+',left='+PositionX+',top='+PositionY;
var optIE='scrollbars=no,width=150,height=100,left='+PositionX+',top='+PositionY;
function popImage(imageURL,imageTitle){
if (isNN){imgWin=window.open('about:blank','',optNN);}
if (isIE){imgWin=window.open('about:blank','',optIE);}
with (imgWin.document){
writeln('<html><head><title>Loading...</title><style>body{margin:0px;}</style>');writeln('<sc'+'ript>');
writeln('var isNN,isIE;');writeln('if (parseInt(navigator.appVersion.charAt(0))>=4){');
writeln('isNN=(navigator.appName=="Netscape")?1:0;');writeln('isIE=(navigator.appName.indexOf("Microsoft")!=-1)?1:0;}');
writeln('function reSizeToImage(){');writeln('if (isIE){');writeln('window.resizeTo(100,100);');
writeln('width=100-(document.body.clientWidth-document.imagens[0].width);');
writeln('height=100-(document.body.clientHeight-document.imagens[0].height);');
writeln('window.resizeTo(width,height);}');writeln('if (isNN){');       
writeln('window.innerWidth=document.imagens["George"].width;');writeln('window.innerHeight=document.imagens["George"].height;}}');
writeln('function doTitle(){document.title="'+imageTitle+'";}');writeln('</sc'+'ript>');
if (!AutoClose) writeln('</head><body bgcolor=000000 scroll="no" onload="reSizeToImage();doTitle();self.focus()">')
else writeln('</head><body bgcolor=000000 scroll="no" onload="reSizeToImage();doTitle();self.focus()" onblur="self.close()">');
writeln('<img name="George" src='+imageURL+' style="display:block"></body></html>');
close();		
}}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body,td,th {
	font-family: Arial;
	font-size: 12px;
	color: #333;
}
-->
</style>
</head>

<body style="background-color:#f8f8f8">
<%
'----------------------------------------------------------------------------
' MATA OS ACENTOS
'----------------------------------------------------------------------------
Function KillAcentos(Palavra) 
  cacento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~ºª´`'&%"
  sacento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
  texto = ""
  'Response.Write "----"&Len(Palavra)&"---" 
  'Response.Write Palavra
  If Palavra <> "" Then
	For controlador = 1 To Len(Palavra)
	  letra = Mid(Palavra, controlador, 1)
	  pos_acento = InStr(cacento, letra)
	  If pos_acento > 0 Then
		letra = Mid(sacento, pos_acento, 1)
	  End If
	  texto = texto & letra
	Next
	
	KillAcentos = lcase(Replace(texto,Chr(32), Chr(45)))   
  End If
End Function

'----------------------------------------------------------------------------
' MATA OS ACENTOS
'----------------------------------------------------------------------------
Function KillAcentos2(Palavra) 
  cacento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~ºª´`'&%"
  sacento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
  texto = ""
  'Response.Write "----"&Len(Palavra)&"---" 
  'Response.Write Palavra
  If Palavra <> "" Then
	For controlador = 1 To Len(Palavra)
	  letra = Mid(Palavra, controlador, 1)
	  pos_acento = InStr(cacento, letra)
	  If pos_acento > 0 Then
		letra = Mid(sacento, pos_acento, 1)
	  End If
	  texto = texto & letra
	Next
	
	KillAcentos2 = texto   
  End If
End Function

id = "1"
pasta_servidor = "teste"
website_pasta = "E:\Inetpub\vhosts\multiplicacaodigital.com.br\httpdocs\"
website_url = "http://www.multiplicacaodigital.com.br"

StrFolder = website_pasta& "imagens\" &pasta_servidor& "\" &id& "\"
'Response.Write StrFolder 
fotos_limite = 8 

'# CRIA A PASTA, CASO AINDA NAO EXISTA
Set objFS = Nothing
Set objFolder = Nothing
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'Response.Write StrFolder 
If Not objFS.FolderExists(StrFolder) Then
  objFS.CreateFolder(StrFolder)
End if
Set objFolder = ObjFS.GetFolder(StrFolder)

For Each File in objFolder.files
  If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Or lcase(Right(File, 3)) = "png" Then
    'Response.Write File.Name
    If Not(objFS.FileExists(StrFolder&KillAcentos(File.Name))) Then  
	  File.Name = KillAcentos(File.Name)     	 
	End If
  End If
Next

Set objFS = Nothing
Set objFolder = Nothing

x = 0
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If Not objFS.FolderExists(StrFolder) Then
  objFS.CreateFolder(StrFolder)
End if
Set objFolder = ObjFS.GetFolder(StrFolder)

For Each File in objFolder.files
  If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Or lcase(Right(File, 3)) = "png" Then
	x = x + 1
  End If
Next

%>
<table width="0%" border="0" cellspacing="8" cellpadding="0" class="texto1" style="border-bottom: 1px solid white">
  <tr>
    <td colspan="<%=x%>">
    <%	If  x  = 0 Then   %>
 	Nao existem fotos cadastradas.
    <%  End If  %>	
	</td>
  </tr>
  <tr>
  <%
  If Request("remover") <> "" Then
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
    If objFS.FileExists( StrFolder & Request("imagem_remover") ) Then
	  objFS.DeleteFile( StrFolder & Request("imagem_remover") )
	  Set objFS = Nothing
    End If
  End If

  x = 0

  '# EXIBE AS FOTOS QUE FORAM ENVIADAS
  For Each File in objFolder.files
    If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Or lcase(Right(File, 3)) = "png" Then 
    x = x + 1
    %>
	<form name="form_<%=x%>" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?pasta_servidor=<%=pasta_servidor%>&id=<%=id%>&remover=sim&website_pasta=<%=website_pasta%>">
	<input type="hidden" name="imagem_remover" value="<%=File.Name%>">
	<td valign="top" align="center"><a href="<%=website_url%>/imagens/<%=Request("pasta_servidor")%>/<%=Request("id")%>/<%=File.Name%>" onClick="abre_janela(777, 550, 'popup','yes')"  target="popup"><img src="<%=website_url%>/imagens/<%=pasta_servidor%>/<%=id%>/<%=File.Name%>" border="0" width="50" height="50" style="border: 1px solid black"></a><br>
    <input type="button" onClick="confirm_delete('form_<%=x%>')" value="Apagar"> 
	</td>
	</form>
    <%
    End If
  Next
  %>
  </tr>
</table>
<%
Set objFolder = Nothing
Set Folder = Nothing
%>




<%
If Request("enviar") <> "" And Request("ignorar") = "" Then

  byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount)
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")  
  BuildUploadRequest  RequestBin
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  value = UploadRequest.Items("blob").Item("Value")
  If Lcase(Right(filename,3)) = "jpg" Or Lcase(Right(filename,3)) = "gif" Or Lcase(Right(filename,3)) = "png" then
    Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	
	If objFS.FileExists(strFolder & filename) Then
    %>
    <script language="javascript">
    alert("Erro ao enviar imagem, o arquivo '<%=filename%>' já existe na pasta de imagens do produto")
    </script>
    <%
	Else
	  If LenB(value) > 400000 then
    %>
      <script language="javascript">
  	  alert("Erro ao enviar a imagem, o tamanho do arquivo deve ser menor que 400Kb")
  	  </script>
  	  <%
      Else
      %>
  	  <br><strong>Aguarde o envio da imagem...</strong><br>
  	  <input name="progress" id="progress" value="0% enviado" style="border:none;background-color:#FFFFFF">
  	  <table width="100" border="0" cellspacing="0" cellpadding="0" style="border: 1px inset;background-color:#FFFFFF">
   	    <tr>
          <td><input name="barra" id="barra" style="border:none; background-color: orangered; height: 10; width:1" readonly></td>
      	  <td></td>
        </tr>
	  </table>
  	  <%
      Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
	  filename = Replace(filename," ","")
	  'Response.Write "--"&filename2&"--"   
      Set MyFile = ScriptObject.CreateTextFile( StrFolder & filename)
	  progress = 0
	  n = 3
      For i = 1 to LenB(value)
        MyFile.Write chr(AscB(MidB(value,i,1)))
		progress = Fix((i * 100) / LenB(value))
		If n <> progress then
		  n = progress
		  %>
		  <script language="javascript">document.getElementById('progress').value = "<%=n%>% enviado"</script>
		  <script language="javascript">document.getElementById('barra').style.width = "<%=n%>"</script>
		  <%
        End if
      Next
      MyFile.Close
	  If n=progress Then
	  %>
		<form name="reload" id="reload" method="post" action="">
		</form>
		<script language=javascript>
		  document.getElementById('reload').action =window.location + "&ignorar=sim";
		  document.getElementById('reload').submit();
		</script>
	  <%
	  End If
      End If
    Set objFS = Nothing
    End if
Else
  %>
  <script language="javascript">
  alert("Erro ao enviar a imagem, lembre-se que ela deve possuir extensao PNG, JPG ou GIF");
  </script>
  <%
  End If
End If
%>

<%
Set ObjFS = Server.CreateObject("Scripting.FileSystemObject") 
Set objFolder = ObjFS.GetFolder(StrFolder)
x = 0
  For Each File in objFolder.files
	If lcase(Right(File, 3)) = "gif" Or lcase(Right(File, 3)) = "jpg" Or lcase(Right(File, 3)) = "png" Then
	  x = x + 1
	End If
  Next
Set ObjFS = Nothing
Set objFolder = Nothing
%>
<table width="100%" border="0" cellspacing="20" cellpadding="0" style="background-color:#F3F3F3" class="texto1">
  <tr>
  <form method="post" enctype="multipart/form-data" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?pasta_servidor=<%=pasta_servidor%>&id=<%=id%>&enviar=sim&website_pasta=<%=website_pasta%>">
    <td class="texto_pagina" valign="top">
	  <%If  x  => 8 Then%>
	    <strong>Permitido enviar o total de 8 fotos.</strong><br>
	  <%Else%>
	    <strong>Envio de nova foto:</strong><br>
	    <input type="file" name="blob" class="texto_pagina" style="width:200px" src="img/pesquisar_imagem.gif"><br><br>
	    <input type="submit" value="Enviar">
	  <%End If%>
	</td>
  </form>
  </tr>
</table>
</body>
</html>

Entrar

Arquivado

Erro repentino em upload de arquivos (sem uso de componentes de terce

Recommended Posts

ronaldoflopes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Consulta SQL dentro de outra consulta

Data igual do facebook

Fazer busca no Banco de dados usando vários critério

Conteúdo Similar

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante