显示数据库中的图片!

luluso 2003-08-13 04:37:41
图片已经传到了数据库中(access)名为:kk.mdb
数据库中有表image:以下字段:id,image_blob,filename,filesize(其中image_blob为ole字段)
注意:不是存路径。是完完整整地把图存进数据库中.(现在想在网页上显示出来)
a.htm
<HTML>
<HEAD>
<TITLE>图片显示</TITLE>
</HEAD>
<BODY>
<IMG SRC="b.asp">
</BODY>
</HTML>

我想问下b.asp应该怎么写?(最好是详细的,完整的代码。一加上去就能显示那种)
谢谢!!!!!!


...全文
29 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
luluso 2003-08-13
  • 打赏
  • 举报
回复
自己顶。
已调试成功!!在a.htm里只要加一句<img src='b.asp?pub_id=x'>
就可显示数据库中(数据库为access)id为x的图片.

luluso 2003-08-13
  • 打赏
  • 举报
回复
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("kk.mdb")
sql="select image_blob,filename,filetype from image"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
if isnull(rs("image_blob")) or isnull(rs("filename")) or isnull(rs("filetype ")) then
response.write "没有数据"
else
response.Expires = 0
response.Buffer = True
response.Clear
Response.AddHeader "Content-Disposition", "filename="&rs("filename")
response.contentType=rs("filetype")
response.BinaryWrite rs("image_blob").GetChunk(rs("image_blob").ActualSize)
response.End
end if
end if
%>

是不是这样?显示第七行有错误:错误类型:
ADODB.Recordset (0x800A0E7D)
/d/b.asp, 第 7 行

cnpr 2003-08-13
  • 打赏
  • 举报
回复
http://www.eaoo.com/design/list.asp?classid=2&Nclassid=8
甘泉123 2003-08-13
  • 打赏
  • 举报
回复
<%
dim conn,connstr,db
startime=timer()
'更改数据库名字
db="kk.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function

set rs=conn.execute("select image_blob from image where id="&request.QueryString("id"))

response.ContentType="Image/*"
Response.BinaryWrite rs(0)

rs.close
set rs=nothing
disconn
%>

这个
甘泉123 2003-08-13
  • 打赏
  • 举报
回复
<%
dim conn,connstr,db
startime=timer()
'更改数据库名字
db="kk.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function

set rs=conn.execute("select image_blob from image where c_id="&request.QueryString("id"))

response.ContentType="Image/*"
Response.BinaryWrite rs(0)

rs.close
set rs=nothing
disconn
%>
LonelyStark 2003-08-13
  • 打赏
  • 举报
回复
楼上的已经说完整了
brothder 2003-08-13
  • 打赏
  • 举报
回复
因为你少了一个图片类型的字段,所以建议增加一个字段,而filesize是没有用的。所以将filsize改成filetype.以下是写入浏览器的代码,数据库连接需要自己做。

<%sql="select image_blob,filename,filetype from image"‘如果要取得指定记录在这里加WHERE
set rs=server.createobject("adodb.recordset")
rs.open sql,数据库连接,1,3
if not rs.bof and not rs.eof then
if isnull(rs("image_blob")) or isnull(rs("filename")) or isnull(rs("filetype ")) then
response.write "没有数据"
else
response.Expires = 0
response.Buffer = True
response.Clear
Response.AddHeader "Content-Disposition", "filename="&rs("filename")
response.contentType=rs("filetype")
response.BinaryWrite rs("image_blob").GetChunk(rs("image_blob").ActualSize)
response.End
end if
end if
%>
为了使更多的Qt初学者能尽快入门Qt,也为了Qt及Qt Creator的快速普及,我们花费大量精力写出了这一系列教程。虽然教程的知识可能很浅显,虽然教程的语言可能不规范,但是它却被数十万网友所认可。我们会将这一系列教程一直写下去,它将涉及Qt的方方面面 一、Qt Creator的安装和hello world程序的编写 二、Qt Creator编写多窗口程序 三、Qt Creator登录对话框 四、Qt Creator添加菜单图标 五、Qt Creator布局管理器的使用 六、Qt Creator实现文本编辑 七、Qt Creator实现文本查找 八、Qt Creator实现状态栏显示 九、Qt Creator鼠标键盘事件的处理实现自定义鼠标指针 十、Qt Creator实现定时器和产生随机数 十一、Qt 2D绘图(一)绘制简单图形 十二、Qt 2D绘图(二)渐变填充 十三、Qt 2D绘图(三)绘制文字 十四、Qt 2D绘图(四)绘制路径 十五、Qt 2D绘图(五)显示图片 十六、Qt 2D绘图(六)坐标系统 十七、Qt 2D绘图(七)Qt坐标系统深入 十八、Qt 2D绘图(八)涂鸦板 十九、Qt 2D绘图(九)双缓冲绘图简介 二十、Qt 2D绘图(十)图形视图框架简介 二十一、Qt数据库(一)简介 二十二、Qt数据库(二)添加MySQL数据库驱动插件 二十三、Qt数据库(三)利用QSqlQuery类执行SQL语句(一) 二十四、Qt数据库(四)利用QSqlQuery类执行SQL语句(二) 二十五、Qt数据库(五)QSqlQueryModel 二十六、Qt数据库(六)QSqlTableModel 二十七、Qt数据库(七)QSqlRelationalTableModel 二十八、Qt数据库(八)XML(一) 二十九、Qt数据库(九)XML(二) 三十、Qt数据库(十)XML(三) 三十一、Qt 4.7.0及Qt Creator 2.0 beta版安装全程图解 三十二、第一个Qt Quick程序(QML程序) 三十三、体验QML演示程序 三十四、Qt Quick Designer介绍 三十五、QML组件 三十六、QML项目之Image和BorderImage 三十七、Flipable、Flickable和状态与动画 三十八、QML视图 三十九、QtDeclarative模块 四十、使用Nokia Qt SDK开发Symbian和Maemo终端软件 四十一、Qt网络(一)简介 四十二、Qt网络(二)HTTP编程 四十三、Qt网络(三)FTP(一) 四十四、Qt网络(四)FTP(二) 四十五、Qt网络(五)获取本机网络信息 四十六、Qt网络(六)UDP 四十七、Qt网络(七)TCP(一) 四十八、Qt网络(八)TCP(二)

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧