Название немного сбивает с толку. Сегодня группа обсуждает этот вопрос. В приложении есть ответ. Друзья, которым он нужен, могут обратиться к нему.
Вопрос: Я хочу изменить имя файла при его загрузке, а затем изменить имя обратно при загрузке.
Например: я загрузил «My Photo.jpg» и изменил его на системное имя «20040302001.jpg» после загрузки, а затем изменил его обратно на «My Photo.jpg» при загрузке.
База данных используется для сохранения старых и новых имен файлов (уже сделано)
Просто у меня не получается сменить имя при загрузке.
Код:
Скопируйте код кода следующим образом:
<%
функция dl(f,n)
при ошибке продолжить дальше
Установить S=CreateObject("Adodb.Stream")
S.Режим=3
S.Тип=1
С.Открыть
S.LoadFromFile(f)
если Номер ошибки> 0, то
Response.Status="404"
еще
Response.ContentType= "приложение/поток октетов"
Response.AddHeader "Content-Disposition: ", "attachment; filename=" & n
Диапазон = Mid (Request.ServerVariables («HTTP_RANGE»), 7)
если Диапазон = " ", то
Response.BinaryWrite(S.Read)
еще
S.position=Clng(Split(Диапазон, "-")(0))
Response.BinaryWrite(S.Read)
Конец, если
конец, если
Ответ.Конец
конечная функция
%>
Пример использования функции:
Скопируйте код кода следующим образом:
вызовите dl(Server.MapPath("download/20040302001.jpg"), "My Photos.jpg")