当前位置：首页 > 网络编程 > WEB编程 > ASP > 用ASP显示ACCESS数据库的的GIF图象

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

点击次数：42 次 发布日期：2008-11-20 19:36:03 作者：源代码网
源代码网推荐

源代码网整理以下写入：

源代码网整理以下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>

源代码网供稿.
网友评论 (0)
我也要写评论
会员中心
网络编程
本站推荐
网络编程之精华