Cargar fácilmente imágenes en la base de datos
He estado pensando en escribir un programa solo durante mucho tiempo, pero como no quiero escribir sobre mí, hoy tengo tiempo, por lo que es fácil saber después de escribir este pequeño programa. No diré mucho, así que comenzaré aquí:
Hagamos una carga. Los campos en la base de datos están numerados automáticamente por ID. El tipo de campo grande es OLE. Jeje, ese es el campo simple.
Uppic.asp Nombre del programa de carga
<%
dimrs
DimFormSize, FormData, Bncrlf, Divider, DataStart, Dataend, MyData
formsize = request.totalbytes 'obtenga el tamaño enviado por el cliente
formdata = request.binaryRead (formsize) 'Convierta los datos enviados por el cliente a producción binaria
bncrlf = CHRB (13) y CHRB (10)
divisor = LeftB (FormData, CLNG (InstrB (FormData, Bncrlf))-1)
DataStart = InstrB (FormData, Bncrlf y Bncrlf) +4
dataend = InstrB (DataStart+1, FormData, Divider) -DataStart
myData = MidB (FormData, DataStart, Dataend) 'Lo anterior es obtener los datos binarios de la imagen en total
%>
<!-#includeFile = "conn.asp"->
<%
SQL = "Seleccionar*FromPicOrderByIdDesc"
Setrs = server.createObject ("ADODB.Recordset")
Rs.Opensql, Conn, 3,2
Rs.addnew
RS ("Big"). AppendChunkMyData 'agregado a la base de datos
rs.
SETRS = nada
setConn = nada
%>
Lo siguiente es mostrar la imagen
display.asp
<!-#includeFile = "conn.asp"-> 'Todos lo saben, es un programa conectado a la base de datos.
<%
id = request ("ID")
setrs = server.createObject ("ADODB.Recordset")
sql = "select*fromPicWhereID =" & id
Rs.opensql, Conn, 1,1
Response.ContentType = "Text/Html" 'también puede usar el formato de mostrar la imagen.
'Response.ContentType = "Image/GIF" se muestra como GIF
'Response.ContentType = "Image/JPG" se muestra en JPG
Response.BinaryWriters ("Big") 'Mostrar imagen
rs.
SETRS = nada
setConngraph = nada
%>