杨小曼和冷漠结婚视频:怎么用asp把一个地址的文件转换成二进制啊

上传代码
response.buffer=true
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)
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db1.mdb")
conn.open connstr
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM data where id is null",conn,1,3
rec.addnew
rec("data").appendchunk mydata '/rec("date") 为数据库里面用来存储数据的字段 类行设置为：OLE对象
rec.update
rec.close
set rec=nothing
set conn=nothing

'--------------------------------------------------------------------
打印图片代码

set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db1.mdb")
conn.open connstr
set rs=server.createobject("adodb.recordset")
strsql="select data from data where id=" & trim(request("id"))
rs.open strsql,conn,1,1
if rs.eof then
response.write"<script language='javascript'>"
response.write"alert('erro！');"
response.write"window.close();"
response.write"</script>"
else
response.contenttype = "image/*"
' 在输出到浏览器之前一定要指定response.contenttype = "image/*",以便正常显示图片
response.binarywrite rs("data").getchunk(7500000)
rs.close
set rs=nothing
set conn=nothing
end if