上傳|資料|資料庫 第一重：單個圖片上傳到資料庫
這個問題已經不是什麼新鮮問題了，網上也有大把的教程，但大多數是授人以魚，而不授人以漁，經過辛苦的資料收集，思考，調試，整理，我基本上已經把這個問題從原理上搞清楚了，現在根據我自己的理解，在範常式序的基礎上，加以解釋，希望能對部分網友（比我還菜的:-)）有所協助。
請諸位大蝦能對其中的不正或不良這處予以指正。
程式中stream對象的用法上參考了“化境HTTP上傳程式 Version 2.0”在代碼，在此對稻香老農和梁無懼表示衷心的感謝和由衷的敬意。
我想循序漸進，今天先講一個簡單的，單個圖片檔案儲存到資料庫。
這個範例共包括三個ＡＳＰ檔案和一個資料庫（一個表），全部在同一目錄下。
１、tblImage 表結構（ACCESS 2000）
sn 自動編號 序號
content-type 文本 圖片類型
image OLE 對象 圖片資料
２、SimpleImageToData.asp：上傳表單及儲存圖片到資料庫的代碼部分，主要檔案。
<%@ Language=VBScript %>
<% option explicit %>
<%
'從一個完整路徑中析出檔案名稱
function getFileNamefromPath(strPath)
getFileNamefromPath = mid(strPath,instrrev(strPath,"\")+1)
end function
'定義資料庫連接字串
dim cnstr
cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./upload.mdb")
%>
<HTML>
<HEAD>
<title>單個映像儲存到資料庫</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<body>
<p><a href="SimpleImageToData.asp">上傳圖片</a>
<a href="ShowImageListFromData.asp">顯示圖片</a><hr></p>
<%
if request.ServerVariables("REQUEST_METHOD") = "POST" then
dim sCome, sGo, binData, strData
dim posB, posE, posSB, posSE
dim binCrlf
dim strPath, strFileName, strContentType
binCrlf = chrb(13)&chrb(10) '定義一個單位元組的斷行符號分行符號
set sCome = server.CreateObject("adodb.stream")
sCome.Type = 1 '指定返回資料類型 adTypeBinary=1,adTypeText=2
sCome.Mode = 3 '指定開啟模式 adModeRead=1,adModeWrite=2,adModeReadWrite=3
sCome.Open
sCome.Write request.BinaryRead(request.TotalBytes)
sCome.Position = 0
binData = sCome.Read
'response.BinaryWrite binData '調試用：顯示提交的所有資料
'response.Write "<hr>" '調試用
set sGo = server.CreateObject("adodb.stream")
sGo.Type = 1
sGo.Mode = 3
sGo.Open
posB = 1
posB = instrb(posB,binData,binCrlf)
posE = instrb(posB+1,binData,binCrlf)
'response.Write posB & " | " & posE & "<br>"
sCome.Position = posB+1
sCome.CopyTo sGo,posE-posB-2
sGo.Position = 0
sGo.Type = 2
sGo.Charset = "gb2312"
strData = sGo.ReadText
sGo.Close
'response.Write strData & "<hr>"
posSB = 1
posSB = instr(posSB,strData,"filename=""") + len("filename=""")
posSE = instr(posSB,strData,"""")
if posSE > posSB then
strPath = mid(strData,posSB,posSE-posSB)
'response.Write "本地路徑：" & strPath & "<br>"
'response.Write "檔案名稱：" & getFileNamefromPath(strPath) & "<br>"
posB = posE
posE = instrb(posB+1,binData,binCrlf)
'response.Write posB & " | " & posE & "<br>"
sGo.Type = 1
sGo.Mode = 3
sGo.Open
sCome.Position = posB
sCome.CopyTo sGo,posE-posB-1
sGo.Position = 0
sGo.Type = 2
sGo.Charset = "gb2312"
strData = sGo.ReadText
sGo.Close
strContentType = mid(strData,16) '此處因為固定的，所以省略尋找 :-)
'response.Write "圖片類型：" & strContentType & "<hr>"
posB = posE+2
posE = instrb(posB+1,binData,binCrlf)
'response.Write posB & " | " & posE & "<br>"
sGo.Type = 1
sGo.Mode = 3
sGo.Open
sCome.Position = posB+1
sCome.CopyTo sGo,posE-posB-2
sGo.Position = 0
strData = sGo.Read
sGo.Close
'response.Write lenb(strData) & "<br>"
dim cn, rs, sql
set cn = server.CreateObject("adodb.connection")
cn.Open cnstr
set rs = server.CreateObject("adodb.recordset")
sql = "select * from tblImage"
rs.Open sql,cn,1,3
rs.AddNew
rs.Fields("content-type").Value = strContentType
rs.Fie
