Laden Sie Bilder einfach in die Datenbank hoch hoch
Ich habe schon lange darüber nachgedacht, ein Programm selbst zu schreiben, aber da ich nicht über mich schreiben möchte, habe ich heute nur Zeit, also ist es leicht zu wissen, nachdem ich dieses kleine Programm geschrieben habe. Ich werde nicht viel sagen, also fange ich hier an:
Lassen Sie uns einen Upload machen. Die Felder in der Datenbank werden automatisch mit der ID nummeriert. Großer Feldtyp ist OLE. Hehe, das ist das einfache Feld.
Uppic.asp Upload -Programmname
<%
dimrs
dimformsize, formdata, bncrlf, teiler, dataStart, dataend, mydata
Formsize = Request.TotalBytes 'erhalten Sie die vom Client gesendete Größe
FormData = Request.BinaryRead (Formsize) 'Umwandeln Sie die vom Kunden gesendeten Daten in eine binäre Produktion
bncrlf = chrb (13) & chrb (10)
Divider = link (FormData, CLNG (Instrb (FormData, Bncrlf))-1)
DataStart = Instrb (FormData, Bncrlf & Bncrlf) +4
Dataend = Instrb (DataStart+1, FormData, Teiler) -Datastart
mydata = Midb (FormData, DataStart, Dataend) 'Das oben genannte soll die binären Daten des Bildes insgesamt erhalten
%>
<!-#includeFile = "conn.asp"->
<%
SQL = "Ausgewählte*FrompicorderByIdDesc"
Setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 3,2
rs.addnew
RS ("Big"). appendChunkMydata 'zur Datenbank hinzugefügt
Rs.Update
setrs = nichts
setConn = nichts
%>
Als nächstes wird das Bild angezeigt
display.asp
<!-#includeFile = "conn.asp"-> 'Jeder weiß das, es ist ein Programm, das mit der Datenbank verbunden ist.
<%
id = request ("id")
setrs = server.createObject ("adodb.recordset")
SQL = "SELECT*FrompicWhereId =" & id
Rs.opensql, Conn, 1,1
Response.contentType = "text/html" 'kann auch das Format zum Anzeigen des Bildes verwenden.
'Response.contentType = "Image/GIF" wird als GIF angezeigt
'Response.contentType = "Image/jpg" wird in JPG angezeigt
Response.binarywriters ("big") 'Bild zeigen
rs.close
setrs = nichts
setConngraph = nichts
%>