Imagens

<% @ LANGUAGE="VBSCRIPT" %> Imagens <% 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 "" Then Set objFS = Nothing 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,"\")) value = UploadRequest.Item("blob").Item("Value") If Lcase(Right(filename,3)) = "jpg" Or Lcase(Right(filename,3)) = "gif" then Set objFS = Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists( Server.mappath(pasta_imagens & "\" & filename)) Then %> <% Else If LenB(value) > 200000 then %> <% Else %> Aguarde o envio da imagem...

<% Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile( Server.mappath(pasta_imagens & "\" & filename)) progress = 0 n = 0 For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) progress = Fix((i * 100) / LenB(value)) If n <> progress then n = progress %> <% End if Next MyFile.Close %> <% End If Set objFS = Nothing End if Else %> <% End If End If %> Selecionar uma imagem enviada anteriormente

<% lista_imagens pasta_imagens, "gif,jpg" Function lista_imagens( strFolder, tipo ) If Trim( Request.QueryString("folder") ) <> "" Then strFolder = Request.ServerVariables("APPL_PHYSICAL_PATH") & Request.QueryString("folder") End If Dim Folder, File Dim ObjFS, objRootFolder Set ObjFS = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = ObjFS.GetFolder(Server.MapPath(strFolder)) For Each File in objFolder.files tipo = Replace(tipo, ",", "") For i = 1 to len(tipo) step 3 If Right(File, 3) = Mid(tipo, i, 3) Then Response.Write " " & File.Name & "
" & vbcrlf End If Next Next Response.Write "" & vbcrlf Set objFolder = Nothing Set Folder = Nothing End Function %>