Faça o upload de fotos facilmente para o banco de dados
Estou pensando em escrever um programa sozinho há muito tempo, mas como não quero escrever sobre mim, eu tenho tempo hoje, por isso é fácil saber depois de escrever este pequeno programa. Eu não vou dizer muito, então vou começar aqui:
Vamos fazer um upload. Os campos no banco de dados são numerados automaticamente por ID. Big Field Type é Ole. Hehe, esse é o campo simples.
Nome do programa Uppic.asp upload
<%
Dimrs
DimformSize, formData, bncrlf, divisor, DataStart, DataEND, myData
formsize = request.TotalBytes 'Receba o tamanho enviado pelo cliente
formData = request.binaryRead (formsize) 'Converta os dados enviados pelo cliente em produção binária
Bncrlf = Chrb (13) e Chrb (10)
Divider = LeftB (FormData, Clng (Instrb (FormData, Bncrlf))-1)
DataStart = Instrb (FormData, Bncrlf & Bncrlf) +4
DataEND = Instrb (DataStart+1, FormData, divisor) -datastart
mydata = midb (formData, dataStart, DataEnd) 'O acima é obter os dados binários da imagem no total
%>
<!-#incluirfile = "Conn.asp"->
<%
SQL = "Selecione*FrompicorderByidDesc"
Setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 3,2
Rs.Addnew
rs ("big"). AppendChunkMyData 'adicionado ao banco de dados
rs.update
setrs = nada
setConn = nada
%>
O próximo é exibir a imagem
display.asp
<!-#incluirfile = "Conn.asp"-> 'Todo mundo sabe disso, é um programa conectado ao banco de dados.
<%
id = request ("id")
setrs = server.createObject ("adodb.recordset")
sql = "Selecione*de Picwhered =" & id
Rs.opensql, Conn, 1,1
Response.ContentType = "Text/html" 'também pode usar o formato de exibir a imagem.
'Response.ContentType = "Image/GIF" é exibido como GIF
'Response.ContentType = "Image/jpg" é exibido em JPG
Response.BinaryWriters ("Big") Show Image
rs.close
setrs = nada
setConngraph = nada
%>