如何在 ASP 中展示 ACCESS 数据库中的 GIF 图像

如何在 ASP 中展示 ACCESS 数据库中的 GIF 图像？

写入：

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>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!