Erro no Class FreeASPUpload

[alex_rlima 0]

A parte de include está ok. A nossa dúvida é: Será que o Class não aceita ser chamado através de um include? (Falei besteira?)

[Mário Monteiro 179]

acho que não é isso o blema pois include é mais pra deixar o codigo um pouco mais limpo, é como se o codigo estivesse ali mesmo...

[alex_rlima 0]

Existe uma sequencia para a chamada da Classe? Por exemplo precisa ser no inicio...pode ser no meio ou deve ser no final?

[Mário Monteiro 179]

deve ser antes de tentar usar algo que tenha nela...preferivel que seja no inicio...

[alex_rlima 0]

Então, se a chamada deste Class é o include do include do include do include, então está longe de ser no início, já que na interpretação, esse conjunto todo de include é tomado como um arquivão inteiro, certo??

[Mário Monteiro 179]

com certeza...você precisa ver se a classe fica antes de usar algo dela...

[dark0 0]

é isso aevocê não pode chamar a classe sem ter criado ela..senão gera erro..

[alex_rlima 0]

Pessoal a sequencia que estamos chamando via include é:Insert_Form.asp|'-----> Insert_Into_DB.asp|'----> se inserir com sucesso, chama UploadTester.asp -------> FreeASPUpload.asp (onde está a Classe)|'--------> chgfilename.aspEstá correto a forma em que colocamos o include? Ou existe outra maneira?

[dark0 0]

o freeaspupload é chamado por uploadtester?e você coloca o include antes de chamar a classe?essa é a duvida

[alex_rlima 0]

Exatamente... é logo no início... e a classe só é chamada depois de muito código...

 

Segue o inicio do UploadTester.asp:

 

ASP

[*]<%

[*]Response.Expires = -1

[*]Server.ScriptTimeout = 600

[*]%>

[*][COLOR=red]<!-- #include file="freeaspupload.asp" -->[/color]

[*]<%

[*]

[*]function OutputForm()

[*]%>

[*] <form name="frmSend" method="POST" enctype="multipart/form-data" action="uploadTester.asp" onSubmit="return onSubmitForm();">

[*] Foto 1: <input name=attach1 type=file size=35><br>

[*] Foto 2: <input name=attach2 type=file size=35><br>

[*] Foto 3: <input name=attach3 type=file size=35><br>

[*] Foto 4: <input name=attach4 type=file size=35><br>

[*] Foto 5: <input name=attach5 type=file size=35><br>

[*] <br>

[*] <input style="margin-top:4" type=submit value="Enviar">

[*] </form>

[*]<%

[*]end function

[*]

[*]function TestEnvironment()

[*] Dim fso, fileName, testFile, streamTest

[*] TestEnvironment = ""

[*] Set fso = Server.CreateObject("Scripting.FileSystemObject")

[*] if not fso.FolderExists(uploadsDirVar) then

[*] TestEnvironment = "<B>Diretório " & uploadsDirVar & " não existe.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."

[*] exit function

[*] end if

[*] fileName = uploadsDirVar & "\test.txt"

[*] on error resume next

[*] Set testFile = fso.CreateTextFile(fileName, true)

[*] If Err.Number<>0 then

[*] TestEnvironment = "<B>Diretório " & uploadsDirVar & " não tem permissão de escrita.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."

[*] exit function

[*] end if

[*] Err.Clear

[*] testFile.Close

[*] fso.DeleteFile(fileName)

[*] If Err.Number<>0 then

[*] TestEnvironment = "<B>Diretório " & uploadsDirVar & " não tem permissão de exclusão </B>, porém ele tem permissão de escrita.<br> Change the permissions for IUSR_<I>computername</I> on this folder."

[*] exit function

[*] end if

[*] Err.Clear

[*] Set streamTest = Server.CreateObject("ADODB.Stream")

[*] If Err.Number<>0 then

[*] TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries."

[*] exit function

[*] end if

[*] Set streamTest = Nothing

[*]end function

[*]

[*]function SaveFiles

[*] Dim Upload, fileName, fileSize, ks, i, fileKey, conta, arq1, arq2, arq3, arq4, arq5

[*][COLOR=red] Set Upload = New FreeASPUpload[/color]

[*] Upload.Save(uploadsDirVar)

[*]

[alex_rlima 0]

Pessoal,Eu e o Andre KC conseguimos fazer funcionar o problema em questão.Valeu pelas dicas.

[Mário Monteiro 179]

Pessoal,

 

Eu e o Andre KC conseguimos fazer funcionar o problema em questão.

 

Valeu pelas dicas.

que bom que conseguiram http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[dark0 0]

e como ficou?