圖片入庫
復制代碼代碼如下:
<!--#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,bnCrLf&bncrlf)+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
%>
