SQL Server 利用 Image 型別與 Dundas Upload 元件儲存圖檔

資料表設計

CREATE TABLE ImgData (
  ImgID INT IDENTITY PRIMARY KEY,
  ContentType VARCHAR(20),
  FileData IMAGE
);

前端表單

<FORM enctype="multipart/form-data" method="post" action="Insert.asp">
  <INPUT type="file" name="file" size="40">
  <INPUT type="submit" value="上傳">
</FORM>

後端 Insert.asp 關鍵程式碼

<%
Response.Buffer = True
ConnStr = "Provider=SQLOLEDB;Data Source=...;Initial Catalog=Pubs;User Id=sa;Password=..."
Set oUpload = Server.CreateObject("Dundas.Upload.2")
oUpload.SaveToMemory
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open "ImgData", ConnStr, 2, 3 ' adOpenDynamic, adLockOptimistic
oRs.AddNew
oRs("ContentType") = oUpload.Files("file").ContentType
oRs("FileData").AppendChunk oUpload.Files("file").FileData
oRs.Update
oRs.Close
%>

利用 AppendChunk 分塊寫入二進位資料，避免大檔案記憶體壓力。