Ir para conteúdo
Fórum Script Brasil
  • 0

Upload De Fotos Completo


Prof_Marins

Pergunta

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

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#D9ECFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#0000FF">

<p>&nbsp;</p>

<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>O &uacute;ltimo

arquivo enviado foi:<br>

Nome arquivo:</b><font color="#990000"> <b><%=session("filename1")%></b></font><b><br>

</b> <font color="#990000"><br>

<br>

</font></font> </p>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="CENTER">

<tr>

<td height="20" align="CENTER" bgcolor="#A6D2FF">

<center>

<a href="java script:top.close(self);" ('fechar','','../imagens/fechar2.jpg',1)"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Fechar</font></b></a>

&nbsp;| <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><a href="default1.asp">Voltar</a></b></font>

</center>

</td>

</tr>

</table>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#990000"><br>

</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000">Boa

Sorte</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>

******** <font color="#FF0000">ATEN&Ccedil;&Atilde;O: N&Atilde;O REMOVA OS CR&Eacute;DITOS</font>

************<br>

Este sistema foi desenvolvido por: Luciano Rugero &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

Se você tiver alguma d&uacute;vida envie um E-mail para <a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a>&nbsp;&nbsp;&nbsp;<br>

Obs.Desenvolvo Script&acute;s sob encomenda, chat, mural, Mailing,&nbsp;&nbsp;&nbsp;&nbsp;<br>

autentica&ccedil;&otilde;es, sistemas login e senhas, Loja Virtual e outros.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

<a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a>

ou <a href="mailto:yy200@ibest.com.br"><font color="#FF0000">yy200@ibest.com.br</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

****************************************************</font> <br>

<br>

</font> </p>

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0000FF">Desenvolvido

Por: Luciano</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

<a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a></font></p>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#990000">

</font></font>

</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 *

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

%>

<script Language="JavaScript">

<!--

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

<script language="vb script:top.close(self);">Fechar</a></font></b>

</center>

</td>

</tr>

</table>

<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000">Boa

Sorte</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>

******** <font color="#FF0000">ATEN&Ccedil;&Atilde;O: N&Atilde;O REMOVA OS CR&Eacute;DITOS</font>

************<br>

Este sistema foi desenvolvido por: Luciano Rugero &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

Se você tiver alguma d&uacute;vida envie um E-mail para <a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a>&nbsp;&nbsp;&nbsp;<br>

Obs.Desenvolvo Script&acute;s sob encomenda, chat, mural, Mailing,&nbsp;&nbsp;&nbsp;&nbsp;<br>

autentica&ccedil;&otilde;es, sistemas login e senhas, Loja Virtual e outros.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

<a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a>

ou <a href="mailto:yy200@ibest.com.br"><font color="#FF0000">yy200@ibest.com.br</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

****************************************************</font> </p>

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Desenvolvido

Por: Luciano <a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a></font></p>

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

Next

MyFile.Close

'renomeia ao arquivo

Function rndit()

Dim RndTemp

Randomize

RndTemp = Rnd * 10000

RndTemp= Int(RndTemp)

rndit = RndTemp

End Function

PasswordTemp = rndit()

%>

<title>Upload</title>

<body bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#0000FF">

<br>

<%

codigo = PasswordTemp

%>

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

<table width="75%" border="0" align="center" bgcolor="#999999">

<tr bgcolor="#CCCCCC">

<td bgcolor="#E5E5E5">

<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#990000" size="3">Upload

Concluido</font></b></div>

</td>

</tr>

</table>

<table width="100%" border="0" align="center" bgcolor="#CCCCCC">

<tr bgcolor="#FFFFFF">

<td height="163" bgcolor="#DFEFFF">

<div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">O

nome do arquivo: <br>

<font color="#990000"><%= filename%> </font><br>

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

<br>

Upload foi concluido com exito.<br>

<br>

</font></b> </div>

<table width="97%" border="0" cellspacing="0" cellpadding="0" align="CENTER">

<tr>

<td height="20" align="CENTER" bgcolor="#A6D2FF">

<center>

<a href="java script:top.close(self);" ('fechar','','../imagens/fechar2.jpg',1)"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Fechar</font></b></a>

&nbsp;| <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><a href="default1.asp">Enviar

outro Arq</a></b></font>

</center>

</td>

</tr>

</table>

</td>

</tr>

</table>

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

<br>

<br>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000">Boa

Sorte</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>

******** <font color="#FF0000">ATEN&Ccedil;&Atilde;O: N&Atilde;O REMOVA OS CR&Eacute;DITOS</font>

************<br>

Este sistema foi desenvolvido por: Luciano Rugero &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

Se você tiver alguma d&uacute;vida envie um E-mail para <a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a>&nbsp;&nbsp;&nbsp;<br>

Obs.Desenvolvo Script&acute;s sob encomenda, chat, mural, Mailing,&nbsp;&nbsp;&nbsp;&nbsp;<br>

autentica&ccedil;&otilde;es, sistemas login e senhas, Loja Virtual e outros.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

<a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a>

ou <a href="mailto:yy200@ibest.com.br"><font color="#FF0000">yy200@ibest.com.br</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>

****************************************************</font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><br>

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#0000FF">Desenvolvido

Por: Luciano</font>

<a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a></p>

</font>

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

Next

End Function

Function getString(StringBin)

getString =""

For intCount = 1 to LenB(StringBin)

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

Next

End Function

%>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...