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
%>
|