asp图片写入数据库

< % 
response.buffer = true   
dim  formsize,formdata,bncrlf,divider,datastart,dataend,mydata  
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)  

 sql = " SELECT [ad_img] FROM [pic] where id=１ "  
   set  rs = server.createobject( " ADODB.recordset " ) 
 rs.Open sql,conn, １ , 3  
 rs( " ad_img " ).AppendChunk(mydata) 
  rs.update 
 rs.close 
  set  rs = nothing  
conn.close 
set  conn = nothing  
 % >