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

80酷酷网    80kuku.com

  数据|数据库显示图片的程序:
'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

%>

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: