UPLOAD - miniaturas e tam. normal ao mesmo tempo.

[Michael_c 0]

Fala galera!

 

Estou utilizando o upload sem componentes (excelente por sinal), funciona 100%.

 

Porém, quero exigir um pouco mais...

 

Tenho um sistema interno que apenas um usuário utiliza, a função do sistema é inserir no site imagens todos os dias.

 

As imagens se dividem em: THUMBS (para pré visualização) e GRANDES (para visualização na integra).

 

Hoje ao cadastrar essas imagens, primeiro aparece um formulário para o cadastro das grandes, após o envio deste formulário aparece o formúlário das pequenas.

 

Localmente as imagens ficam nos diretórios da seguinte forma:

 

GRANDES: C:/site/imagens/grandes/

THUMBS: C:/site/imagens/thumbs/

 

Ai vem o meu desafio, quero tornar mais prático o cadastro destas imagens, quero cadastrar as imagens grandes e os Thumbs de uma só vez, vocês acham que isso é possível?

 

Fiz alguns testes mas nenhum deu certo, tentei:

 

teste = Replace(meu_caminho,"grandes","thumbs")

 

O caminho até corrigiu mas não deu certo ao tentar fazer o upload.

 

 

Abaixo vai o meu código atual:

 

ASP

<!-- #include file = "upload_funcoes.asp" -->

<!--#INCLUDE file="../paginas/conecta.asp"-->

<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

 

' Recuperando os Dados Digitados ----------------------

pasta_link = UploadRequest.Item("pasta").Item("Value")

book       = UploadRequest.Item("book").Item("Value")

numero   = UploadRequest.Item("numero").Item("Value")

 

abre

for i = 1 to numero

tipo_foto       = UploadRequest.Item("imagem_"&i&"").Item("ContentType")

caminho_foto = UploadRequest.Item("imagem_"&i&"").Item("FileName")

nome_foto       = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,""))

foto             = UploadRequest.Item("imagem_"&i&"").Item("Value")

nome_foto       = "/"&nome_foto

 

if foto <> "" then

        pasta = Server.MapPath("../imagens/"&pasta_link)'pasta a ser salva a imagem

        arquivo = Len(nome_foto) - 1 'faz a contagem dos caracteres do arquivo sem a /

        nome_ok = right(nome_foto,arquivo) 'retira a barra do nome do arquivo usando a contagem

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

        Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

        For a = 1 to LenB(foto)

        MyFile.Write chr(AscB(MidB(foto,a,1)))

        Next

        MyFile.Close

        sql = "Insert into imagens (imagem,pasta,book) values ('"& nome_ok &"','"& pasta_link &"','"& book &"')"

        Conexao.Execute(sql)

end if

 

next

fecha

 

Response.redirect "insere_miniaturas.asp?pasta="&pasta_link&"&numero="&numero&"&book="&book

%>

 

Desculpem o tópico longo...

 

Desde já obrigado!

 

Michael C.

[Salgado 4]

Este campo "numero" no seu formulário indica quantos os arquivos serão Upados para o servidor? Se sim, é só você criar uma regra, o 1º é a imagem grande e a 2ª é a imagem pequena, é só dobrar os dados do form referentes as imagens.

[Michael_c 0]

Cara,

 

O campo número é a quantidade de arquivos sim.

 

Até entendi a lógica do que você disse, só não sei como dobrar os dados do Form...

 

Por que eu teria que substituir também o endereço do arquivo.

 

Como eu posso dobrar esses dados?

 

E como criar essa regra, substituindo os endereço de requisição do arquivo?

 

 

Desde já obrigado.

 

Michael C.

[Salgado 4]

Poste o seu form, por favor.

[Michael_c 0]

Abaixo segue o código do form:

 

<form name="form1" action="upload.asp" method="post" enctype="multipart/form-data">
<fieldset>
<legend>Imagens grandes: <br />
</legend>
<table width="400" border="0" cellpadding="1" cellspacing="0">
<%
Session.LCID = 1046 

Dim book, pasta, numero

book   = request.querystring("book")
pasta  = request.querystring("pasta")
numero = request.querystring("numero")

for i = 1 to numero
Response.write "<tr><td width='100'><label for='imagens'>Imagem "&i&":</label></td><td><input name='imagem_"&i&"' type='file' id='imagem_"&i&"' /></td></tr>" & chr(13) & chr(10) 
next
%>
</table>
</fieldset>
<input name="book" type="hidden" id="book" value="<%=book%>" />
<input name="pasta" type="hidden" id="pasta" value="<%=pasta%>" />
<input name="numero" type="hidden" id="numero" value="<%=numero%>" />
<br>
<input type="submit" name="Submit" value="Inserir imagens"/ class="botao">
</form>
</div>

Obrigado pela ajuda.

 

Michael C.