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