用ASP显示ACCESS数据库的GIF图象
时间:2008-11-16 18:09:00
写入:
1:把gif图像文件读入内存(一个变量strTemp)。
2:写入数据库。
Dim binTmp() As Byte
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "db"
strSql = "select * from tbImage"
rs.Open strSql, conn, 1, 3
OpenFile ("bayshore.jpg")
'请自己实现OpenFile函数
rs.AddNew
rs.Fields("image").AppendChunk binTmp
rs.Update
读出和显示:
show.asp:
<%
dim P
dim L
L = 8192
dim conn,rs,strSql
set conn=server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(".") & "db2.mdb;Persist Security Info=False"
set rs=server.CreateObject("ADODB.Recordset")
strSql = "select * from tbImage"
Response.ContentType = "image/gif"
'Important!
rs.open strSql,conn,1,1
rs.movelast
do
P = rs("image").GetChunk(L)
Response.BinaryWrite P
IF LenB(P) < L then exit do
loop
%>
在html中:
<image src=show.asp>
标签:图片,gif,ADODB,数据库
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
说说CSS Hack 和向后兼容
2010-05-17 13:11:00
![](https://img.aspxhome.com/file/UploadPic/20105/17/css-hack-and-standard-31s.png)
设计原则-控件Balloons(气球状提示)
2009-08-15 12:34:00
![](https://img.aspxhome.com/file/UploadPic/20098/15/balloons-56s.png)
快速掌握如何使用SQL Server来过滤数据
2009-01-15 13:27:00
准备SQL Server 2008透明数据加密
2009-01-22 14:18:00
关于DOM元素定位属性的深入学习
2008-04-02 11:46:00
通过SQL Server的位运算功能巧妙解决多选查询方法
2012-01-29 17:54:35
CSS3:文字阴影知多少
2009-06-28 15:33:00
![](https://img.aspxhome.com/file/UploadPic/20096/28/01-91s.png)
如何从SQL数据库中调用图片?
2009-11-15 19:59:00
错误的随机数_JavaScript
2009-08-28 12:43:00
浏览器是怎样工作的二:渲染引擎 HTML解析
2012-05-09 20:34:20
![](https://img.aspxhome.com/file/UploadPic/20125/9/1336555288644-33s.png)
ASP+FSO生成的网页文件默认编码格式以及转换成UTF-8编码方法
2011-03-07 11:10:00
网站设计输入了些什么?
2008-04-01 09:30:00
CSS的未来:一些试验性CSS属性
2011-06-10 13:20:00
![](https://img.aspxhome.com/file/UploadPic/20116/10/title1-80s.jpg)
分享到豆瓣、百度空间、新浪微博的js代码
2011-03-17 12:58:00
JavaScript文档生成工具
2007-10-26 11:59:00
简单的文本内容处理工具
2010-01-28 12:31:00
给页面加上Loading效果最简单实用的办法
2008-11-20 11:58:00
![](https://img.aspxhome.com/file/UploadPic/200811/20/loading-79s.gif)
深入探讨SQL Server 2008商务智能(BI)
2008-12-23 13:56:00
![](https://img.aspxhome.com/file/UploadPic/200812/20081223182357659.jpg)
说说页面中header的XHTML结构选择
2008-06-09 12:49:00
解构用户研究
2010-03-15 12:34:00
![](https://img.aspxhome.com/file/UploadPic/20103/15/deconstructing_user_research_banner730-250-33s.jpg)