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.update

rs.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,1

Response.ContentType = "image/*"

Response.BinaryWrite

rec("img").getChunk(7500000)

rec.close