!--#include virtual="/_inc/conn.inc"--> 
% 
'取得客戶端送出的數據字節大小 
frmsize=Request.TotalBytes  


'以二進制方式讀取數據 
frmData=Request.BinaryRead(frmsize) 

'去掉實際數據前、后的邊界字符串行 
bnCrLf=ChrB(13)ChrB(10) 
divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1) 
dataStart=InstrB(frmData,bnCrLfbncrlf)+4 
dataEnd=InstrB(datastart+1,frmData,divider)-dataStart 

'讀出圖象數據 
myData=Midb(frmdata,dataStart,dataEnd) 

'將圖象數據存入數據庫 
strSQL="Select * FROM tblImages" 
set rs=Server.CreateObject("ADODB.Recordset") 
rs.open strSQL,conn,1,3 
rs.addnew 
rs("picData").AppendChunk myData 
rs.Update 
counts=rs.recordCount+1 
rs.close 
conn.close 
%> 

!--#include virtual="/_inc/conn.inc"--> 
% 
sID=Request.QueryString("id") 

strSQL="Select picData FROM tblImages Where id="  sID 
Set rs=Server.CreateObject("ADODB.Recordset") 
rs.Open strSQL,conn,1,1 
Response.ContentType="image/*" 
dataSize=rs(0).actualSize 
Response.BinaryWrite rs(0).getChunk(dataSize) 
rs.Close 
conn.Close 
%>