关于asp无组件实现文件上传的问题，在线等待

 1   
 2response.buffer=true   
 3formsize=request.totalbytes   
 4formdata=request.binaryread(formsize)   
 5bncrlf=chrB(13) & chrB(10)   
 6divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) //这行有错误？   
 7datastart=instrb(formdata,bncrlf & bncrlf)+4   
 8dataend=instrb(datastart+1,formdata,divider)-datastart   
 9mydata=midb(formdata,datastart,dataend)   
10set connGraph=server.CreateObject("ADODB.connection")   
11connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("/shanghui/public/images.mdb")&";uid=;PWD=;"   
12connGraph.Open   
13set rec=server.createobject("ADODB.recordset")   
14rec.Open "SELECT * FROM images where id is null",connGraph,1,3   
15rec.addnew   
16rec("img").appendchunk mydata   
17rec.update   
18rec.close   
19set rec=nothing   
20set connGraph=nothing