图象存入数据库中

---------图象存入数据库中----------------------------------
..............................
FormSize=Request.TotalBytes
  formData=Request.BinaryRead(FormSize)

function ImageUp1(formsize,formdata)
    bncrlf=chrb(13) & chrb(10)
 divider=leftb(formdata,instrb(formdata,bncrlf)-1)
 datastart=instrb(formdata,bncrlf&bncrlf)+4
 dataend=instrb(datastart+1,formdata,divider)-datastart
 imageup1=midb(formdata,datastart,dataend)
  end function
 Image=ImageUp1(FormSize,Formdata)
...............

rs.Open sql,objconn,1,3
rs.addnew

rs("picture").appendchunk Image
rs.Update

------------------------------------------------------------------
在百度中搜索
function search4()
{
   window.open("http://www1.baidu.com/baidu?tn=site5566&word="+websearch.key.value,"mspg9");
}