程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> 用ASP顯示ACCESS數據庫的GIF圖象

用ASP顯示ACCESS數據庫的GIF圖象

編輯:關於Access數據庫

寫入:

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>

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved