|
代码如下:
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 | 用来保存图片数据 |
| 
2433
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
