upload sem componente com erro

razs · Janeiro 2, 2012

Pessoal estou a utilizar o script do laboratorio intitulado upload sem componentes mas estou a ter este erro.

Expected end of statement

/usercorc/upload_funcoes.asp, line 17

Pos = InStrB(Pos, RequestBin, getByteString("name="))[Dame erro aqui] PosBeg = Pos + 6....

O que sera?

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

xanburzum · Janeiro 2, 2012

qual o numero do erro ?

e olha este exemplo de upload com varios arquivos

Primeiro iremos usar o formulário para a seleção de arquivos.

formhtml

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
   <head>
       <title> Formulário </title>
       <meta name="Generator" content="EditPlus">
       <meta name="Author" content="">
       <meta name="Keywords" content="">
       <meta name="Description" content="">

   </head>

   <body>

       <!-- Preparações para o Uploadify -->
       <script type="text/javascript" src="uploadify/jquery-1.4.4.min.js"></script>
       <script type="text/javascript" src="uploadify/swfobject.js"></script>
       <script type="text/javascript" src="uploadify/jquery.uploadify.v2.1.0.min.js"></script>
       <link rel="stylesheet" href="uploadify/styles/uploadify.css" type="text/css" media="all" title="all" charset="iso-8859-1" />


       <!-- Form -->
       <form id="novoArquivo" action="envio.asp" method="post">
           <div id="fileNameList">
               <pre id="fileInfo"></pre>
               <a id="lnkExclui" href="#">Excluir</a>
           </div>
           <div id="fileUpload">
               <input id="fileInput" name="fileInputs" type="file" />
           </div>
       </form>

       <!-- A 'mágica' -->
       <script type="text/javascript">

           //--------------------------------------------------------------------------------------------
           var respData; //Variável que armazena os dados de retorno de cada upload

           //As variáveis a seguir são alimentadas na função onComplete
           //e utilizadas na função onAllComplete
           var numArquivos = 0;            //Indica quantos arquivos foram enviados
           var nomeOriginal = new Array();    //Array com o NOME ORIGINAL de cada arquivo enviado
           var nomeArquivo = new Array();    //Array com o NOME ALTERADO de cada arquivo enviado
           var tamArquivo = new Array();    //Array com o TAMANHO de cada arquivo enviado
           var statusArquivo = new Array();//Array com o STATUS DE ENVIO de cada arquivo



           //--------------------------------------------------------------------------------------------
           //Esta função será chamada no final de todo o envio
           var onAllComplete = function(event, data) {

               //Limpa o local para apresentar os dados
               $('#fileInfo').html('');


               //Apresenta as informações de cada arquivo
               for (var nf = 1; nf <= numArquivos; nf++) {
                   $('#fileInfo').html(
                       $('#fileInfo').html() +
                       '<h2>Arquivo ' + nf + '</h2>' +
                       'Status de envio: <b>' + statusArquivo[nf] + '</b><br />' +
                       'Nome original do arquivo: <b>' + nomeOriginal[nf] + '</b><br />' +
                       'Nome do arquivo gravado: <b>' + nomeArquivo[nf] + '</b><br />' +
                       'Tamano do arquivo: <b>' + tamArquivo[nf] + '</b><br />' +
                       '<a href="uploads/' + nomeArquivo[nf] + '">Link para o arquivo</a><br /><br />'
                   );
               }

               //Esconde o botão e apresenta os dados do arquivo
               $('#fileNameList').show();
               $('#fileUpload').hide();
           }


           //--------------------------------------------------------------------------------------------
           //Esta função será chamada no final de CADA envio
           var onComplete = function(event, queueID, fileObj, response, data) {

               respData = $.parseJSON(response)

               //Incrementa o número de arquivos
               numArquivos++;

               //Armazena o status de envio (certamente 'OK')
               statusArquivo[numArquivos] = respData.result;

               //Se não houve erro no evio, armazena os dados do arquivo nos arrays
               if (respData.result != 'ERRO') {

                   nomeOriginal[numArquivos] =        respData.nomeOriginal;
                   nomeArquivo[numArquivos] =        respData.nomeArquivo;
                   tamArquivo[numArquivos] =        respData.tamArquivo;

               }
           }


           //--------------------------------------------------------------------------------------------
           //O link Excluir mostra novamente o botão de upload
           $('#lnkExclui').click(function(e) {
               $('#fileNameList').hide();
               $('#fileUpload').show();
               e.preventDefault;
               return false;
           });


           //--------------------------------------------------------------------------------------------
           //Preparação inicial
           $(document).ready(function() {
               //Configuração do uploadify
               $('#fileInput').uploadify({
                   'uploader'        : 'uploadify/uploadify.swf',        //Handler Flash para o upload
                   'script'        : 'envio.asp',                        //Página a ser chamada para tratar o upload
                   'cancelImg'        : 'uploadify/cancelUpload.png',        //Imagem do botão de cancelar (X)
                   'auto'            : true,                                //Envio se inicia ao selecionar o arquivo
                   'folder'        : '',                                //Pasta para envio (quem vai tratar isso é o ASP)
                   'buttonText'    : 'Procurar',                        //Texto do botão
                   'multi'            : true,                                //Permite o envio de vários arquivos
                   'onComplete'    : onComplete,                        //A função a ser chamada A CADA arquivo enviado (definida acima)
                   'onAllComplete'    : onAllComplete,                    //A função a ser chamada no fim de TODO o envio (definida acima)
                   'onSelectOnce'    : function(event,data) {            //Esta função serve apenas para zerar o número de arquivos enviados
                                       numArquivos = 0;                // no início do envio
                                     }
               });

               //Preparação para a primeira tela
               $('#fileNameList').hide();
               $('#fileUpload').show();
           });
       </script>



   </body>
</html>

Abaixo a página de envio do upload, onde iremos a classe de Upload e a classe JSON.

envio.asp

<!--#include file="classUpload/clsUpload.asp"-->
<!--#include file="classJson/JSON_2.0.4.asp"-->

<%

   '------------------------------------------------------------------------
   'Gera uma string aleatória com 'n' dígitos
   'Usado para criar um nome aleatório para o arquivo
   function fnGeraChave(n)
       dim s

       randomize
       s = ""
       while len(s) < n
           s = chr (int((57 - 48 + 1) * Rnd + 48)) + s
       wend
       fnGeraChave = s
   end function
   '------------------------------------------------------------------------

   Response.Charset="ISO-8859-1"

   dim objUp            'Instância da classe upload (definida no arquivo clsUpload.asp)
   dim objJson            'Instância da classe JSON (definida no arquivo JSON_2.0.4.asp)
   dim diretorio        'Diretório destino
   dim nomeOriginal    'Nome original do arquivo
   dim nomeArquivo        'Nome temporário do arquivo
                       '(Alterado para evitar que arquivos com mesmo nome se sobrescrevam)

   'Instancia a classe clsUpload
   set objUp = New clsUpload

   'Instancia a classe JSON (para enviar a resposta)
   Set objJson = jsObject()

   'Campos passados pelo Uploadify:
   '    - Filename    Nome original do arquivo enviado
   '    - folder    Este campo é definido pelo parâmetro 'folder' do uploadify - não estamos usando
   '    - Filedata    Os bytes (stream) que compõem o arquivo
   '    - Upload    Só achei o valor 'Submit Query' neste campo

   if objUp.fields("Filedata").length <> 0 and objUp.fields("Filedata").length & "" <> "" then

       nomeOriginal = objUp.fields("Filename").value
       nomeArquivo = fnGeraChave(20) & "_" & nomeOriginal

       'O diretório destino é definido aqui, como pasta filha 'uploads' da pasta atual
       diretorio = request.serverVariables("PATH_TRANSLATED")
       diretorio = left (diretorio,instrRev(diretorio,"\")) & "uploads\"

       'Salva o arquivo (Lembre-se de dar direito de escrita para o usuário IUSR!)
       objUp.fields("Filedata").saveAs(diretorio & nomeArquivo)


       'Envia os dados do arquivo via JSON (pode ser que você precise deles no outro lado)
       objJson("result") = "OK"
       objJson("nomeArquivo") = nomeArquivo
       objJson("tamArquivo") = objUp.fields("Filedata").length
       objJson("nomeOriginal") = nomeOriginal

   else
       'Ocorreu um erro no envio
       objJson("result") = "ERRO"
   end if

   'Envia o JSON para o cliente
   objJson.flush

   'Destroi as instâncias
   Set objUp = Nothing
   Set objJson = Nothing

%>

A classe JSON_2.0.4 e a classe de Upload podem ser baixadas aqui, lembrando que será preciso criar uma pasta chamada classjson e uma pasta chamada classupload, após você terá que criar uma pasta chamada uploads , é nesta pasta, onde ficarão os arquivos que forem enviados para o servidor. Lembre-se de que o usuário IUSR precisa de direito de escrita nele.

JSON_2.0.4.asp

<%
'
'    VBS JSON 2.0.3
'    Copyright (c) 2009 Tuðrul Topuz
'    Under the MIT (MIT-LICENSE.txt) license.
'

Const JSON_OBJECT    = 0
Const JSON_ARRAY    = 1

Class jsCore
   Public Collection
   Public Count
   Public QuotedVars
   Public Kind ' 0 = object, 1 = array

   Private Sub Class_Initialize
       Set Collection = CreateObject("Scripting.Dictionary")
       QuotedVars = True
       Count = 0
   End Sub

   Private Sub Class_Terminate
       Set Collection = Nothing
   End Sub

   ' counter
   Private Property Get Counter
       Counter = Count
       Count = Count + 1
   End Property

   ' - data maluplation
   ' -- pair
   Public Property Let Pair(p, v)
       If IsNull(p) Then p = Counter
       Collection(p) = v
   End Property

   Public Property Set Pair(p, v)
       If IsNull(p) Then p = Counter
       If TypeName(v) <> "jsCore" Then
           Err.Raise &hD, "class: class", "Incompatible types: '" & TypeName(v) & "'"
       End If
       Set Collection(p) = v
   End Property

   Public Default Property Get Pair(p)
       If IsNull(p) Then p = Count - 1
       If IsObject(Collection(p)) Then
           Set Pair = Collection(p)
       Else
           Pair = Collection(p)
       End If
   End Property
   ' -- pair
   Public Sub Clean
       Collection.RemoveAll
   End Sub

   Public Sub Remove(vProp)
       Collection.Remove vProp
   End Sub
   ' data maluplation

   ' encoding
   Function jsEncode(str)
       Dim charmap(127), haystack()
       charmap(8)  = "\b"
       charmap(9)  = "\t"
       charmap(10) = "\n"
       charmap(12) = "\f"
       charmap(13) = "\r"
       charmap(34) = "\"""
       charmap(47) = "\/"
       charmap(92) = "\\"

       Dim strlen : strlen = Len(str) - 1
       ReDim haystack(strlen)

       Dim i, charcode
       For i = 0 To strlen
           haystack(i) = Mid(str, i + 1, 1)

           charcode = AscW(haystack(i)) And 65535
           If charcode < 127 Then
               If Not IsEmpty(charmap(charcode)) Then
                   haystack(i) = charmap(charcode)
               ElseIf charcode < 32 Then
                   haystack(i) = "\u" & Right("000" & Hex(charcode), 4)
               End If
           Else
               haystack(i) = "\u" & Right("000" & Hex(charcode), 4)
           End If
       Next

       jsEncode = Join(haystack, "")
   End Function

   ' converting
   Public Function toJSON(vPair)
       Select Case VarType(vPair)
           Case 0    ' Empty
               toJSON = "null"
           Case 1    ' Null
               toJSON = "null"
           Case 7    ' Date
               ' toJSON = "new Date(" & (vPair - CDate(25569)) * 86400000 & ")"    ' let in only utc time
               toJSON = """" & CStr(vPair) & """"
           Case 8    ' String
               toJSON = """" & jsEncode(vPair) & """"
           Case 9    ' Object
               Dim bFI,i
               bFI = True
               If vPair.Kind Then toJSON = toJSON & "[" Else toJSON = toJSON & "{"
               For Each i In vPair.Collection
                   If bFI Then bFI = False Else toJSON = toJSON & ","

                   If vPair.Kind Then
                       toJSON = toJSON & toJSON(vPair(i))
                   Else
                       If QuotedVars Then
                           toJSON = toJSON & """" & i & """:" & toJSON(vPair(i))
                       Else
                           toJSON = toJSON & i & ":" & toJSON(vPair(i))
                       End If
                   End If
               Next
               If vPair.Kind Then toJSON = toJSON & "]" Else toJSON = toJSON & "}"
           Case 11
               If vPair Then toJSON = "true" Else toJSON = "false"
           Case 12, 8192, 8204
               toJSON = RenderArray(vPair, 1, "")
           Case Else
               toJSON = Replace(vPair, ",", ".")
       End select
   End Function

   Function RenderArray(arr, depth, parent)
       Dim first : first = LBound(arr, depth)
       Dim last : last = UBound(arr, depth)

       Dim index, rendered
       Dim limiter : limiter = ","

       RenderArray = "["
       For index = first To last
           If index = last Then
               limiter = ""
           End If

           On Error Resume Next
           rendered = RenderArray(arr, depth + 1, parent & index & "," )

           If Err = 9 Then
               On Error GoTo 0
               RenderArray = RenderArray & toJSON(Eval("arr(" & parent & index & ")")) & limiter
           Else
               RenderArray = RenderArray & rendered & "" & limiter
           End If
       Next
       RenderArray = RenderArray & "]"
   End Function

   Public Property Get jsString
       jsString = toJSON(Me)
   End Property

   Sub Flush
       If TypeName(Response) <> "Empty" Then
           Response.Write(jsString)
       ElseIf WScript <> Empty Then
           WScript.Echo(jsString)
       End If
   End Sub

   Public Function Clone
       Set Clone = ColClone(Me)
   End Function

   Private Function ColClone(core)
       Dim jsc, i
       Set jsc = new jsCore
       jsc.Kind = core.Kind
       For Each i In core.Collection
           If IsObject(core(i)) Then
               Set jsc(i) = ColClone(core(i))
           Else
               jsc(i) = core(i)
           End If
       Next
       Set ColClone = jsc
   End Function

End Class

Function jsObject
   Set jsObject = new jsCore
   jsObject.Kind = JSON_OBJECT
End Function

Function jsArray
   Set jsArray = new jsCore
   jsArray.Kind = JSON_ARRAY
End Function

Function toJSON(val)
   toJSON = (new jsCore).toJSON(val)
End Function
%>

razs · Janeiro 3, 2012

O erro é o Microsoft VBScript compilation error '800a0401'

Porreiro se não conseguir por este a funcionar experimento esse sem duvida.

consegui descobrir o erro e agora faço o upload normalmente mas no fim do upload ele da este erro

ADODB.Recordset error '800401f3'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/usercorc/upload_form2.asp, line 36

referente a

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

Alguma ideia?

o problema poderá ser de eu estar a testar num servidor gratuito? (jabry) eu estou a a fazer o upload para a pasta db visto ser a unica com permissões de escrita.

Entrar

Arquivado

upload sem componente com erro

Recommended Posts

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

razs 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante