อัพโหลดภาพลงฐานข้อมูลได้อย่างง่ายดาย

ฉันอยากเขียนโปรแกรมด้วยตัวเองมานานแล้ว แต่เนื่องจาก Lai ไม่อยากเขียนเกี่ยวกับฉัน วันนี้ฉันจึงว่าง ฉันจึงเขียนโปรแกรมเล็กๆ นี้ขึ้นมาซึ่งเข้าใจง่ายโดยไม่ต้องกังวลใจ มาเริ่มกันเลย:

มาอัพโหลดกันดีกว่า เขตข้อมูลในฐานข้อมูลจะมีหมายเลขใหญ่โดยอัตโนมัติ และประเภทเขตข้อมูลคือ OLE ฮ่าๆ เพียงใช้ชื่อโปรแกรมอัปโหลด uppic.asp แบบธรรมดา <%
หรี่แสง
ขนาดฟอร์มสลัว, formdata, bncrlf, ตัวแบ่ง, 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 = "select * จาก pic เรียงลำดับตาม id desc"
ตั้ง rs = Server.CreateObject("ADODB.Recordset")
rs.เปิด sql,conn,3,2
rs.เพิ่มใหม่
rs("big").appendchunk mydata 'เพิ่มไปยังฐานข้อมูล rs.update
ตั้งค่า rs=nothing
ตั้งค่า conn=ไม่มีอะไร
-
ขั้นตอนต่อไปคือการแสดงรูปภาพ display.asp

<!--#include file="conn.asp"--> 'ใครๆ ก็รู้เรื่องนี้ มันเป็นโปรแกรมที่เชื่อมต่อกับฐานข้อมูล<%
id=คำขอ("id")
ตั้งค่า rs=server.createobject("ADODB.recordset")
sql = "เลือก * จากรูปภาพโดยที่ id = " & id
rs.open sql,conn,1,1
Response.ContentType = "text/html" 'คุณยังสามารถใช้รูปแบบของการแสดงรูปภาพ'Response.ContentType = "image/gif" เพื่อแสดงใน gif'Response.ContentType = "image/jpg" เพื่อแสดงเป็น jpg Response.BinaryWrite rs("ใหญ่ ") 'แสดงรูปภาพ rs.close
ตั้งค่า rs=nothing
ตั้งค่า connGraph=nothing

-