Upload com FSO + de um arquivo com BD

[luamm 0]

Salve Galera, http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Estou com um pequeno problema para fazer upload de imagens... Tô usando um servidor de fora (Itália) e o disgranhento não tem suporte a nenhum componente, então estou procurando um script em FSO que faça upload de imagens.

 

Sei que talvez alguns de vcs digam "Procura no fórum que tem algo relacionado" http://forum.imasters.com.br/public/style_emoticons/default/blush.gif , mais é o seguinte... eu já entrei em tudo o que é fórum e até aqui mesmo já dei um giro e só encontrei script em FSO que faz apenas upload :blink: e o que eu preciso é o seguinte:

Eu tenho um formulário que possui tanto campos texts qto campos files e eu gostaria que qdo o usuário enviasse o form o script fizesse o upload das imagens (que são 10), amazenasse em variáveis tanto os nomes dos arquivos quanto os valores dos campos texts para que eu possa gravar no banco em um único insert.

 

Gostaria de saber se alguém possui um script que faça algo parecido :wacko: , pois somente o upload em FSO eu tenho, mais não sei como atribuo à variáveis os valores dos campos texts e os nomes dos arquivos para poder gravar no bd

 

Ficaria muito, mais muito grata mesmo se alguém pudesse me ajudar, pois devo entregar o projeto dentro de alguns dias e isso tem me atrapalhado muito! http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

Valew Galera, desde já agradeço...

BJKS

LUAMM http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[luamm 0]

Alguém !!!!

 

 

Por Favor Galera... É importante http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

 

Abrçs,

LUAMM

[dark0 0]

você ja tentou fazer alguma coisaontem mesmo.. eu comecei a fazer um projeto novo.. pra um cliente.. e nao sei onde o cara vai hospedar.. entaum comecei a mecher com upload sem componentes..Suei um pouquinho.. mas consegui fazer funcionar.da uma olhada aqui no forum.. eu peguei um codigo daqui.. que funcionou na boa..se nao me engano.. eu digitei na busca upload sem componentesdaí.. se nao me engano.. tinha um codigo do arr .. que funfava na boa.o mario tb falou em uma classe.. free asp upload..se nao achar. posta aeabraço

[luamm 0]

Valew pelo post dark0... O que acontece é que eu já tenho um script em FSO que faz o upload, o problema maior é que não consigo adaptar para recuperar o valor dos campos texts e os nomes dos arquivos para que eu possa gravar em um bd, manja?Abçs,LUAMM

[dark0 0]

ahaneu sofri pra conseguir fazer isso tb, heheagora to saindo pra almoçar..de tarde, se der tempo.. eu baixo o meu script do ftp.. e posto ele aqui pra você verabraço

[Mário Monteiro 179]

sem componente

 

http://www.freeaspupload.net

[dark0 0]

Bem.. eu consegui com o codigo que vou postar aqui.

 

funções que serão utilizadas pelo codigo.. sugiro que coloque elas em alguma pagina.. e depois coloque essa pagina como include onde for usar

ASP

[*]Sub BuildUploadRequest(RequestBin)

 

[*] on error resume next

 

[*]

 

[*] 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

 

Agora.. vamos chamar as funções acima.. e capturar dados dos formulario.

ASP

[*]byteCount = Request.TotalBytes

 

[*]RequestBin = Request.BinaryRead(byteCount)

 

[*]Set UploadRequest = CreateObject("Scripting.Dictionary")

 

[*]BuildUploadRequest RequestBin

 

[*]

 

[*]' Recuperando os Dados Digitados nos campos text ----------

 

[*]campo1 = UploadRequest.Item("campo1").Item("Value")

 

[*]campo2 = UploadRequest.Item("campo2").Item("Value")

 

[*]campo3 = UploadRequest.Item("campo3").Item("Value")

 

[*]

 

[*]' Tipo de arquivo que esta sendo enviado (no campo file) 

 

[*]campo_file = UploadRequest.Item("campo_file").Item("ContentType")

 

[*]

 

[*]' Caminho completo do arquivo enviado

 

[*]caminho_campo1 = UploadRequest.Item("campo_file").Item("FileName")

 

bom.. nao vou colocar mais aqui.. mas teriam mais coisas.. mas acho que o resto você deve ter aí..

 

enfim.. eh isso aí..

 

qualquer coisa posta ae

 

abraço

[luamm 0]

Desculpe pela minha ignorância "dark0", mais este script não faz upload e tão pouco responde as variáveis do form... Ele funciona pra você?BJSLUAMM :huh:

[Mário Monteiro 179]

bem se nada funfar tem com o que passei tb...

[luamm 0]

Salve Galera :D , eu novamente!

 

Eu ainda tenho dúvidas com relação ao upload com FSO, como eu havia dito no último tópico que postei... Só que agora é outro tipo de dúvida.

 

Consegui um script que faz o upload da imagem e que resgata os valores do campos "texts" do form, só que ele esta dando erro para os campos que possuem valores numéricos, por exemplo:

No form eu tenho um campo chamado "Ddd_Phone" onde só permito valores numéricos quando tendo resgatar seu valor com o script, após ter feito o upload ele esta dando um erro:

 

Object required: '[undefined]'

 

/franchising_send.asp, line 76 -----> Esta é a linha do Insert

 

 

E quando eu tiro os campos numéricos funfa direitinho, o script chama os campos da seguinte maneira:

 

Para os campos Files:

upload("nome_do_campo").FileName

 

Para os campos Texts:

upload("nome_do_campo").value.String

 

Esse ".value.String" não esta se aplicando para os campos com conteúdo numérico, alguém sabe como eu chamo o campo que possui em seu valor numero? :(

 

Já tentei:

upload("nome_do_campo").value.

upload("nome_do_campo").value.Int

upload("nome_do_campo").value.Integer

NÃO FUNCIONA

e assim

upload("nome_do_campo")

Dessa última forma não dá erro, mais tb não traz o conteúdo do campo

 

 

Por Favor me ajudem, só falta isso para eu deixar esse script miserento redondo, depois postarei ele completo para ajudar quem enfrenta o mesmo problema.

 

BJKS

LUAMM ;)

[Cable 0]

Oi luamm!

Se voce se interessar em testar um script novo, eu tenho um em casa que funciona perfeitamente! Nunca me deu problemas e eu sempre o uso.

 

Pode me mandar um email em viniciussa@terra.com.br que eu te mando em seguida. ;)

 

Boa sorte.

[Mário Monteiro 179]

o freeaspupload tb não me deu blema e pra resgatar valores bastaupload.form("nome_do_campo")tenta pegar assim com o seu script, quem sabe não funfa...

[dark0 0]

Desculpe pela minha ignorância "dark0", mais este script não faz upload e tão pouco responde as variáveis do form... Ele funciona pra você?

 

 

BJS

LUAMM  :huh:

<{POST_SNAPBACK}>

este script que eu postei (que nao postei inteiro), eu utilizo aqui para fazer upload e cadastrar dados digitados em campos text em um mesmo formulario, num banco de dados.

 

o codigo funciona 100% bem.

só que como eu falei.. nao postei inteiro.. porque imaginei que você tivesse feito alguma coisa semelhante..

 

no codigo ali.. eu postei somente onde eram suas duvidas.. ou seja.. capturar os dados digitados no formulario..

 

mas tudo bem entao..