写入:
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>
关键词标签:图象,的的,数据库,显示
相关阅读
热门文章 Active Server Pages 错误 'ASP 0131'解决方
人气排行 ASP下标越界的解决方法ASP代码中如何屏蔽ip地址 禁止某IP段访问网站“文件共享锁定数溢出” 原因及解决方法无法写入数据库的解决方法如何用ASP来获取客户端真实IP的地址用Asp编程实现QQ的在线情况查询ASP常用函数列表ASP用FSO生成HTML简单实例+详解[原创]
查看所有0条评论>>