如何从SQL数据库中调用图片?
来源:asp之家 时间:2009-11-15 19:59:00
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" designer="lemon">
<title>test BLOB picture</title>
</head>
</html>
test.asp
<% @ LANGUAGE=VBScript %>
<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<%
Dim oConn
Dim oRs
Dim Pic
Dim PicSize
' 利用安装在Microsoft SQL Server PUBS 数据库中PUB_INFO表格里的Image域
Response.Buffer = TRUE
Response.ContentType = "image/gif"
' 设置HTTP表头信息,以便浏览器解释作为GIF图像返回的数据.注意:浏览器解释返回的信息使用的是MIME 表头,而非文件扩展
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=pubs;UID=sa;PWD=;DATABASE=pubs"
' 创建ADO连接对象.使用了缺省的sa帐号、没有密码的IISSDK OBDC Souce
Set oRs = oConn.Execute("SELECT logo FROM pub_info WHERE pub_id='0736'")
' 查询SQL以获得连接gif BLOB的recordset
PicSize = oRs("logo").ActualSize
Pic = oRs("logo").GetChunk(PicSize)
' 获得GIF局部变量
Response.BinaryWrite Pic
' 写数据到客户端, 因为MIME类型被设为image/gif, 浏览器将会自动认作图片
Response.End
%>