rcnery Postado Janeiro 7, 2004 Denunciar Share Postado Janeiro 7, 2004 Pessoal consegui fazer o upload do jeito que eu precisava, sozinho funciona normal mas quando eu coloco o arquivo dentro da pagina do site com include da a seguinte mensagem de erro:Microsoft VBScript compilation error '800a03ea' Syntax error /clsComLessUpload.asp, line 2 Class ComLessUploadCódigo completo:<% Class ComLessUpload Private aAllData Private aHdr Private isPosted Private q '--------------------------------------------------------------------------- ' Constructor '--------------------------------------------------------------------------- Private Sub Class_Initialize() If Request.TotalBytes > 0 Then Dim AllDataB, x ' Set flag for posted data isPosted = True ' Retrieve post data q = Chr(34) aAllDataB = Request.BinaryRead(Request.TotalBytes) ' Convert to Ascii from Unicode For x = 1 To LenB(aAllDataB) aAllData = aAllData & Chr(AscB(MidB(aAllDataB, x, 1))) Next ' Retrieve header aHdr = Left(aAllData, InStr(aAllData, vbCrLf) + 1) Else isPosted = False End If End Sub '--------------------------------------------------------------------------- ' Destructor '--------------------------------------------------------------------------- Private Sub Class_Terminate() ' End Sub '--------------------------------------------------------------------------- ' Save with original filename '--------------------------------------------------------------------------- Public Function Save(directory, field, overwrite) 'As Boolean If isPosted Then Dim filename filename = directory & GetFileName(field) SaveFile field,filename,overwrite End If End Function '--------------------------------------------------------------------------- ' Save with different filename '--------------------------------------------------------------------------- Public Function SaveAs(filename, directory, field, overwrite) 'As Boolean If isPosted Then Dim filenameAll filenameAll = directory & filename SaveFile field,filenameAll,overwrite End If End Function '--------------------------------------------------------------------------- ' Look for the specified form field in the data, retrieve its filename '--------------------------------------------------------------------------- Public Function GetFileName(field) If isPosted Then Dim x2, i x = InStr(aAllData, aHdr & "Content-Disposition: form-data; name=" & q & field & q) If x >0 Then x = InStr(x, aAllData, "filename=" & q) x2 = InStr(x, aAllData, vbCrLf) For i = x2 To x Step -1 If Mid(aAllData, i, 1) = "\" Then x = i - 9 Exit For End If Next GetFileName = Mid(aAllData, x + 10, x2 - (x + 11)) End If End If End Function '--------------------------------------------------------------------------- ' Get file data from upload, for a specified field '--------------------------------------------------------------------------- Private Function GetFileData(field) Dim x2 x = InStr(aAllData, aHdr & "Content-Disposition: form-data; name=" & q & field & q) If x > 0 Then x = InStr(x, aAllData, vbCrLf) x = InStr(x + 1, aAllData, vbCrLf) x = InStr(x + 1, aAllData, vbCrLf) + 2 x2 = InStr(x, aAllData, Left(aHdr, Len(aHdr) - 2)) GetFileData = Mid(aAllData, x + 2, x2 - x - 4) End If End Function '--------------------------------------------------------------------------- ' Create an FSO object, save the data to disk '--------------------------------------------------------------------------- Private Sub SaveFile(aField, aFilename, overwrite) 'As Boolean Dim FSO, TS Set FSO = CreateObject("Scripting.FileSystemObject") Set TS = FSO.CreateTextFile(aFilename, overwrite, False) ' final param is unicode TS.Write GetFileData(aField) TS.Close Set TS = Nothing Set FSO = Nothing End Sub End Class %>Se alguém souber de alguma maneira para resolver esse problema me ajude por favor!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Victor Postado Janeiro 7, 2004 Denunciar Share Postado Janeiro 7, 2004 vou analizar o codigo, e em breve tarei postando o erro akiate +Victor Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Victor Postado Janeiro 7, 2004 Denunciar Share Postado Janeiro 7, 2004 o codigo quando eu salvo no meu pc ele não roda não!!!!!Tem algum codigo errado.....não esta interpretando!!!!!caso queira + ajuda e so postar no forumate +Victor Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 rcnery Postado Janeiro 8, 2004 Autor Denunciar Share Postado Janeiro 8, 2004 Vitor,Valeu pela força, já consegui resolver o problema.AbraçoRicardo Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 diraol Postado Janeiro 8, 2004 Denunciar Share Postado Janeiro 8, 2004 ae ricardo.... posta o q tava errado ai.... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 rcnery Postado Janeiro 8, 2004 Autor Denunciar Share Postado Janeiro 8, 2004 Para solucionar o erro eu criei uma pagina com o upload sózinho e chamei ela diretamente...O q estava acontecendo que não rodou ai? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
rcnery
Pessoal consegui fazer o upload do jeito que eu precisava, sozinho funciona normal mas quando eu coloco o arquivo dentro da pagina do site com include da a seguinte mensagem de erro:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/clsComLessUpload.asp, line 2
Class ComLessUpload
Código completo:
<%
Class ComLessUpload
Private aAllData
Private aHdr
Private isPosted
Private q
'---------------------------------------------------------------------------
' Constructor
'---------------------------------------------------------------------------
Private Sub Class_Initialize()
If Request.TotalBytes > 0 Then
Dim AllDataB, x
' Set flag for posted data
isPosted = True
' Retrieve post data
q = Chr(34)
aAllDataB = Request.BinaryRead(Request.TotalBytes)
' Convert to Ascii from Unicode
For x = 1 To LenB(aAllDataB)
aAllData = aAllData & Chr(AscB(MidB(aAllDataB, x, 1)))
Next
' Retrieve header
aHdr = Left(aAllData, InStr(aAllData, vbCrLf) + 1)
Else
isPosted = False
End If
End Sub
'---------------------------------------------------------------------------
' Destructor
'---------------------------------------------------------------------------
Private Sub Class_Terminate()
'
End Sub
'---------------------------------------------------------------------------
' Save with original filename
'---------------------------------------------------------------------------
Public Function Save(directory, field, overwrite) 'As Boolean
If isPosted Then
Dim filename
filename = directory & GetFileName(field)
SaveFile field,filename,overwrite
End If
End Function
'---------------------------------------------------------------------------
' Save with different filename
'---------------------------------------------------------------------------
Public Function SaveAs(filename, directory, field, overwrite) 'As Boolean
If isPosted Then
Dim filenameAll
filenameAll = directory & filename
SaveFile field,filenameAll,overwrite
End If
End Function
'---------------------------------------------------------------------------
' Look for the specified form field in the data, retrieve its filename
'---------------------------------------------------------------------------
Public Function GetFileName(field)
If isPosted Then
Dim x2, i
x = InStr(aAllData, aHdr & "Content-Disposition: form-data; name=" & q & field & q)
If x >0 Then
x = InStr(x, aAllData, "filename=" & q)
x2 = InStr(x, aAllData, vbCrLf)
For i = x2 To x Step -1
If Mid(aAllData, i, 1) = "\" Then
x = i - 9
Exit For
End If
Next
GetFileName = Mid(aAllData, x + 10, x2 - (x + 11))
End If
End If
End Function
'---------------------------------------------------------------------------
' Get file data from upload, for a specified field
'---------------------------------------------------------------------------
Private Function GetFileData(field)
Dim x2
x = InStr(aAllData, aHdr & "Content-Disposition: form-data; name=" & q & field & q)
If x > 0 Then
x = InStr(x, aAllData, vbCrLf)
x = InStr(x + 1, aAllData, vbCrLf)
x = InStr(x + 1, aAllData, vbCrLf) + 2
x2 = InStr(x, aAllData, Left(aHdr, Len(aHdr) - 2))
GetFileData = Mid(aAllData, x + 2, x2 - x - 4)
End If
End Function
'---------------------------------------------------------------------------
' Create an FSO object, save the data to disk
'---------------------------------------------------------------------------
Private Sub SaveFile(aField, aFilename, overwrite) 'As Boolean
Dim FSO, TS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TS = FSO.CreateTextFile(aFilename, overwrite, False) ' final param is unicode
TS.Write GetFileData(aField)
TS.Close
Set TS = Nothing
Set FSO = Nothing
End Sub
End Class
%>
Se alguém souber de alguma maneira para resolver esse problema me ajude por favor!!!
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.