เขียน:
1: อ่านไฟล์อิมเมจ GIF ลงในหน่วยความจำ (ตัวแปร STRTEMP)
2: เขียนไปยังฐานข้อมูล
dim bintmp () เป็นไบต์
Dim Conn เป็น adodb.connection
Dim Rs เป็น adodb.recordset
สลัว strsql เป็นสตริง
ตั้งค่า conn = ใหม่ adodb.connection
ตั้งค่า rs = ใหม่ adodb.recordset
conn.open "db"
strsql = "เลือก * จาก tbimage"
Rs.Open strsql, Conn, 1, 3
OpenFile ("bayshore.jpg")
'โปรดใช้ฟังก์ชั่น OpenFile ด้วยตัวเอง
Rs.Addnew
Rs.Fields ("Image"). Appendchunk bintmp
Rs.update
อ่านและแสดง:
show.asp:
-
สลัว p
สลัว l
l = 8192
Dim Conn, RS, Strsql
ตั้งค่า conn = server.createObject ("adodb.connection"))
conn.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & server.mappath (".") & "/db2.mdb;
ตั้งค่า rs = server.createObject ("adodb.recordset"))
strsql = "เลือก * จาก tbimage"
Response.ContentType = "Image/GIF"
'สำคัญ!
Rs.Open Strsql, Conn, 1,1
Rs.Movelast
ทำ
p = rs ("รูปภาพ"). getchunk (l)
Response.binaryWrite P
ถ้า lenb (p) <l แล้วออกจากทำ
วง
-
ใน HTML:
<image src = show.asp>