В Stimson (оригинальная работа)
в настоящее время есть множество классов загрузки без компонентов. Я посмотрел и обнаружил, что большинство из них довольно сложны. Самое главное, что нет классов, содержащих менее 10 строк. код:) Я потратил целую ночь на изучение ADODB.Stream и использовал 6 строк кода для реализации загрузки без компонентов:
strFileName = Request.QueryString("file1").
Установите objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objStream.LoadFromFile имя_строки
objStream.SaveToFile Server."123_onweb.gif",2
Как использовать:
Напишите приведенный выше код как upload.asp.
Введите в браузере:
GetFileName = Mid(strFile,InStrRev(strFile, "")+1)
Еще
ПолучитьИмяФайла = ""
Конец, если
Завершение функции
strFileName = Request.Form("file1")
Установите objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objStream.LoadFromFile имя_строки
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
%>
файл upload.htm
<form name="FORM" action="upload.asp" метод="post">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</форма>