您正在使用 IPV4 [3.90.205.166] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
用ASP显示ACCESS数据库的的GIF图象
内容摘要: 写入:1:把gif图像文件读入内存(一个变量strTemp)。2:写入数据库。以下为引用的内容:Dim binTmp() As ByteDim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim strSql As StringSet conn = New ADODB.ConnectionSet rs =......
写入:

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>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:随机生成文件名的函数

 

下一篇:虚拟抽奖小特效

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:5
录  入:壹家怡园
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....