如何在ACCESS数据库放入图片？

我要用ASP连接他。... 我要用ASP连接他。展开

 我来答

2个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

百度网友a0f8bd732
2006-05-31 · TA获得超过1276个赞

知道小有建树答主

回答量：1008

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

首先建一个数据库,假设为(img.mdb).在其中建一表(pic),表中有两个字段(id,img),id数据类型为"自动编号",img的类型为"OLE对象". 
下面用三个文件用来实现图片功能,conn.asp是定义数据库连接函数的,up.asp用来上传图片,show.asp用来从数据库读取图片. 

-------------conn.asp-------------- 
<% 
dim conn,rs 

function getdata(sql) 
dbpath="img.mdb" 
set conn=server.CreateObject("ADODB.connection") 
connstr="provider=Microsoft.jet.oledb.4.0;data source="&server.MapPath(dbpath) 
conn.open connstr 
set rs=server.CreateObject("ADODB.recordset") 
rs.open sql,conn,3,2 
end function 

sub rsclose() 
rs.close() 
set rs=nothing 
conn.close() 
set conn=nothing 
end sub 
%> 

---------------up.asp--------------- 
<html> 
<body> 
<form action="up.asp" method="post" enctype="multipart/form-data" > 
<input type="file" size="12" name="imgurl" id="imgurl"> 
<input type="submit" value="upload"> 
</form> 
</body> 
</html> 
<% 
if (request.totalbytes)>0 then '如果有数据提交,则进行下面的处理 
%> 
<!--#include file="conn.asp"--> 
<% 
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 * from pic" 
getdata(sql) 
rs.addnew 
rs("img").AppendChunk myData 
rs.update 
rsclose() 
response.clear 
response.write "success!" 
end if 
%> 

-------------show.asp-------------- 
<!--#include file="conn.asp"--> 
<% 
id=trim(request("id")) 
sql="select * from pic where id="&id 
getdata(sql) 
Response.ContentType="image/*" 
Response.BinaryWrite rs("img").getChunk(8000000) 
rsclose() 
%> 

图片上传后就可以通过show.asp?id=*来读取了,你也可以直接将图片用<img>标签插入其他页面中,如<img src="show.asp?id=1" />


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起