تطبيق آخر لدالة صورة تحميل ASP (كائن OLE)

<٪

db_path = "TESTIMG.MDB"

تعيين conn = server.createObject ("adodb.connection")

connstr = "driver = {Microsoft Access Driver (*.mdb)} ؛ dbq =" & server.mappath (db_path)

Conn.Open Connstr

٪>

<form action = "appload.asp" method = "post" enctype = "multipart/form-data">

<type type = "file" name = "imgurl">

<type type = "إرسال" name = ok value = "ok">

</form>

<!-#تضمين ملف = "conn.asp"->

<٪

النماذج = request.totalbytes

formData = request.binaryRead (النماذج)

BNCRLF = CHRB (13) و CHRB (10)

مقسم = leftb (formData ، clng (instrb (formData ، bncrlf))-1)

datastart = instr (formData ، Bncrlf & bncrlf) +4

DataEnd = instr (datastart+1 ، formdata ، مقسم) -datastart

myData = midb (formdata ، datastart ، dataEnd)

SET RS = Server.createObject ("ADODB.RecordSet")

Rs.Open "Select * from Imgurl" ، Conn ، 3،3

Rs.Addnew

RS ("IMG"). Appendchunk MyData

Rs.update

Rs.close

تعيين روبية = لا شيء

تعيين conn = لا شيء

استجابة.

٪>

<!-#تضمين ملف = "conn.asp"->

<٪

SET RS = Server.createObject ("ADODB.RecordSet")

SQL = "SELECT * من imgurl حيث id =" & trim (request ("id"))

Rs.Open SQL ، Conn ، 1،1

استجابة. contenttype = "Image/*"

استجابة.

Rs.close

تعيين روبية = لا شيء

تعيين conn = لا شيء

٪>