东北新闻视点
热点:
当前位置:首页 > 文化 > 正文

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

时间:2020-12-24 04:41:24 作者:小编

写入:

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

读出和显示:

品牌推广公司"; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellspacing="0" cellpadding="6" width="95%" align="center" border="0">
以下为引用的内容:

 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>

;

文章来自: 软文推广蜓云网 https://ruanwen.tingclouds.com