O título é um pouco confuso. Hoje o grupo que está falando sobre essa questão tem a resposta em anexo.
Pergunta: Quero alterar o nome de um arquivo ao carregá-lo e, em seguida, alterar o nome novamente durante o download.
Por exemplo: carreguei um "My Photo.jpg" e mudei-o para o nome do sistema "20040302001.jpg" após o upload e depois mudei de volta para "My Photo.jpg" durante o download.
O banco de dados é usado para salvar os nomes de arquivos novos e antigos (já feito)
Só que não consigo alterar o nome durante o download.
Código:
Copie o código do código da seguinte forma:
<%
função dl(f,n)
em caso de erro, retome a seguir
Definir S=CreateObject("Adodb.Stream")
Modo S.=3
S.Tipo=1
S.Aberto
S.LoadFromFile(f)
se Err.Number> 0 então
Response.Status= "404 "
outro
Response.ContentType = "aplicativo/fluxo de octetos"
Response.AddHeader "Disposição de conteúdo: ", "anexo; nome do arquivo = " & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
se Intervalo= " "então
Resposta.BinaryWrite(S.Read)
outro
S.posição=Clng(Split(Range, "- ")(0))
Resposta.BinaryWrite(S.Read)
Terminar se
terminar se
Resposta.Fim
função final
%>
Exemplo de uso de função:
Copie o código do código da seguinte forma:
chame dl (Server.MapPath ("download/20040302001.jpg"), "Minhas fotos.jpg")