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

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

写入:

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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航