标题:显示access库里的图片
只看楼主
boboaihuahua
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2004-12-2
 问题点数:0 回复次数:11 
显示access库里的图片

请问高手大哥们,怎么样把access库里图片全部显示在一个页面里呀?

教教我吧!

搜索更多相关主题的帖子: 库里 access 
2004-12-02 09:37
sunny
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2004-10-18
得分:0 

不好意思我回答不了你的问题,但我想请教你一个问题可以不?

怎么样将图片放到数据库中去呢?

2004-12-06 17:38
study
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2004-11-2
得分:0 
我也是得看你们的。

2004-12-07 15:05
study
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2004-11-2
得分:0 
谁知道快说重赏

2004-12-07 15:12
迷失星际
Rank: 1
等 级:新手上路
帖 子:358
专家分:0
注 册:2004-7-9
得分:0 
用ole类型可以放文件

2004-12-08 13:35
jiangabc
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-1-9
得分:0 
嘿嘿,怎么没人回答呀
2005-01-09 16:16
regedit
Rank: 5Rank: 5
等 级:贵宾
威 望:19
帖 子:950
专家分:0
注 册:2004-6-8
得分:0 

轻松实现将上传图片到数据库


很久就想自己写一写程序了,不过由于赖就不想写我,今天刚好有空,所以写了这个小小的程序很容易一看就知道的,不多说了就此开始:

  我们做一个上传的。数据据库的字段就id自动编号 big 字段类型是 OLE 呵呵就简单的那个字段好了      uppic.asp上传程序名      <%   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)'上面总共是取得图片的二进制数据   %>   <!--#include file="conn.asp"-->   <%   sql="select * from pic order by id desc"   Set rs = Server.CreateObject("ADODB.Recordset")   rs.Open sql,conn,3,2   rs.addnew   rs("big").appendchunk mydata '增加到数据库中   rs.update   set rs=nothing   set conn=nothing   %>   接下来是显示图片      display.asp      <!--#include file="conn.asp"--> '这个大家都知道吧,他就是与数据库连的一个程序了     <%   id=request("id")   set rs=server.createobject("ADODB.recordset")   sql="select * from pic where id=" & id   rs.open sql,conn,1,1   Response.ContentType = "text/html" '显示图片的格式也可以用      'Response.ContentType = "image/gif" 以gif显示      'Response.ContentType = "image/jpg" 以jpg显示   Response.BinaryWrite rs("big") '显示图片   rs.close   set rs=nothing   set connGraph=nothing      %>

自己去研究吧~


最新作品:百货品牌商品资讯第一门户([url]http://www./[/url]),欢迎交流
2005-01-11 12:16
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
得分:0 
果然是高手~~帮忙解决我的那个问题!![ASP论坛]里
2005-02-01 08:57
wxyz
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-11-18
得分:0 

全部图片连续展示的实现:

<%

set conn=server.creatobject("ADODB.connection")

conn.open "myaddress"

set rs=conn.execute("select name,tel,url,image from

myaddress")

%>

<p>

<tabel>

<tr>

<% for i=0 to rs.fields.count-1 %>

<td>

<b>

<%=rs(i).name %>

</b>

</td>

<% next %>

</tr>

<% do while not rs.eof %>

<tr>

<% for i=0 to rs.fields.count-1 %>

<td valign =top>

<%

if rs(i).name="image" then

response.write "<img src="""&rs(i)&""" >"

else

if rs(i).name="url" then

response.write "<a href="""&rs(i)&""">"&rs(i)&"</a>"

else

response.write rs(i)

end if

end if

%>

</td>

<%next%>

</tr>

<% rs.movenext

loop

rs.close

conn.close

%>

</html>

2005-05-15 19:56
wxyz
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2004-11-18
得分:0 
study斑竹快封赏啊!
2005-05-15 20:01



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-8706-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.154106 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved