อัปโหลดรูปภาพไปยังฐานข้อมูลได้อย่างง่ายดาย
ฉันกำลังคิดเกี่ยวกับการเขียนโปรแกรมด้วยตัวเองเป็นเวลานาน แต่เนื่องจากฉันไม่ต้องการเขียนเกี่ยวกับฉันฉันเพิ่งมีเวลาในวันนี้ดังนั้นจึงเป็นเรื่องง่ายที่จะรู้หลังจากเขียนโปรแกรมเล็ก ๆ นี้ ฉันจะไม่พูดอะไรมากดังนั้นฉันจะเริ่มต้นที่นี่:
มาอัปโหลดกันเถอะ ฟิลด์ในฐานข้อมูลจะถูกกำหนดหมายเลขโดยอัตโนมัติโดย ID ประเภทสนามใหญ่คือ ole ฮิฮินั่นคือสนามที่เรียบง่าย
uppic.asp ชื่อโปรแกรมอัปโหลด
-
หรี่แสง
Dimformsize, FormData, Bncrlf, Divider, DataStart, DataEnd, MyData
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) 'ข้างต้นคือการรับข้อมูลไบนารีของภาพทั้งหมด
-
<!-#includefile = "conn.asp"->
-
sql = "เลือก*frompicorderbyiddesc"
setRs = server.createObject ("adodb.recordset"))
Rs.opensql, Conn, 3,2
Rs.Addnew
RS ("big"). AppendChunkMyData 'เพิ่มลงในฐานข้อมูล
Rs.update
setrs = ไม่มีอะไร
setConn = ไม่มีอะไร
-
ถัดไปคือการแสดงภาพ
display.asp
<!-#includefile = "conn.asp"-> 'ทุกคนรู้สิ่งนี้เป็นโปรแกรมที่เชื่อมต่อกับฐานข้อมูล
-
id = คำขอ ("id")
setRs = server.createObject ("adodb.recordset"))
sql = "เลือก*frompicwhereid =" & id
Rs.opensql, Conn, 1,1
Response.contentType = "text/html" 'ยังสามารถใช้รูปแบบของการแสดงภาพ
'response.contentType = "image/gif" จะแสดงเป็น gif
'response.contentType = "image/jpg" จะแสดงใน jpg
Response.BinaryWriters ("big") 'แสดงภาพ
Rs.close
setrs = ไม่มีอะไร
setConnGraph = ไม่มีอะไร
-