#62000/12/24 23:19:05
可以用以下代码实现数据库图片操作。
图片字段类型使用OLE对象。
(1)加入图片
dim rs
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)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",conn,3,2
rs.addnew
rs("pic").appendchunk mydata
rs.update
(2)调用图片
set rs=server.createobject("ADODB.recordset")
sql="select * from pic where id=" & id
rs.open sql,conn,1,1
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("pic")
rs.close
set rs=nothing
set connGraph=nothing
编辑历史:[这消息被civilman编辑过(编辑时间2000-12-24 23:21:17)]