首页 | 源码下载 | 网站模板 | 网页特效 | 广告代码 | 网页素材 | 字体下载 | 书库 | 站长工具
会员投稿 投稿指南 RSS订阅
当前位置:主页>网络编程>ASP教程>资讯:用ASP显示ACCESS数据库的的GIF图象

用ASP显示ACCESS数据库的的GIF图象

www.jz123.cn  2008-11-21   来源:   中国建站    袁袁整理    我要投递新闻

写入:

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>


上一篇:ASP实例:利用缓存提高数据显示效率 下一篇:ASP连接MSSQL的错误: 拒绝访问

评论总数:1 [ 查看全部 ] 网友评论


关于我们隐私版权广告服务友情链接联系我们网站地图