用ASP显示ACCESS数据库的的GIF图象
来源：互联网 责任编辑：栏目编辑 发表时间:2013-07-02 04:29 点击:次
写入：
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 %> |
