Ir para conteúdo

POWERED BY:

Arquivado

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

carol311

Upload e Download

Por , em ASP Clássico

Recommended Posts

carol311    0

carol311
Postado

Gente segue o código que eu tenho e não funciona.....se puderem me ajudar, sem interesse..hahaha!!!ValeuCarol<html><head><title>Upload de Arquivos Rede 2</title><style>a:link {color:000000; TEXT-DECORATION: none;}a:visited {color:000000; TEXT-DECORATION: none;}a:hover {color:1170A0; TEXT-DECORATION: none;}body { font-family: Tahoma, Verdana; font-size: 8pt; }body { scrollbar-face-color: #EFEFEF;}body { scrollbar-shadow-color: #EFEFEF;}body { scrollbar-highlight-color: #EFEFEF;}body { scrollbar-3dlight-color: #FFFFFF;}body { scrollbar-darkshadow-color: #000000;}body { scrollbar-track-color: #CCCCCC;}body { scrollbar-arrow-color: #000000;}body { OVERFLOW:scroll;OVERFLOW-X:hidden;}td { font-family: Tahoma, Verdana; font-size: 8pt; }.campo { font-family: Tahoma, Verdana; font-size: 8pt; color: #006699; background-color: #FDFDFD; border-width:1px; border-left: 1 solid #CCCCCC; border-top: 1 solid #CCCCCC; border-right: 1 solid #DDDDDD; border-bottom: 1 solid #DDDDDD; } .botao { background-color: #E8E8E8; color: black; border-color: #FFFFFF; border-width: 1px; font-family: Tahoma, Verdana; font-size: 8pt; }</style></head><body bgcolor="#CCCCCC"><div align="center"> <center><table width="400" cellspacing cellpadding style="border: 1 solid #000000"> <tr> <td width="100%" bgcolor="#FFFFFF"> </td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF">    <IMG SRC="images/extranet_ti_upload.gif" WIDTH="132" HEIGHT="38" BORDER="0"></td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF" height="100" align="center"><%Set fsoObject = CreateObject("Scripting.FileSystemObject") IF Not fsoObject.FolderExists("C:\rede2.com.br\arquivos") THEN fsoObject.CreateFolder("C:\rede2.com.br\arquivos") END IFSet fsoObject = NothingdestFolder = "C:\rede2.com.br\arquivos"Set FSO = server.CreateObject ("Scripting.FileSystemObject")Call UploadSet FSO = NothingSub Upload() If Request("command")="DoUpload" Then Dim Uploader Set Uploader = New classUploader Uploader.Upload() If not Uploader.uploaded Then Response.Write "Selecione um Arquivo" Else If Uploader.uploadedFile.FileName="" OR (Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "htm" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "tml" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "ttf" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "bmp" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "gif" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "jpg" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "peg" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "png" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "txt") THEN Response.Write "Selecione um Arquivo válido NÃO é permitido arquivo(.asp .php .cfm) etc..." Else IF Uploader.uploadedFile.Save(destFolder) Then Response.Write Uploader.uploadedFile.FileName & " enviado com sucesso.<br>" Response.Write FormatSize(Uploader.uploadedFile.FileSize) & " (" & Uploader.uploadedFile.FileSize & " bytes) gravado.<br>" ELSE Response.Write Uploader.uploadedFile.FileName & " erro no envio.<br>" END IF End If End If %><script>setTimeout("window.close();",1000*2);</script> <% Else%> <form enctype="multipart/form-data" name=formBuffer method=post action="popUpload.asp?command=DoUpload"> <input type=file name=file class=campo size="20"> <input type="submit" name="ok" value="Enviar" class="botao"> </form><% End IfEnd SubClass classUploader Public uploaded Public uploadedFile Public Default Sub Upload() Dim biData, sInputName Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos Dim nPosFile, nPosBound biData = Request.BinaryRead(Request.TotalBytes) nPosBegin = 1 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) If (nPosEnd-nPosBegin) <= 0 Then Exit Sub vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin) nDataBoundPos = InstrB(1, biData, vDataBounds) Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--")) nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition")) nPos = InstrB(nPos, biData, CByteString("name=")) nPosBegin = nPos + 6 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename=")) nPosBound = InstrB(nPosEnd, biData, vDataBounds) If nPosFile <> 0 And nPosFile < nPosBound Then Dim sFileName Set uploadedFile = New classUploadedFile nPosBegin = nPosFile + 10 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) uploadedFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\")) nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:")) nPosBegin = nPos + 14 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) nPosBegin = nPosEnd+4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 uploadedFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin) If uploadedFile.FileSize > 0 Then uploaded = true Else uploaded = false End If nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds) Loop End Sub Private Function CByteString(sString) Dim index For index = 1 to Len(sString) CByteString = CByteString & ChrB(AscB(Mid(sString,index,1))) Next End Function Private Function CWideString(bsString) Dim index CWideString ="" For index = 1 to LenB(bsString) CWideString = CWideString & Chr(AscB(MidB(bsString,index,1))) Next End FunctionEnd ClassClass classUploadedFile Public FileName, FileData Public Property Get FileSize() FileSize = LenB(FileData) End Property Public Function Save(path) Dim file Dim index If path = "" Or FileName = "" Then Save = false Exit Function End If path = FixPath(path, "\") If Not FSO.FolderExists(path) Then Save = false Exit Function End If on error resume next Set file = FSO.CreateTextFile(path & FileName, True) For index = 1 to LenB(FileData) file.Write Chr(AscB(MidB(FileData,index,1))) Next file.Close If err.Number<>0 Then Save = false Else Save = true End If End FunctionEnd ClassFunction FixPath(path, slash) If Right(path, 1) <> slash Then FixPath = path & slash Else FixPath = path End IfEnd FunctionFunction FormatSize (givenSize) If (givenSize < 1024) Then FormatSize = givenSize & " B" ElseIf (givenSize < 1024*1024) Then FormatSize = FormatNumber(givenSize/1024,2) & " KB" ElseIf (givenSize < 1024*1024*1024) Then FormatSize = FormatNumber(givenSize/(1024*1024),2) & " MB" Else FormatSize = FormatNumber(givenSize/(1024*1024*1024),2) & " GB" End IfEnd Function%></td> </tr> <tr> <td width="100%" background="images/extranet_r11_c1.gif"> <p align="center"><img border="0" src="images/extranet_r11_c1.gif" width="148" height="20"><img border="0" src="images/extranet_r11_c9.gif" width="252" height="20"></p> </td> </tr></table> </center></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

carol311    0

carol311
Postado

Eu achei esse tb.....mas eu quero algo mais simples......´pois eu só tenho que fazer o upload de um banco de dados (mdb). Eu ainda não consegui foi achar um código só para definior o objeto e mandar o arquivo(mdb) pro servidor.Se você ouder ajudar............ :rolleyes:/> ValeuCarol

Compartilhar este post

Link para o post
Compartilhar em outros sites

dw_man    0

dw_man
Postado

Carol, o que eu tenho aqui comigo é um Upload de Imagem, mas achou que o sistema é o mesmo !!!Qualquer coisa, post uma mensagem!Patrickdw_Man

Compartilhar este post

Link para o post
Compartilhar em outros sites

dw_man    0

dw_man
Postado

Carol, me envie seu e-mail por PVT ou para meu e-mail: patrickfla@ig.com.brObs: Quero saber o que eu ganho!!! :D/> :D/> !!!! PatrickDw_Man

Compartilhar este post

Link para o post
Compartilhar em outros sites

crazybaby    0

crazybaby
Postado

pô usa um componente de upload mesmo....para você adcionar infomaçoes no banco tbm , você vai precisar de usar scripting.dictionaryentaum o codigo fika maior...

Compartilhar este post

Link para o post
Compartilhar em outros sites

dw_man    0

dw_man
Postado

Carol, já te enviei o código!!!Ve meu e-mail!Estou saindo agora, se for possível me envie o que eu te pedi no e-mail!!Beijos!!PatrickDw_man

Compartilhar este post

Link para o post
Compartilhar em outros sites

crazybaby    0

crazybaby
Postado

Carol, já te enviei o código!!!Ve meu e-mail!Estou saindo agora, se for possível me envie o que eu te pedi no e-mail!!Beijos!!PatrickDw_man

pediu o telefone dela? ^_^/>

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