upload + download

[Luan Messias 0]

Bom dia pessoal !

gostaria de pedir uma ajuda

estou procurando um sistema que após ser feito o upload do arquivo seja

criado um link em uma pagina para baixar este mesmo arquivo ja procurei em tudo que é

lugar mas não encontro ja encontrei sistemas de download mas os links

devem ser colocados manualmente ai não da =/

gostaria de saber se alguém conhece algum sistema ou sabe se é possível

 

desde já muito obrigado http://forum.imasters.com.br/public/style_emoticons/default/natal_happy.gif

[Ted k' 126]

mais ai é componente, você usa o componente para fazer o upload, depois coloca o link com o local onde você fez o upload mais o nome do arquivo com sua extensão.

[jrcardozo 4]

dependendo do componente,m o mesmo tem suporte a "forçar o download". se não me engano aspupload tem suporte

[hargon 64]

Você terá que armazenar o nome do arquivo "UPADO" em um banco de dados. Depois você cria uma página onde será listado os links e aí você pega o nome do arquivo e cria o link dinamicamente.

[xanburzum 169]

olha esta função que uso para fazer o download.

 

<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Buffer = True%>


<%
On Error Resume Next
Dim strPath
strPath = CStr(Request.QueryString("FileName"))
'-- do some basic error checking for the QueryString
If strPath = "" Then
  Response.Clear
  Response.Write("Nenhum arquivo especificado .")
  Response.End
ElseIf Len(strPath) > 1024 Then
  Response.Clear
  Response.Write("Cota excedida .")
  Response.End
Else
  Call DownloadFile(strPath)
End If
  
Private Sub DownloadFile(fichier)
  '--declara variaveis
  Dim strAbsFile
  Dim strFileExtension
  Dim objFSO
  Dim objFile
  Dim objStream
  '--  localização do arquivo
  strAbsFile = Server.MapPath(fichier)
  '-- cria FSO para checkar se arquivo existe e pega as propriedades
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  '-- verifique se o arquivo existe
  If objFSO.FileExists(strAbsFile) Then
	Set objFile = objFSO.GetFile(strAbsFile)
	  '--  defina os cabeçalhos apropriados
	  Response.Clear
	  '--  filename  será aquele que é mostrado
	  
	  Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
	  Response.AddHeader "Content-Length", objFile.Size
	  Response.ContentType = "application/octet-stream"

	  Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		'--  binary
		objStream.Type = 1
		Response.CharSet = "UTF-8"
	  '- O fluxo de carga para o arquivo
		objStream.LoadFromFile(strAbsFile)
		'-- enviar o stream no response
		Response.BinaryWrite(objStream.Read)
		objStream.Close
	  Set objStream = Nothing
	Set objFile = Nothing
  Else  'objFSO.FileExists(strAbsFile)
	Response.Clear
	Response.Write("O arquivo não existe.")
  End If
  Set objFSO = Nothing
End Sub
%>