يكتب:
1: اقرأ ملف صورة GIF في الذاكرة (متغير strtemp).
2: اكتب إلى قاعدة البيانات.
Dim BintMP () كما بايت
Dim Conn مثل Adodb.connection
DIM RS مثل ADODB.RecordSet
قاتمة strsql كسلسلة
تعيين conn = new 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:
<٪
قاتمة ص
قاتمة ل
L = 8192
Dim Conn ، RS ، Strsql
تعيين conn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0 ؛ data source =" & server.mappath (".") & "/db2.mdb؛persist security info = false"
SET RS = Server.createObject ("ADODB.RecordSet")
strsql = "حدد * من tbimage"
استجابة. contenttype = "Image/GIF"
'مهم!
Rs.Open Strsql ، Conn ، 1،1
Rs.Movelast
يفعل
P = RS ("Image"). GetChunk (L)
استجابة
إذا كان Lenb (p) <l ثم الخروج
حلقة
٪>
في HTML:
<Image src = show.asp>