用asp将图片存储到SQL数据库中并且将图片从数据库中调用,我的代码存储成功,但是调用不出 求助各位
如果是代码问题请帮我修改如果两种都不行有没有新的第一种<%setconnGraph=server.CreateObject("ADODB.connection")conn...
如果是代码问题 请帮我修改 如果两种都不行 有没有新的
第一种
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=zl;PWD=123456;DATABASE=网站信息"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
第二种
<%@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=127.0.0.1;UID=zl;PWD=123456;DATABASE=网站信息"
' 创建ADO连接对象.使用了缺省的sa帐号、没有密码的IISSDK OBDC Souce
Set oRs = oConn.Execute("SELECT img FROM [img] WHERE id='0736'")
' 查询SQL以获得连接gif BLOB的recordset
PicSize = oRs("img").ActualSize
Pic = oRs("img").GetChunk(PicSize)
' 获得GIF局部变量
Response.BinaryWrite Pic
' 写数据到客户端, 因为MIME类型被设为image/gif, 浏览器将会自动认作图片
Response.End
%>
第一种是在书上看到的 书上的例子是ACCESS的 我改了之后 测试不是提示下载该ASP文件 就是提示那“=”出问题 展开
第一种
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=zl;PWD=123456;DATABASE=网站信息"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
第二种
<%@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=127.0.0.1;UID=zl;PWD=123456;DATABASE=网站信息"
' 创建ADO连接对象.使用了缺省的sa帐号、没有密码的IISSDK OBDC Souce
Set oRs = oConn.Execute("SELECT img FROM [img] WHERE id='0736'")
' 查询SQL以获得连接gif BLOB的recordset
PicSize = oRs("img").ActualSize
Pic = oRs("img").GetChunk(PicSize)
' 获得GIF局部变量
Response.BinaryWrite Pic
' 写数据到客户端, 因为MIME类型被设为image/gif, 浏览器将会自动认作图片
Response.End
%>
第一种是在书上看到的 书上的例子是ACCESS的 我改了之后 测试不是提示下载该ASP文件 就是提示那“=”出问题 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询