图片的入库与读取的方法

<!--#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

　　%>