代码如下: upload.htm ' 上传页面 <html> <body> <center> <!--以下 form 中的 enctype="multipart/form-data" 是得到数据的关键--> <form name="mainform" enctype="multipart/form-data" action="get.asp" method=post> <input type=file name=mefile><br/> <input type=submit name=ok value="上传"> </form> </center> </body> </html> get.asp ' 处理浏览器中送来的数据 <% response.buffer=true 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 conn=server.createobject("adodb.connection") conn.connectionstring="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("images.mdb") conn.open set rs=server.createobject("adodb.recordset") rs.open "select * from [images] where id is null",conn,1,3 rs.addnew rs("img").appendchunk mydata rs.update rs.close set rs=nothing set conn=nothing %> showimg.asp ' 显示图片 <% set conn=server.createobject("adodb.connection") conn.connectionstring="driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("images.mdb") conn.open set rs=server.createobject("adodb.recordset") strsql="select img from images where id=" & trim(request("id")) rs.open strsql,conn,1,1 response.contenttype = "image/*" ' 在输出到浏览器之前一定要指定response.contenttype = "image/*",以便正常显示图片 response.binarywrite rec("img").getchunk(7500000) rs.close set rs=nothing set conn=nothing %> 数据库结构如下: Access:
序号 | 字段名称 | 类型 | 描述 | 1 | id | 自动编号 | 主键值 | 2 | img | ole对象 | 用来保存图片数据 |
MS Sql Server:
序号 | 字段名称 | 类型 | 描述 | 1 | id | int(identity) | 主键值 | 2 | img | image | 用来保存图片数据 |
|