圖片入庫
復(fù)制代碼 代碼如下:
!--#include virtual="/_inc/conn.inc"-->
%
'取得客戶端送出的數(shù)據(jù)字節(jié)大小
frmsize=Request.TotalBytes
'以二進(jìn)制方式讀取數(shù)據(jù)
frmData=Request.BinaryRead(frmsize)
'去掉實(shí)際數(shù)據(jù)前、后的邊界字符串行
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
'讀出圖象數(shù)據(jù)
myData=Midb(frmdata,dataStart,dataEnd)
'將圖象數(shù)據(jù)存入數(shù)據(jù)庫
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
%>
讀取圖片
復(fù)制代碼 代碼如下:
!--#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
%>
