Я давно хотел написать программу сам, но так как Лай не хотел обо мне писать, то сегодня я был свободен, поэтому написал эту небольшую программу, которую легко понять с первого взгляда. , начнем:
Давайте сделаем загрузку. Полю в базе данных автоматически присваивается большой номер, а тип поля — OLE. Ха-ха, просто используйте простое имя программы загрузки uppic.asp <%.
димры
размер формы dim, formdata, bncrlf, разделитель, начало данных, конец данных, mydata
formize=request.totalbytes 'Получите размер, отправленный клиентом formdata=request.binaryread(formsize)'Преобразуйте данные, отправленные клиентом, в двоичный формат bncrlf=chrB(13) & chrB(10)
делитель = leftB (formdata, clng (instrb (formdata, bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)'Выше приведены двоичные данные изображения.
'www.knowsky.com
%>
<!--#include file="conn.asp"-->
<%
sql="выбрать * из порядка изображений по идентификатору"
Установите rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
rs("big").appendchunk mydata 'Добавить в базу данных rs.update
установить rs=ничего
установить соединение = ничего
%>
Следующим шагом будет отображение изображения display.asp.
<!--#include file="conn.asp"--> 'Это все знают, это программа, подключенная к базе данных<%
идентификатор = запрос («идентификатор»)
set rs=server.createobject("ADODB.recordset")
sql="выбрать * из картинки, где id=" и id
rs.open sql,conn,1,1
Response.ContentType = "text/html" 'Вы также можете использовать формат отображения изображений'Response.ContentType = "image/gif" для отображения в формате gif'Response.ContentType = "image/jpg" для отображения в формате jpg Response.BinaryWrite rs("big") 'Отображение изображений rs.close
установить rs=ничего
установить connGraph=ничего
%>