تحميل الصور بسهولة إلى قاعدة البيانات

لقد أردت أن أكتب برنامجًا بنفسي لفترة طويلة، ولكن بما أن لاي لم يرغب في الكتابة عني، فقد تصادف أنني أصبحت حرًا اليوم، لذلك كتبت هذا البرنامج الصغير الذي يسهل فهمه في لمحة واحدة لنبدأ:

لنقم بتحميل. يتم ترقيم الحقل الموجود في قاعدة البيانات تلقائيًا بشكل كبير، ونوع الحقل هو OLE، ما عليك سوى استخدام اسم برنامج التحميل uppic.asp البسيط <%.
باهتة
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes 'الحصول على الحجم الذي أرسله العميل formdata=request.binaryread(formsize)'تحويل البيانات المرسلة من قبل العميل إلى إنتاج ثنائي bncrlf=chrB(13) & chrB(10)
المقسم=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)'ما ورد أعلاه هو البيانات الثنائية للصورة.
"www.knowsky.com."
%>
<!--#include file="conn.asp"-->
<%
sql = "اختر * من ترتيب الموافقة المسبقة عن علم حسب معرف الوصف"
تعيين rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL، كون، 3،2
rs.addnew
rs("big").appendchunk mydata 'أضف إلى قاعدة البيانات rs.update
تعيين RS=لا شيء
تعيين كون = لا شيء
%>
والخطوة التالية هي عرض الصورة Display.asp

<!--#include file="conn.asp"--> 'الجميع يعرف هذا، وهو برنامج متصل بقاعدة البيانات<%
معرف = طلب ("معرف")
مجموعة rs=server.createobject("ADODB.recordset")
sql = "اختر * من الموافقة المسبقة عن علم حيث معرف = & معرف
rs.open SQL، كون، 1،1
Response.ContentType = "text/html" 'يمكنك أيضًا استخدام تنسيق عرض الصور'Response.ContentType = "image/gif" للعرض بتنسيق gif'Response.ContentType = "image/jpg" للعرض بتنسيق jpg Response.BinaryWrite rs("big") 'عرض الصور rs.Close
تعيين RS=لا شيء
تعيين connGraph = لا شيء

%>