Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

estranho.com

[Resolvido] UpLoad

Por , em ASP Clássico

Recommended Posts

estranho.com    0

estranho.com
Postado

estou tentandp fazer um UpLoad de varias imagens ao mesmo tempo...

eu já consegui de fazer de uma imagem só..

mas não estou sabendo onde incluir os outros campos...

 

Página de formulário

CODE

 

 

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

<input type="text" name="email" size="20">

<table>

<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">

<tr>

<td width="42">Nome:</td>

<td width="296"><input type="text" name="nome" size="20"></td>

</tr>

<tr>

<td>E-mail:</td>

<td> </td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto1" size="40"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto2" size="40"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto3" size="40"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto4" size="40"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto5" size="40"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto6" size="40"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto7" size="40"></td>

</tr>

<tr>

<td>Foto:</td>

<td><input type="file" name="foto8" size="40"></td>

</tr>

<tr>

<td colspan="2"><input type="submit" name="submit" value="Enviar"></td>

</tr>

</form>

</table>

 

Página de funções CODE

 

<%

' Upload Sem componentes ---------------------------------------

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

 

' Fim upload sem Componentes -----------------------------------------

%>

 

 

e página que faz o UpLoad CODE

 

<!-- #include file = "upload_funcoes.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 ----------------------

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

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

 

' Tipo de arquivo que esta sendo enviado

tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")

tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")

tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")

tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType")

tipo_foto6 = UploadRequest.Item("foto6").Item("ContentType")

tipo_foto7 = UploadRequest.Item("foto7").Item("ContentType")

tipo_foto8 = UploadRequest.Item("foto8").Item("ContentType")

 

' Caminho completo dos arquivos enviados

caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")

caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")

caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")

caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")

caminho_foto5 = UploadRequest.Item("foto5").Item("FileName")

caminho_foto6 = UploadRequest.Item("foto6").Item("FileName")

caminho_foto7 = UploadRequest.Item("foto7").Item("FileName")

caminho_foto8 = UploadRequest.Item("foto8").Item("FileName")

 

' Nome dos arquivos enviados

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

nome_foto6 = Right(caminho_foto6,Len(caminho_foto6)-InstrRev(caminho_foto6,"\"))

nome_foto7 = Right(caminho_foto7,Len(caminho_foto7)-InstrRev(caminho_foto7,"\"))

nome_foto8 = Right(caminho_foto8,Len(caminho_foto8)-InstrRev(caminho_foto8,"\"))

 

' Conteudo binario dos arquivos enviados

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

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

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

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

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

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

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

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

 

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("doctos/braspos/")

nome_foto1 = "/"&nome_foto1

nome_foto2 = "/"&nome_foto2

nome_foto3 = "/"&nome_foto3

nome_foto4 = "/"&nome_foto4

nome_foto5 = "/"&nome_foto5

nome_foto6 = "/"&nome_foto6

nome_foto7 = "/"&nome_foto7

nome_foto8 = "/"&nome_foto8

 

' pasta + nome dos arquivos

cfoto1 = "fotos/" + nome_foto1

cfoto2 = "fotos/" + nome_foto2

cfoto3 = "fotos/" + nome_foto3

cfoto4 = "fotos/" + nome_foto4

cfoto5 = "fotos/" + nome_foto5

cfoto6 = "fotos/" + nome_foto6

cfoto7 = "fotos/" + nome_foto7

cfoto8 = "fotos/" + nome_foto8

 

 

' Fazendo o Upload do arquivo selecionado

if foto1 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1 & nome_foto2 & nome_foto3 & nome_foto4 & nome_foto5 & nome_foto6 & nome_foto7 & nome_foto8)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto1,i,1)))

MyFile.Write chr(AscB(MidB(foto2,i,1)))

MyFile.Write chr(AscB(MidB(foto3,i,1)))

MyFile.Write chr(AscB(MidB(foto4,i,1)))

MyFile.Write chr(AscB(MidB(foto5,i,1)))

MyFile.Write chr(AscB(MidB(foto6,i,1)))

MyFile.Write chr(AscB(MidB(foto7,i,1)))

MyFile.Write chr(AscB(MidB(foto8,i,1)))

Next

MyFile.Close

end if

 

 

' Mostra Mensagem de Confirmação na Tela

Response.write "Dados Cadastrados com Sucesso!"

 

' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"

%>

 

 

 

Obs: Esse código eu consegui aqui no forum mesmo, só estou tentando adaptar..

Compartilhar este post

Link para o post
Compartilhar em outros sites

salmeida    0

salmeida
Postado

cara, eu n entendo muito de upload não, mas acho que dessa forma fica muio dificil, da uma procurada aqui no forum que você deve encontrar lalguma coisa sobre upload multiplos

 

 

abração

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao é assim que geralmente é feito

 

tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")

tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")

tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")

tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType")

tipo_foto6 = UploadRequest.Item("foto6").Item("ContentType")

tipo_foto7 = UploadRequest.Item("foto7").Item("ContentType")

tipo_foto8 = UploadRequest.Item("foto8").Item("ContentType")

 

 

tem que ser feito no loop que recupera

 

de onde voce tirou o codigo do upload?

Compartilhar este post

Link para o post
Compartilhar em outros sites

estranho.com    0

estranho.com
Postado

tem que ser feito no loop que recupera

 

de onde voce tirou o codigo do upload?

Eu peguei aqui no forum mesmo mas o original faz upload de só um arquivo,,,,

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

entao de uma pesquisada na busca do forum por exemplos

 

como disse é feito dentro de um loop

Compartilhar este post

Link para o post
Compartilhar em outros sites

Zé Luiz - Dainet    0

Zé Luiz - Dainet
Postado

Assim é mais facil

 

Exemplo de implementação: 

Formulário (upload.html)

<html>
<body bgcolor="#FFFFFF">
	 <form method="POST" enctype="multipart/form-data" action="upload.asp">
		  <input type="FILE" size="40" name="FILE1"><br>
		  <input type="FILE" size="40" name="FILE2"><br>
		  <input type="FILE" size="40" name="FILE3"><br>
	 <input type=submit value="Upload!">
	 </form>
</body>
</html> 

Script de Upload (upload.asp)

Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 150000
objUpload.UseVirtualDir = True
objUpload.UseUniqueNames = False

objUpload.Save "/diretorio"

Set objUpload = Nothing

Response.Write "Upload efetuado com sucesso"

Compartilhar este post

Link para o post
Compartilhar em outros sites

estranho.com    0

estranho.com
Postado

Assim é mais facil

 

Exemplo de implementação: 

Formulário (upload.html)

<html>
<body bgcolor="#FFFFFF">
	 <form method="POST" enctype="multipart/form-data" action="upload.asp">
		  <input type="FILE" size="40" name="FILE1"><br>
		  <input type="FILE" size="40" name="FILE2"><br>
		  <input type="FILE" size="40" name="FILE3"><br>
	 <input type=submit value="Upload!">
	 </form>
</body>
</html> 

Script de Upload (upload.asp)

Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 150000
objUpload.UseVirtualDir = True
objUpload.UseUniqueNames = False

objUpload.Save "/diretorio"

Set objUpload = Nothing

Response.Write "Upload efetuado com sucesso"

deu certo aqui mais você colocou a "/" do lado errado do "diretorio"....

 

vlw pela ajuda....

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito