Легко загружать изображения в базу данных
Я долго думал о написании программы, но, поскольку я не хочу писать обо мне, у меня просто было время сегодня, так что это легко узнать после написания этой небольшой программы. Я не скажу много, поэтому я начну здесь:
Давайте сделаем загрузку. Поля в базе данных автоматически пронумерованы идентификатором. Большой тип поля - OLE. Хе -хе, это простое поле.
Uppic.asp загрузить имя программы
<%
Dimrs
Dimformsize, FormData, Bncrlf, Divider, DataStart, Dataend, MyData
formize = request.totalbytes 'Получить размер, отправленный клиентом
formData = request.binaryRead (formize) 'преобразовать данные, отправленные клиентом в бинарное производство
bncrlf = chrb (13) и chrb (10)
Divider = левый (formData, clng (instrb (formdata, bncrlf))-1)
dataStart = instrb (formData, bncrlf & bncrlf) +4
dataend = instrb (dataStart+1, formdata, divider) -datastart
mydata = midb (formdata, datastart, dataend) «Выше приведено для получения двоичных данных изображения в общей сложности
%>
<!-#includefile = "conn.asp"->
<%
sql = "select*frompicorderbyiddesc"
Setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 3,2
Rs.addnew
rs ("big"). appendchunkmydata 'добавлен в базу данных
Rs.Update
setrs = ничего
setConn = ничего
%>
Далее следует отобразить изображение
Display.asp
<!-#includefile = "conn.asp"-> 'Все знают это, это программа, подключенная к базе данных.
<%
id = request ("id")
setrs = server.createObject ("adodb.recordset")
sql = "select*frompicwhereid =" & id
Rs.opensql, Conn, 1,1
Response.contenttype = "text/html" '' также может использовать формат отображения изображения.
'Response.contenttype = "Image/Gif" отображается как GIF
'Response.contenttype = "image/jpg" отображается в JPG
Response.binaryWriters («Большой») «Показать изображение
Rs.close
setrs = ничего
setConngraph = ничего
%>