---> 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> </p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>O ú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> | <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><a href="default1.asp">Voltar</a></b></font> </center> </td> </tr> </table> <p> </p> <p> </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ÇÃO: NÃO REMOVA OS CRÉDITOS</font> ************<br> Este sistema foi desenvolvido por: Luciano Rugero <br> Se você tiver alguma dúvida envie um E-mail para <a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a> <br> Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing, <br> autenticações, sistemas login e senhas, Loja Virtual e outros. <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> <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ÇÃO: NÃO REMOVA OS CRÉDITOS</font> ************<br> Este sistema foi desenvolvido por: Luciano Rugero <br> Se você tiver alguma dúvida envie um E-mail para <a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a> <br> Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing, <br> autenticações, sistemas login e senhas, Loja Virtual e outros. <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> <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> | <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ÇÃO: NÃO REMOVA OS CRÉDITOS</font> ************<br> Este sistema foi desenvolvido por: Luciano Rugero <br> Se você tiver alguma dúvida envie um E-mail para <a href="mailto:yy200@ig.com.br"><font color="#FF0000">yy200@ig.com.br</font></a> <br> Obs.Desenvolvo Script´s sob encomenda, chat, mural, Mailing, <br> autenticações, sistemas login e senhas, Loja Virtual e outros. <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> <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 %>