Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Volpisp

Upload

Por , em ASP Clássico

Recommended Posts

Volpisp    0

Volpisp
Postado

Salve Salve,Fala galera, andei pesquisando aqui no forum sobre upload, encontrei varias soluções interessantes, porem preciso fazer um upload que com bando de dados, para depois listar os arquivos e disponibilizar para download dos usuarios.... alguem tem um codigo desses...abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

explique melhor!!você quer fazer o UPLOAD de um banco de dados e listar os dados dentro desse banco??falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

Volpisp    0

Volpisp
Postado

Opa, vou explicar melhor.Necessito fazer uploads de arquivos como XLS. DOC. ZIP etc....preciso salvar o caminho do upload (a pasta no servidor + o nome do arquivo) para quando o usuario acessar determinada pagina, o sistema traz o link dos arquivos que estão na pasta de upload, ai quando o usuario clica no link do arquivo ele faz o download.

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Olha eu tenho um esqueminha,,,voce tem que dar uma limpada no codigo alterar para seu uso,,,ele faz upload dos arquivos e informa o tamanho nome e faz um session então voce cria uma pagina para inserir no banco de dados.são tres paginas,,um formuma de variaveise uma para uploadvoce faz mais uma para o banco.....se te enteressa me diz que jogo aqui....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Volpisp    0

Volpisp
Postado

Olha eu tenho um esqueminha,,,voce tem que dar uma limpada no codigo alterar para seu uso,,,ele faz upload dos arquivos e informa o tamanho nome e faz um session então voce cria uma pagina para inserir no banco de dados.são tres paginas,,um formuma de variaveise uma para uploadvoce faz mais uma para o banco.....se te enteressa me diz que jogo aqui....

Opa claro que interessa,

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Nao repara a bagunça heheheheeheheprimeira do form....'----------------------------------------------------------<%cliente=Request.cookies("login")%><BODY bgColor="#00004A"><DIV align=center><CENTER><p style="border-style: inset; border-color: #C6D3CE ;width:59%"><font face="Monotype Corsiva"><marquee height=3% onMouseOut=this.start() onMouseOver=this.stop() scrollamount=3 scrolldelay=0 width=100% align="middle" bgcolor="#C6D3CE" style="font-family: Copperplate Gothic Light; color: #00004A; font-size: 11 px; font-weight: bold">Preencha todos os campos de envio, assim o site estará organizado para seu uso <%=cliente%>. Procure mandar os arquivos em formato zip para não demorar muito no upload.</marquee></font><TABLE style="border-style: groove; border-color: #006697; margin-left: 0px" height=14 cellSpacing=0 cellPadding=0 width=316 borderColorLight=#c6d6ce border=0><TR> <th width=316 bgColor=#5FA2C9 height=24 align="center"><font color="red"><%=Request.QueryString("erro")%></font> </th></TR> <TR> <FORM ACTION="outputFile.asp" METHOD="Post" ENCTYPE="multipart/form-data"> <TD width=316 bgColor=#5FA2C9 height=24 align="center"><font color="#00004A"><strong>Descrição</strong> </font><INPUT style="FONT-SIZE: xx-small; BACKGROUND-COLOR: #9cc6ce; TEXT-ALIGN: center" NAME="email" VALUE="COMENTÁRIO" size="28"> </TD></TR> <TR> <TD width=316 bgColor=#5FA2C9 height=1 align="center"> <font color="#00004A"><strong>Arquivo :   </strong></font><INPUT style="FONT-SIZE: xx-small; BACKGROUND-COLOR: #9cc6ce; TEXT-ALIGN: center" TYPE="file" size="13" NAME="blob"> </TD></TR> <TR> <TD width=316 bgColor=#5FA2C9 height=15 align="center"> <INPUT TYPE="submit" NAME="Enter" value="Mandar Arquivo"> </form> </TD></TR></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

segunda pagina variaveis...'------------------------------------------<%Sub BuildUploadRequest(RequestBin) 'Adquira o limite PosBeg = 1 PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13))) boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg) boundaryPos = InstrB(1,RequestBin,boundary) 'Adquira todos os dados dentro dos limites Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--"))) 'Variável de sócios de objetos é posta em um objeto de dicionário Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") 'Adquira um nome de objeto 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) ' Teste se objeto é de tipo de arquivo If PosFile<>0 AND (PosFile<PosBound) Then 'Get Filename, content-type and content of file 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))) 'Add content-type to dictionary object ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) UploadControl.Add "ContentType",ContentType 'Get content of object PosBeg = PosEnd+4 PosEnd = InstrB(PosBeg,RequestBin,boundary)-2 Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg) Else 'Get content of object 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 'Add content to dictionary object UploadControl.Add "Value" , Value 'Add dictionary object to main dictionary UploadRequest.Add name, UploadControl 'Loop to next object BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary) LoopEnd Sub'String to byte string conversionFunction getByteString(StringStr) For i = 1 to Len(StringStr) char = Mid(StringStr,i,1) getByteString = getByteString & chrB(AscB(char)) NextEnd Function'Byte string to string conversionFunction getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin) getString = getString & chr(AscB(MidB(StringBin,intCount,1))) NextEnd Function%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

terceira e ultima fora a de dados,,,,,os uploads serão feitos nesta mesma pasta.....'----------------------------------------------------------------------<%Response.Expires=0Response.Buffer = TRUEResponse.ClearbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Dim UploadRequestSet UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBinemail = UploadRequest.Item("email").Item("Value")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")'Create FileSytemObject Component Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")'Create and Write to a File pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"enviou_"&filename) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close %><!--#include file="upload.asp"--><% If email="COMENTÁRIO" ThenResponse.Redirect"enviar_arquivo.asp?erro=Acrescente um comentário"End IfIf filename="" Thenresponse.redirect "enviar_arquivo.asp?erro=Selecione o arquivo"else session("email") = email session("filename") = "enviou_"& filename session("bytecount")= byteCountResponse.Redirect "http://127.0.0.1/asp/bancos/insere_arquivo.asp"End If%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito