asp下载数据库access中图片

whoo529 2008-10-19 10:17:34
现在有一asp程序，需要下载access中图片[二进制]
<a title="下载图片" href="../image.asp?id=<%=id%>" target="_blank">这样可以下载，但格式为.asp，下载来后修改为.jpg也可以显示正常图片，这个方法显然不正确；首先创建jpg文件，将数据库中二进制图片读取出来写入创建的jpg文件即可

代码块：
fileimage = rs("image")

set fileobject=server.CreateObject ("scripting.filesystemobject")
set out = fileobject.CreateTextFile (Server.MapPath("image.jpg"),true,false)
out.write fileimage '此处有问题，不能写入此类型文件
set out = nothing

问题在于如何写入此二进制数据到image.jpg中，请教各位
...全文
261 25 打赏 收藏 转发到动态 举报
写回复
用AI写文章
25 条回复
切换为时间正序
请发表友善的回复…
发表回复
sklovexj 2008-12-09
  • 打赏
  • 举报
 回复
谢谢分享

www.tom3gp.com
一把编程的菜刀 2008-10-20
  • 打赏
  • 举报
 回复
呵呵，简单吧

不再觉得难了？
whoo529 2008-10-20
  • 打赏
  • 举报
 回复
贴出代码：
<%
fileimage = rs("image")
imgs=fileimage
Set objStream = Server.CreateObject("ADODB.Stream")
with objStream
.Type =1
.Open
'.write imgs.getChunk(imgs.actualSize)
.write imgs
.SaveToFile server.mappath("image.jpg"),2
.Close()
end with
set objstream=nothing
%>
<a href="down.asp?filename=image.jpg" target="_blank">
<img border="0" src="images/xz.gif" width="55" height="18"></a>
-------------------------------------------------------------------------
down.asp:
<% strFile=Trim(Request.QueryString("filename"))
if strFile="" or isnull(strFile) then
Response.Write("<h1>缺少参数</h1>")
Response.End
end if
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:" & strFilename & " 文件不存在</h1>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error:" & err.Description & " </h1>")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
%>
一把编程的菜刀 2008-10-20
  • 打赏
  • 举报
 回复
............
whoo529 2008-10-20
  • 打赏
  • 举报
 回复
貌似解决了
whoo529 2008-10-20
  • 打赏
  • 举报
 回复
问题来了，ADODB.Stream 错误 '800a0bbc'

google以后说是权限问题，我加了everyone 、iuser_computername 所有权限都”写入文件失败“
这是什么问题呢？
peipei160509 2008-10-20
  • 打赏
  • 举报
 回复
down.asp:
<% strFile=Trim(Request.QueryString("filename"))
if strFile="" or isnull(strFile) then
Response.Write(" <h1>缺少参数 </h1>")
Response.End
end if
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write(" <h1>Error:" & strFilename & " 文件不存在 </h1>")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write(" <h1>Error:" & err.Description & " </h1>")
Response.End
end if
Response.AddHeader "Content-Disposition", "www.ebuir.com"& f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
%>
whoo529 2008-10-19
  • 打赏
  • 举报
 回复
不是啊，我在网吧里做的，这里没有iis，我只有把做好的东西直接传人服务器，回去了在调试
家里网络极差

这样应该能行吧，谢谢各位
一把编程的菜刀 2008-10-19
  • 打赏
  • 举报
 回复
[Quote=引用 14 楼 whoo529 的回复:]
服务器显示没有权限写入，我回去了在试试看
[/Quote]

.......你都没有权限，你还搞什么啊！！
sy_binbin 2008-10-19
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 chinmo 的回复:]
imgs=imagefile'取得图片的具休内容
Set objStream = Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象，必须要ADO 2.5以上版本
with objStream
.Type =1'以二进制模式打开
.Open
.write imgs'将字符串内容写入缓冲
.SaveToFile server.mappath("image.jpg"),2'-将缓冲的内容写入文件
.Close()
end with
set objstream=nothing
试试这个方法
[/Quote]

这个方法可以写文件

但服务器要是没权限那就没啥办法了
whoo529 2008-10-19
  • 打赏
  • 举报
 回复
服务器显示没有权限写入，我回去了在试试看
epui2008 2008-10-19
  • 打赏
  • 举报
 回复
第一次听说，关注下，学习学习
sy_binbin 2008-10-19
  • 打赏
  • 举报
 回复
搞不明白为什么要把图片保存在数据库里呢？？？
一把编程的菜刀 2008-10-19
  • 打赏
  • 举报
 回复
imgs=imagefile'取得图片的具休内容
Set objStream = Server.CreateObject("ADODB.Stream")'建立ADODB.Stream对象，必须要ADO 2.5以上版本
with objStream
.Type =1'以二进制模式打开
.Open
.write imgs'将字符串内容写入缓冲
.SaveToFile server.mappath("image.jpg"),2'-将缓冲的内容写入文件
.Close()
end with
set objstream=nothing
试试这个方法
一把编程的菜刀 2008-10-19
  • 打赏
  • 举报
 回复
ADODB.Stream
你要写进文件？可以用他啊！他有一个二进制的写法啊
whoo529 2008-10-19
  • 打赏
  • 举报
 回复
这样的话还是显示在页面上了，需要创建jpg文件到服务器才能下载
一把编程的菜刀 2008-10-19
  • 打赏
  • 举报
 回复
Response.ContentType = "image/*"

Response.BinaryWrite imagefile.getChunk(7500000)
一把编程的菜刀 2008-10-19
  • 打赏
  • 举报
 回复
Response.ContentType = "image/*"

Response.BinaryWrite imagefile.getChunk(7500000)
whoo529 2008-10-19
  • 打赏
  • 举报
 回复
加上上面的那段是打印出来需要的，现在我要将此二进制写入jpg，能否告知如何操作
一把编程的菜刀 2008-10-19
  • 打赏
  • 举报
 回复
Response.ContentType = "image/gif "
如果是图片的还得加上类似这样的
加载更多回复（5）
蓝色企业网站源码ASP+Access数据库带完整后台
1:本网站源码采用ASP+Access数据库开发，适合中小企业网站建设。 2:本网站源码后台功能强大，主要功能有：企业信息管理、产品管理、下载中心管理、新闻管理、留言管理、荣誉管理、人才管理、友情链接管理。 3:本网站源码首页中的LOGO图片和导航栏图片均自带PSD源文件，方便修改。 4:本网站源码可防止SQL漏洞攻击。 5:本网站源码采用天蓝色界面，美观大方。 演示地址：http://changke18.web-07.com/
ASP.NET 网站模板
此项目为 美观、功能全面、含网站后台的asp.net网站模板， 是一款面向企业ASP.NET 网站模板。 软件介绍： 系统是基于.Net平台开发的免费商城系统。功能强大，操作方便，设置简便。无需任何设置，上传到支持asp.net的主机空间即可使用。 系统内置多套网络商城专业模板，适合开网上书店、花店、数码产品店、化妆品、手机店。 系统特色功能： 1、同时支持Access和SqlServer数据库； 2、支持多语言、多模板 3、可定制缺货处理功能 4、支持附件销售功能 5、支持会员组批发功能 6、提供页面设计API函数 7、支持预付款功能 8、配送价格分地区按数学公式计算 9、商品支持多类别，可扩展更多的功能 10、支持在线备份数据库 11、支持无限级商品类别 12、支持在线支付接口 ...等等 如果觉资源好，请回复，你们将是我们无限的动力！
ASP.NET留言板
ASP.NET留言板 Version 1.0 软件信息： 软件名称：光辉岁月留言板 版 本 号：Version 1.0 授权类型：免费软件 运行环境：ASP.NET 版权所有：光辉岁月 Q Q：258653163 开发日期：2007.1 软件描述： 1、使用ASP.NET(C#)开发; 2、全部代码都由手写完成，清晰易懂、易维护; 3、采用三层体系结构，通过接口继承来支持多数据库模式; 4、动态支持Access,MSSQL(存储过程); 5、支持HTML编辑器,集成QQ，MSN，TAOBAO等表情; 版权声明: 1. 本软件由本人独立开发完成的留言平台,拥有留言簿的所有版权。 2. 本软件为免费软件,授权用户免费使用,无须通告作者本人。 3. 允许任何人可以在本软件的基础上独立开发新的模块，并可自由商业或免费，并不受限制。 4. 本软件使用了部分网络上的资源（包括图像，皮肤等）。如果您有任何意见或想法可以与我取得联系 。我将会根据您的意愿进行修改。 免责声明： 1.本软件是免费软件，作者只负责软件本身的制作与维护，不负责任何与软件本身无关的问题。 2.用户自愿使用本软件，并无须支付任何费用，由使用软件对用户所造成的任何损失均与作者无关。 3.用户在使用本软件时所引起的任何纠纷均与作者无关。 4.浏览者发表的任何言论，纯属浏览者个人意见，概与作者无关。 5.用户使用本软件，即表示无条件接受以上条款。 6.作者保留以上条款的最终解释权。 安装使用： Access环境 前提必须支持asp.net 注意：你电脑的系统必须装了Internet 服务管理器和Microsoft.NET Framework 1.1或2.0 双击Setup.exe应用文件，然后进行安装。然后进入C:\\Inetpub\\wwwroot\\BBS里面的#chat.mdb数据拿出来 到C:\\ 数据库的路径可以在Web.config里面的以下改： 最后就可以在IE里面的地址栏上输入http://localhost/bbs运行出来了。 ****************************************************************************************** 注意：请不要直接进入数据库更改密码，因为数据库已经通过MD5的数据加过密，要更改密码，请用默认 的系统管理员帐号和密码登录，进去可以更改，要是你直接进数据库自己改的会，可能会出现不能登录的 问题。 ****************************************************************************************** 默认系统管理员帐号：admin 默认系统管理员密码：admin 常见问题: 如果出现未设置对象实例,无法添加记录,DBNULL转换失败等错误,可能是数据库遭到破坏,如果是NTFS分区 ,最好将数据库文件的EVERYONE用户的所有权限设置为允许 与我联系: QQ：258653163 官方主页: http://www.ghsy123.com 电子邮件: pyh123@126.com 2007.2
mysql-connector-odbc-5.1.5-win32.msi MySql ODBC驱动
MySQL Connector/ODBC是MYSQL数据库的ODBC驱动程序，统安装了这个程序之后，就可以通过ODBC来访问MySQL，这样就可以实现SQLServer、Access和MySQL之间的数据转换，还可以支持ASP访问MySQL数据库。
Delphi开发者资源社区 V1.0
简介:
“Delphi开发者资源社区”源码 V1.0
左轻侯
2001.10.9

Email:onekey@163.com
社区地址：http://delphi.mychangshu.com
个人主页：http://onekey.yeah.net

本社区使用ASP+ACCESS 2000开发，可以很方便地升级到MS SQL SERVER。
代码未经整理，有很多不规范的地方，仅供参考，请自己注意。有些计划中的功能尚未完成，但不影响使用。
如果你发现漏洞，请通知我，不要来黑啊，呵呵。这是一个程序员交流的地方，请爱护它。

功能：
二级分类目录；
WEB方式的文件上传；
作品评论；
下载计数和排行榜；
多种方式排序和查找；
WEB方式的社区维护；
内置一个文本计数器；
内置一个树型结构的论坛。

使用了稻香老农的文件上传代码（ASP实现，无须第三方组件），特此致谢。必须在Windows2000下使用。

记得将exdata.mdb放到一个没有下载权限的目录中，并修改config中的strConnString。否则别人可以简单地将整个数据库下载下来。

初始用户：
id:admin password:admin

压缩包中的“树型结构的快速算法.txt”文件，描述了本社区论坛的实现思路。 
ASP

28,392

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章