当前位置:首页 > ASP教程 > ASP基础

ASP上传图片功能的又一实现(OLE对象)

上次说到的上传图片是采用稻香老农开发的无组件上传。其上传过程是将图片先保存到指定文件夹,与此同时将该路径保存至数据库字段的。显示图片则是根据数据库表中的路径字段对应显示的。当然有关图片的管理,比如删除:只删除了路径,实际的图片需要根据该路径通过fso进行删除……

那有没有这样一种情况:将图片直接作为一个字段的值保存。对图片的操作就象是对数据字段的操作一样熟练。答案是肯定的,只是将该字段的类型设为ole对象

知识点:ole 对象字段用来存储诸如 microsoft word 或 microsoft excel 文档、图片、声音的数据以及在别的程序中创建的其他类型的二进制数据。ole 对象可以链接或嵌入到 microsoft access 表的字段中。

一、设计数据库testimg.mdb

为方便调试,设计表imgurl,其中两个字段:id(自动编号、关键字)、img(ole 对象)

二、连接数据库文件conn.asp



<%
db_path="testimg.mdb"
set conn=server.createobject("adodb.connection")
connstr="driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db_path)
conn.open connstr
%>



三、提供上传图片的表单页面upload.html



<form action="upload.asp" method="post" enctype="multipart/form-data">
  <input type="file" name="imgurl">
  <input type="submit" name=ok value="ok">
</form>



四、接受数据并添加记录页upload.asp



<!--#include file="conn.asp"-->
<%
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrb(13)&chrb(10)
divider=leftb(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set rs=server.createobject("adodb.recordset")
rs.open "select * from imgurl",conn,3,3
rs.addnew
rs("img").appendchunk mydata
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "index.asp"
%>



五、提取数据库表中图片字段内容以做显示图片页showimg.asp



<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from imgurl where id="&trim(request("id"))
rs.open sql,conn,1,1
response.contenttype="image/*"
response.binarywrite rs("img").getchunk(8000000)
rs.close
set rs=nothing
set conn=nothing
%>



六、显示图片的index.asp



<!--#include file="conn.asp"-->
<%
strsql="select * from imgurl"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,1
do until rs.eof
whatid=rs("id")
%>
<img src="showimg.asp?id=<%=whatid%>">

<%
rs.movenext
loop%>


【说明】本文章由站长整理发布,文章内容不代表本站观点,如文中有侵权行为,请与本站客服联系(QQ:)!