Upload De Fotos Completo

Prof_Marins · Junho 22, 2006

---> consulta_imagem.asp

<%Response.Buffer = TRUE

' **************** ATENÇÃO: NÃO REMOVA OS CRÉDITOS ******************

' * Este sistema foi desenvolvido por: Luciano Rugero *

' * Se você tiver alguma dúvida envie um E-mail para yy200@ig.com.br *

' * Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing, *

' * autenticações, sistemas login e senhas, Loja Virtual e outros. *

' * yy200@ig.com.br ou yy200@ibest.com.br *

' *******************************************************************

%>

<html>

<head>

<title>Iimagens Enviadas</title>

</head>

O último

arquivo enviado foi:

Nome arquivo: <%=session("filename1")%>

<tr>

<a href="java script:top.close(self);" ('fechar','','../imagens/fechar2.jpg',1)">Fechar</a>

| <a href="default1.asp">Voltar</a>

</center>

</td>

</tr>

</table>

Boa

Sorte

******** ATENÇÃO: NÃO REMOVA OS CRÉDITOS

************

Este sistema foi desenvolvido por: Luciano Rugero

Se você tiver alguma dúvida envie um E-mail para <a href="mailto:yy200@ig.com.br">yy200@ig.com.br</a>

Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing,

autenticações, sistemas login e senhas, Loja Virtual e outros.

ou <a href="mailto:yy200@ibest.com.br">yy200@ibest.com.br</a>

****************************************************

Desenvolvido

Por: Luciano

</body>

</html>

-----> default.asp

<%response.buffer = "true"

' **************** ATENÇÃO: NÃO REMOVA OS CRÉDITOS ******************

' * Este sistema foi desenvolvido por: Luciano Rugero *

' * Se você tiver alguma dúvida envie um E-mail para yy200@ig.com.br *

' * Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing, *

' * autenticações, sistemas login e senhas, Loja Virtual e outros. *

' * yy200@ig.com.br ou yy200@ibest.com.br *

' *******************************************************************

%>

<!--

//Verifica se foi digitado algo no campo

function ValidaPagina(form)

{

if(CampoBranco(form.blob)==true)

{

alert("Escolha um Arquivo a ser enviado.");

form.blob.focus();

return false;

}

function CampoBranco(campo)

{

if (campo.value == "")

return true;

else

return false;

}

-->

</script>

</center>

</td>

</tr>

</table>

Boa

Sorte

******** ATENÇÃO: NÃO REMOVA OS CRÉDITOS

************

Este sistema foi desenvolvido por: Luciano Rugero

Se você tiver alguma dúvida envie um E-mail para <a href="mailto:yy200@ig.com.br">yy200@ig.com.br</a>

Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing,

autenticações, sistemas login e senhas, Loja Virtual e outros.

ou <a href="mailto:yy200@ibest.com.br">yy200@ibest.com.br</a>

****************************************************

Desenvolvido

Por: Luciano <a href="mailto:yy200@ig.com.br">yy200@ig.com.br</a>

</BODY>

</HTML>

-----> outputFile.asp

<%

Response.Expires=0

Response.Buffer = TRUE

Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("blob").Item("ContentType")

filepathname = UploadRequest.Item("blob").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

filename = Replace(filename,".","_"& rndit &".")

value = UploadRequest.Item("blob").Item("Value")

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

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

Set MyFile = ScriptObject.CreateTextFile("D:\Inetpub\wwwroot\upl\"&filename)

'Set MyFile = ScriptObject.CreateTextFile("D:\Inetpub\wwwroot\upl\"&filename)

'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"\"&filename)

For i = 1 to LenB(value)

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

'renomeia ao arquivo

Function rndit()

Dim RndTemp

Randomize

RndTemp = Rnd * 10000

RndTemp= Int(RndTemp)

rndit = RndTemp

End Function

PasswordTemp = rndit()

%>

<title>Upload</title>

<%

codigo = PasswordTemp

%>

<%session("codigo1")= codigo %>

<div align="center">Upload

Concluido</div>

</td>

</tr>

</table>

<div align="center">O

nome do arquivo:

<%= filename%>

<%session("filename1")= filename %>

Upload foi concluido com exito.

</div>

<tr>

<a href="java script:top.close(self);" ('fechar','','../imagens/fechar2.jpg',1)">Fechar</a>

| <a href="default1.asp">Enviar

outro Arq</a>

</center>

</td>

</tr>

</table>

</td>

</tr>

</table>

Boa

Sorte

******** ATENÇÃO: NÃO REMOVA OS CRÉDITOS

************

Este sistema foi desenvolvido por: Luciano Rugero

Se você tiver alguma dúvida envie um E-mail para <a href="mailto:yy200@ig.com.br">yy200@ig.com.br</a>

Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing,

autenticações, sistemas login e senhas, Loja Virtual e outros.

ou <a href="mailto:yy200@ibest.com.br">yy200@ibest.com.br</a>

****************************************************

Desenvolvido

Por: Luciano

-----> upload.asp

<%

Sub BuildUploadRequest(RequestBin)

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))

'Add filename to dictionary object

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

'Loop

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))

Function getString(StringBin)

getString =""

For intCount = 1 to LenB(StringBin)

getString = getString & chr(AscB(MidB(StringBin,intCount,1)))

%>

filipeflc00 · Junho 23, 2006

esse upload não esta funcionando..

ele procura uma pagina default1.asp que não existe

e não tem o local para enviar as fotos

so fica no nome de quem fez

se tiver poste a default1.asp

falws

Prof_Marins · Junho 23, 2006

Opa e aii colega...

Bom vamos lá!

Eu que postei e postei todas as páginas uma abaixo da outra:

crie os seguintes arquivos:

-consulta_imagem.asp

-default1.asp

-outputFile1.asp

-upload.asp

No arquivo "outputFile1.asp" mude:

Set MyFile = ScriptObject.CreateTextFile("D:\Inetpub\wwwroot\upl\"&filename)

Para o caminho no servidor IIS que ira postar a foto.

Qualquer coisa me manda PM

Falow

bareta · Junho 23, 2006

vixi.... huihuiahiahiah é um msistema de upload sem componentes normal....

Entrar

Upload De Fotos Completo

Pergunta

Prof_Marins

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

filipeflc00

Link para o comentário

Compartilhar em outros sites

Prof_Marins

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades