Upload sem componentes

[CaBo GeL 0]

Salve-Salve pessoal...Alguem poderia me arranjar um UPload sem componentes que funcione em servidores gratuitos?abracos a todos!

[Reginaldo 0]

nossa.. existe servidor de asp gratuito ? hehehbom amigo.. da pra fazr com FSO.. em primeiro lugar o form tem q ser do tipo mult/part ou algo assim... mas nesse tipo de form é f*** pega os dados de campos.. tem q pedir de outra forma.. assim:byteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBinai você pede assim:info = UploadRequest.Item("info").Item("Value")pode adaptar essa rotina pra você :tipo_arq = UploadRequest.Item("arquivo").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_arq = UploadRequest.Item("arquivo").Item("FileName")' Nome dos arquivos enviadosnome_arq = Right(caminho_arq,Len(caminho_arq)-InstrRev(caminho_arq,"\"))nome_arq = cod&nome_arq' Conteudo binario dos arquivos enviadosarquivo = UploadRequest.Item("arquivo").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("../imagens/")iNome_arq = "/"&nome_arq'iNome_arq = cd+iNome_arq' analiza e sobeif arquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & iNome_arq) For i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.Closeend ifessa é a adaptação de um amigo meu então você vai precisa faze um includ no começo do código com essas funções:<%' Upload Sem componentes ---------------------------------------Sub BuildUploadRequest(RequestBin)on error resume nextPosBeg = 1PosEnd = 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)LoopEnd SubFunction getByteString(StringStr)For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char))NextEnd FunctionFunction getString(StringBin)getString = ""For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))NextEnd Function' Fim upload sem Componentes -----------------------------------------%>qqer coisa posta ai..um abraço

[Mário Monteiro 179]

tem uma classe muito boa que faz isso tambem

 

http://www.freeaspupload.net