'============================================== = =================
'
'Используем ASP для реализации загрузки/выгрузки файлов без компонентов
'
'Введение в функцию
'Сохраните данные загруженного файла в базе данных, которая может обрабатывать несколько загруженных файлов в форме
' Применимо к различным базам данных, используйте метод ADO для подключения к базе данных
' В этом примере используется база данных ACCESS: zj.mdb
'Table:tb_img(id int(столбец с автоинкрементом),path text(255) Каталог для сохранения загруженных файлов
' ,fname text(250) сохраняет имя загруженного файла, type test(250) сохраняет тип загруженного файла
', объект img ole сохраняет содержимое загруженного файла
'
'
'============================================== = =================
'============================================== = =================
'
'HTML-страница для загрузки файлов: zj_up.htm
'
'============================================== = =================
<html>
<голова>
<title>Загрузите файл и сохраните его в базе данных</title>
</голова>
<тело>
<form name="form1" enctype="multipart/form-data" Method="post" action="zj_up.asp">
<р>
<input type="file" name="file">
<input type="submit" name="Submit" value="Upload">
</p>
</форма>
</тело>
</html>
'============================================== = =================
'
'Загрузите файл и сохраните его на странице ASP базы данных: zj_up.asp
'
'============================================== = =================
<%
Ответ.Истекает=0
Функция f_Bin2Str(ByVal sBin)
Дим II, iLen, iChr, iRe
iRe = ""
Если Не IsNull(sBin) Тогда
iLen = LenB(sBin)
Для iI = 1 Для iLen
iChr = MidB(sBin, iI, 1)
Если AscB(iChr) > 127 Тогда
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
я = я + 1
Еще
iRe = iRe & Chr(AscB(iChr))
Конец, если
Следующий
Конец, если
f_Bin2Str = iRe
Конечная функция
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Постоянная информация о безопасности=False" & _
";Источник данных=" & server.mappath("zj.mdb")
iSql="tb_img"
set iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql, iConcStr, 1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) и ChrB(10)
iCrlf2 = iCrlf1 и iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Пока iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)
iPos3 = InStr(iStr, "; имя_файла=""") + 12
Если iPos3 > 12 Тогда
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & «Тип контента:») - 2
iFn = Влево(iStr, iPos3)
Если iFn <> "" Тогда
iRe.AddNew
ire("путь") = влево(iFn,instrrev(iFn,""))
iRe("fname") = Mid(iFn,instrrev(iFn,"")+1)
iRe("тип") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Обновление
Конец, если
Конец, если
sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Венд
iRe.закрыть
установить iRe=Ничего
%>
'============================================ = ===================
'
' Страница ASP для загрузки данных: zj_down.asp
'
'============================================== = =================
<%
Response.Buffer=истина
Response.Clear
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Источник данных=" & server.mappath("zj.mdb")
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql, iconcstr, 1,1
Response.ContentType=ire("тип")
Response.BinaryWrite iRe("img")
iRe.close
установить iRe=Ничего
%>