Question

这是一段asp将图片保存到数据库中的代码，小弟菜鸟，哪位大哥帮忙注释一下

imgsize=request.TotalBytes
imgdata=request.BinaryRead(imgsize)
Hcrlf=chrB(13)&chrB(10)
Divider=leftB(imgdata,clng(instrB(imgData,Hcrlf))-1)
dstart=instrB(imgData,chrB(13)&chrB(10)&chrB(13)&chrB(10))+4
Dend=instrB(dstart+1,imgdata,divider)-dstart
Mydata=MidB(imgdata,dstart,dend)
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Img where id is null"
rs.open sql,conn,1,3
on error resume next
rs.addnew
rs("Img").appendchunk mydata
rs.update
rs.close
set rs=nothing
if err=0 then
%>

Answer 1

'获取request数据字节大小
imgsize=request.TotalBytes
'使用request BinaryRead方法 获取指定字节大小数据
imgdata=request.BinaryRead(imgsize)
'创建一个换行符,这是文件结束的标志
Hcrlf=chrB(13)&chrB(10)

'在imgData里面 查找Hcrlf变量中的字符标记 并获取数据
Divider=leftB(imgdata,clng(instrB(imgData,Hcrlf))-1)

'数据流的起始标记是chrB(13)&chrB(10)&chrB(13)&chrB(10)
'查找此标记的起始位+4,得到图像文件的文件起始位置

dstart=instrB(imgData,chrB(13)&chrB(10)&chrB(13)&chrB(10))+4

'在数据流中
'从图像文件的起始位置开始搜索 divider这个数据部分 获取整个数据长度
'然后要相应减少start位置前的无效字符数 -dstart
Dend=instrB(dstart+1,imgdata,divider)-dstart

'根据上面的计算数据 准确截取文件数据 用mid方法
Mydata=MidB(imgdata,dstart,dend)

'下面就是写入数据库的代码 不解释了
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Img where id is null"
rs.open sql,conn,1,3
on error resume next
rs.addnew
rs("Img").appendchunk mydata
rs.update
rs.close
set rs=nothing
if err=0 then
%>

整个代码的重点是你要了解
文件流是以 chrB(13)&chrB(10)&chrB(13)&chrB(10) 开头
以chrB(13)&chrB(10)结尾
查找这些相应的标识就可以了