Mengunggah gambar dengan mudah ke database
Saya telah berpikir untuk menulis program sendiri untuk waktu yang lama, tetapi karena saya tidak ingin menulis tentang saya, saya kebetulan punya waktu hari ini, jadi mudah untuk mengetahui setelah menulis program kecil ini. Saya tidak akan banyak bicara, jadi saya akan mulai di sini:
Mari kita lakukan unggahan. Bidang dalam database secara otomatis diberi nomor oleh ID. Jenis bidang besar adalah OLE. Hehe, itu bidang sederhana.
Uppic.asp Unggah Nama Program
<%
Dimrs
Dimformsize, formdata, bncrlf, pembagi, datastart, dataend, mydata
formsize = request.totalbytes 'dapatkan ukuran yang dikirim oleh klien
formdata = request.binaryread (formsize) 'Konversi data yang dikirim oleh pelanggan menjadi produksi biner
bncrlf = chrb (13) & chrb (10)
Divider = 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) 'di atas adalah untuk mendapatkan data biner dari gambar secara total
%>
<!-#includeFile = "conn.asp"->
<%
sql = "SELECT*frompicordyByIddesc"
SetRs = server.CreateObject ("adodb.recordset")
rs.opensql, Conn, 3,2
rs.addnew
RS ("Besar"). AppendChunkMyData 'ditambahkan ke database
rs.update
setRs = tidak ada
setConn = tidak ada
%>
Berikutnya adalah menampilkan gambar
display.asp
<!-#includeFile = "conn.asp"-> 'Semua orang tahu ini, ini adalah program yang terhubung ke database.
<%
id = request ("id")
setRs = server.CreateObject ("adodb.recordset")
sql = "SELECT*from -whereid =" & id
rs.opensql, Conn, 1,1
Response.contentType = "Teks/html" 'juga dapat menggunakan format menampilkan gambar.
'Response.ContentType = "Image/Gif" ditampilkan sebagai gif
'Response.ContentType = "Image/JPG" ditampilkan di JPG
Response.binarywriters ("Big") 'Show Image
rs.close
setRs = tidak ada
setConngraph = tidak ada
%>