图片入库

复制代码 代码如下:<>

<%

'取得客户端送出的数据字节大小

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*FROMtblImages"

setrs=Server.CreateObject("ADODB.Recordset")

rs.openstrSQL,conn,1,3

rs.addnew

rs("picData").AppendChunkmyData

rs.Update

counts=rs.recordCount+1

rs.close

conn.close

%>

读取图片

复制代码 代码如下:<>

<%

sID=Request.QueryString("id")

strSQL="SelectpicDataFROMtblImagesWhereid="&sID

Setrs=Server.CreateObject("ADODB.Recordset")

rs.OpenstrSQL,conn,1,1

Response.ContentType="image/*"

dataSize=rs(0).actualSize

Response.BinaryWriters(0).getChunk(dataSize)

rs.Close

conn.Close

%>