保存图片?

dongoyang 2004-04-14 02:21:32
怎样以二进制保存图片(access数据库),再取出显示在页面上?
...全文
74 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
suibingchunmeng 2004-04-14
  • 打赏
  • 举报
回复
<%@ Language=VBScript %>
<%
’************************************************************************
' ' 本模块的名称: UpImage.asp
' 功能概要描述: 将图片处理成二进制录入数据库
'*********************************************************************************

<%

FormSize = Request.TotalBytes

FormData = Request.BinaryRead( FormSize )

function ImageUp(formsize,formdata)

bncrlf=chrb(13) & chrb(10)

divider=leftb(formdata,instrb(formdata,bncrlf)-1)

datastart=instrb(formdata,bncrlf&bncrlf)+4

dataend=instrb(datastart+1,formdata,divider)-datastart

imageup=midb(formdata,datastart,dataend)
end function
Image=ImageUp (FormSize,Formdata)
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" +Server.MapPath("Database/Data.asp")
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT top 1 * FROM Article ORDER BY id DESC",Conn,1,3
if not rs.eof then
rs("AImage").appendchunk Image
rs.update
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
<script language=vbscript>
window.close()
</script>
claus2001 2004-04-14
  • 打赏
  • 举报
回复
我也要份 claus_2001@163.com谢谢!!
dongoyang 2004-04-14
  • 打赏
  • 举报
回复
仰仗各位多多帮忙,Dongoyang@21cn.com
lovewangshu 2004-04-14
  • 打赏
  • 举报
回复
用个无组建上传啊!吧文件名放在数据库里,我就是这么做的.要的话我给你传一个我改过的.
fanweixiao#163.com
sfply 2004-04-14
  • 打赏
  • 举报
回复
去看看动网论坛7的广告图片处理方法
他们就是从数据库读出来的
yangchun1983222 2004-04-14
  • 打赏
  • 举报
回复
这个好像不是太困难的
好多书上有这样的例子,只是不知道怎么解决上传的图片的二进制Request.BinaryRead和Request.Form的冲突,哪位可以帮忙说一下吗?
enslaver 2004-04-14
  • 打赏
  • 举报
回复
qq:76908991
enslaver 2004-04-14
  • 打赏
  • 举报
回复
给你发个东东要不,里面可以参考做啊
jinhaiou 2004-04-14
  • 打赏
  • 举报
回复
保存图片的名称,更好。。。。ACCESS的容量有限

28,409

社区成员

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

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