逐步讲解向Access数据库上传且显示图片

核心提示： 以下为引用的内容：＜%response.buffer=trueformsize=request.totalbytesformdata=request.binaryread(formsize)bncrlf=chrB(13) & chrB(10)divider=leftB(formdata,clng

以下为引用的内容：
　　＜%
　　response.buffer=true
　　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)
　　set connGraph=server.CreateObject("ADODB.connection")
　　connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=" & server.MapPath("images.mdb")
　　set rec=server.createobject("ADODB.recordset")
　　rec.Open "SELECT * FROM images where id is null",connGraph,1,3
　　rec.addnew
　　rec("img").appendchunk mydata
　　rec.update
　　rec.closes
　　set rec=nothing
　　set connGraph=nothing %＞

这段程序的功能是将上传图片的数据保存到数据库里。下面分句说明各语句的作用。

以下为引用的内容：
　　response.buffer=true
　　formsize=request.totalbytes
　　formdata=request.binaryread(formsize)

打开缓存功能，获取客户端总的发送数据量，获取上传过来的数据。

以下为引用的内容：
　　bncrlf=chrB(13) & chrB(10)
　　divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)

这两个语句的意思是设一个二进制回车符及得到一个divider分隔符，目的是为了确定图片的位置。以下为引用的内容：
　　datastart=instrb(formdata,bncrlf & bncrlf)+4
　　dataend=instrb(datastart+1,formdata,divider)-datastart
　　mydata=midb(formdata,datastart,dataend)

以上三个语句是确定图片数据的起始位置、结束位置及实际图片的数据。