無組件上傳圖片到資料庫源碼

******************** One.asp頁面表單的Enctype設定．

<form name="form1" method="post" action="one.asp" enctype="multipart/form-data"></form>

 

 

 

******************** Tow.asp頁面擷取二進位圖象資訊並上傳到資料庫．

<% postedData = Request.BinaryRead(Request.TotalBytes)
    crlf=ChrB(13) & ChrB(10)
    tmpData=LeftB(postedData,CLng(InStrB(postedData,crlf))-1)
    dataStart=InStrB(postedData,crlf & crlf)+4
    dataEnd=InStrB(dataStart+1,postedData,tmpData)-dataStart
    starData=MidB(postedData,dataStart,dataEnd)
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From Picture "
Rs.Open Sql,cn,3,3
Rs.AddNew
Rs("P_Picture").AppendChunk starData
Rs.UpDate
Rs.Close
Set Rs=Nothing%>

 

 

******************** Three.asp頁面從資料庫讀取圖片資訊並顯示．

<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="SELECT * FROM Picture where P_PictureId="&Request("id")
Rs.Open Sql,cn,1,1
%>
<%Response.contenttype="image/gif"%>
<%Response.BinaryWrite Rs("P_Picture")%>
<%Rs.Close
Set Rs=nothing
cn.Close
Set cn=nothing
%>