ASP中对大字段的存取AppendChunk和GetChunk

AppendChunk
formsize=request.totalbytes '取得客户端发过来的大小
formdata=request.binaryread(formsize)'把客户发过来的数据转成二进制作
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend) '上面总共是取得图片的二进制数据

<!--#INCLUDE FILE="conn.asp"-->sql="select * from pic order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
rs("big").appendchunk mydata '增加到数据库中
rs.updaters.close

GetChunk
<!--#INCLUDE FILE="conn.asp"-->set rec=server.createobject("ADODB.recordset") strsql="select img from images where id=" & trim(request("id")) rec.open strsql,connGraph,1,1Response.ContentType = "image/*" Response.BinaryWriterec("img").getChunk(7500000) rec.close