| 内德维德 |
 |
| 等级:职业侠客 |
| 权限:普通用户 |
| 积分:67 |
| 金钱:257 |
| 声望:140 |
| 经验:140 |
| 发帖数:140 |
| 注册:2008年10月7日 |
|
|
|
|
写入：
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>
|
|
|
|
|
|
所在位置：论坛首页 -> ┈┋电脑网络┋┈ -> 数据库技术 -> 用ASP显示ACCESS数据库的GIF图象
资料
短消息