การใช้งานฟังก์ชันอัพโหลด ASP อีกครั้ง (OLE OBJECT)

-

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 = "upload.asp" method = "post" enctype = "multipart/form-data">

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

<อินพุต type = "ส่ง" name = ok value = "ตกลง">

</form>

<!-#รวม file = "conn.asp"->

-

FormSize = request.totalbytes

formData = request.binaryRead (FormSize)

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)

ตั้งค่า rs = server.createObject ("adodb.recordset"))

rs.open "เลือก * จาก imgurl", Conn, 3,3

Rs.Addnew

RS ("IMG"). AppendChunk MyData

Rs.update

Rs.close

ตั้งค่า rs = ไม่มีอะไร

ตั้งค่า conn = ไม่มีอะไร

Response.redirect "index.asp"

-

<!-#รวม file = "conn.asp"->

-

ตั้งค่า rs = server.createObject ("adodb.recordset"))

sql = "เลือก * จาก imgurl โดยที่ id =" & trim (คำขอ ("id"))

Rs.Open SQL, Conn, 1,1

Response.contentType = "image/*"

Response.BinaryWrite RS ("IMG"). GetChunk (8000000)

Rs.close

ตั้งค่า rs = ไม่มีอะไร

ตั้งค่า conn = ไม่มีอะไร

-