图片的入库与读取

【2006年04月04日 09:15:00】　【阅读：次】　【字体：大中小默认】　【背景： #换背景

】

图片入库

<%

取得客户端送出的数据字节大小
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

读取图片

<%
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
%>

(『印像空间』　【本文来源：『转载』】　【作者：未知】　【录入：留印】)

点击查看

已有条评论

关键字：

搜索条件：