不使用组件实现多个图片与文本数据同时写入数据库（4）

最新推荐文章于 2024-09-14 19:55:29 发布

Ronbi

最新推荐文章于 2024-09-14 19:55:29 发布

阅读量586

点赞数

文章标签：数据库 server sql

本文链接：https://blog.csdn.net/Ronbi/article/details/2154282

版权

导读：
　　显示图片的程序：
　　'filename:showpic.ASP
　　'--------------------
　　<%

response.expires=0

response.buffer=true

response.clear

set conn=server.CreateObject("ADODB.Connection")

conn.Open "driver={SQL

Server};server=ServerIP;uid=UserName;pwd=Password;database=DataBaseName"

set rec=server.createobject("ADODB.recordset")

strsql="select img1 from xl where ID=" &request("id")

'img1/img2是存放图片的字段，用同样的方法可以显示img2里的图像

rec.open strsql,conn,1,3

Response.ContentType = "image/*"

Response.BinaryWrite rec("img1").getChunk(7500000)

rec.close

set rec=nothing

conn.close

set connGraph=nothing

%>　　response.expires=0

　　response.buffer=true

　　response.clear

　　set conn=server.CreateObject("ADODB.Connection")

　　conn.Open "driver={SQL

　　Server};server=ServerIP;uid=UserName;pwd=Password;database=DataBaseName"

　　set rec=server.createobject("ADODB.recordset")

　　strsql="select img1 from xl where ID=" &request("id")

　　'img1/img2是存放图片的字段，用同样的方法可以显示img2里的图像

　　rec.open strsql,conn,1,3

　　Response.ContentType = "image/*"

　　Response.BinaryWrite rec("img1").getChunk(7500000)

　　rec.close

　　set rec=nothing

　　conn.close

　　set connGraph=nothing

　　%>

本文转自
http://study.qqcf.com/web/250/31273.htm