如何使用asp在Access的数据库里建立ole类型的字段
请教1个问题,我使用asp写程序,数据库是Access,我想使用代码在数据库里新建立1个字段,数据类型是ole类型的,用来存放jpg格式的图片,该怎么写代码,请大家帮助我.
问题点数：0、回复次数：4Top
1 楼xxxyyyzzzhi（）回复于 2005-06-01 09:02:37 得分 0
顶Top
2 楼coolwindkaka（寒の风）回复于 2005-06-01 09:31:15 得分 0
搬个板凳来学习下，^_^Top
3 楼xxxyyyzzzhi（）回复于 2005-06-01 13:40:46 得分 0
↑Top
4 楼coolwindkaka（寒の风）回复于 2005-06-01 14:01:09 得分 0
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)
Dim Conn
Set Conn=Server.CreateObject("adodb.connection")
Conn.Open strConn
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM images order by id desc",Conn,1,3
rec.addnew
rec("images").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>
从数据库读图片：
<%
Dim Conn
Set Conn=Server.CreateObject("adodb.connection")
Conn.Open strConn
set rec=server.createobject("ADODB.recordset")
strsql="select images from images where id=" & trim(request("id"))
rec.open strsql,Conn,1,1
Response.ContentType = "img/*"
Response.BinaryWrite rec("images").getChunk(7500000)
%>
注：图片存数据库是以二进制存的，在读写图片时文本和图片只能分开保存。Top
