導(dǎo)讀:1建站知識(shí)寫入： 1:把gif圖像文件讀入內(nèi)存(一個(gè)變量strTemp)。 2:寫入數(shù)據(jù)庫(kù)。 以下為引用的內(nèi)容： Dim binTmp() As Byte Dim con個(gè)業(yè)網(wǎng)站建設(shè)公司網(wǎng)站推廣優(yōu)化seo。

寫入：

1:把gif圖像文件讀入內(nèi)存(一個(gè)變量strTemp)。

2:寫入數(shù)據(jù)庫(kù)。

以下為引用的內(nèi)容：

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")

'請(qǐng)自己實(shí)現(xiàn)OpenFile函數(shù)

rs.AddNew

rs.Fields("image").AppendChunk binTmp

rs.Update

讀出和顯示：

以下為引用的內(nèi)容：

http://www.aspku.com/database/access/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.CreateOb網(wǎng)站seo優(yōu)化課程ject("ADODB.Recordset")

strSql = "select * from tbImage"

Response.ContentType = "image/gif&qseo網(wǎng)站排名優(yōu)化軟件uot;

'Important!

rs.open strSql,conn,1,1

rs.movelast

do網(wǎng)站建設(shè)多少錢

P = rs("image").GetChunk(L)

Response.BinaryWrite P

IF LenB(P) < L then exit do

loop

%>

在html中：

相關(guān)個(gè)業(yè)網(wǎng)站建設(shè)公司網(wǎng)站推廣優(yōu)化seo。

關(guān)鍵詞標(biāo)簽: 標(biāo)簽 圖象