--2007-6-18 18:58:32
上传图片功能的又一实现（OLE对象）
将图片直接上传到数据库一个字段中。对图片的操作就象是对数据字段的操作一样熟练。答案是肯定的，只是将该字段的类型设为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
datayZatF寒心四射g?&send=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,datayZatF寒心四射g?&send)
set rs=server.createobject("ADODB.recordset")
rs.open "Select * FROM imgurl",conn,3,3
rs.addnew
rs("img").AppyZatF寒心四射g?&sendChunk 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%>
相关内容
下列内容与上传有着内在的联系，建议您一并阅读。