用纯ASP实现图片上传并存入数据库 - ：：烟舞者：：

：：烟舞者：：

------------------------------------------

-=努力学习后台编程=-

用纯ASP实现图片上传并存入数据库

作者：半支烟　　发表时间：2004-12-3

用纯ASP实现图片上传并存入数据库

一、使用的对象方法

Request.BinaryRead

语法：variant = Request.BinaryRead(count)
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小，这个值小于或者等于使用方法Request.TotalBytes得到的数据量。

Request.BinaryWrite

语法：Request.BinaryWrite data
参数:
data
要写入到客户端浏览器中的数据包。

Request.TotalBytes
语法：variant = Request.TotalBytes
参数:
variant
返回从客户端读取到数据量的字节数。

AppendChunk
语法:
将数据追加到大型文本、二进制数据 Field 或 Parameter 对象。 object.AppendChunk Data
参数:
object Field 或 Parameter 对象 Data 变体型，包含追加到对象中的数据。
说明:
使用 Field 或 Parameter 对象的 AppendChunk 方法可将长二进制或字符数据填写到对象中。在系统内存有限的情况下，可以使用 AppendChunk 方法对长
整型值进行部分而非全部的操作。

GetChunk
语法:返回大型文本或二进制数据 Field 对象的全部或部分内容 variable = field.GetChunk( Size ) 返回值:
返回变体型。
参数:
Size 长整型表达式，等于所要检索的字节或字符数。
说明:使用 Field 对象的 GetChunk 方法检索其部分或全部长二进制或字符数据。在系统内存有限的情况下，可使用 GetChunk 方法处理部分而非全部的长整型值。GetChunk 调用返回的数据将赋给“变量”。如果 Size 大于剩余的数据，则GetChunk 仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则
GetChunk 方法返回 Null。每个后续的 GetChunk 调用将检索从前一次 GetChunk 调用停止处开始的数据。但是，如果从一个字段检索数据然后在当前记录中设置或读取另一个字段的值，ADO 将认为已从第一个字段中检索出数据。如果在第一个字段上再次调用 GetChunk 方法，ADO 将把调用解释为新的 GetChunk 操作并从记录的起始处开始读取。如果其他 Recordset 对象不是首个 Recordset 对象的副本，则访问其中的字段不会破坏 GetChunk 操作。
如果 Field 对象的 Attributes 属性中的 adFldLong 位设置为 True，则可以对该字段使用 GetChunk 方法。
如果在 Field 对象上使用 Getchunk 方法时没有当前记录，将产生错误 3021 （无当前记录）。

二、设计数据库

以ACCESS为例

字段名称	类型	描述
id	自动编号	主键值
img	OLE对象	用来保存图片数据

以SQL SERVER为例

字段名称	类型	描述
id	int(Identity)	主键值
img	image	用来保存图片数据

三、编写ASP代码部分

上传界面-upload.htm

<html>
<body>
<center>
<form name="mainForm" enctype="multipart/form-data" action="process.asp" method=post>
　　 <input type=file name=mefile><br>
　　 <input type=submit name=ok value="OK">
</form>
</center>
</body>
</html>

处理页面-process.asp(以ACCESS数据库为例)

<%
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 connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>

四、显示图片

一般在ＨＴＭＬ中，显示图片都是使用<IMG>标签，也就是<IMG SRC="图片路径">，但是我们的图片是保存到了数据库中，“图片路径”是什么呢？呵呵，其实这个 SRC属性除了指定路径外，也可以这样使用哦：<IMG SRC="showimg.asp?id=xxx"> 所以，我们所要做的就是在showimg.asp中从数据库中读出来符合条件的数据，并返回到SRC属性中就可以了，具体代码如下（showimg.asp）：
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>

注意在输出到浏览器之前一定要指定Response.ContentType = "image/*"，以便正常显示图片。最后要注意的地方是，我的process.asp中作的处理没有考虑到第一页(upload.htm)中还有其他数据，比如<INPUT type=tesxt name=userid>等等，如果有这些项目，你process.asp就要注意处理掉不必要的数据。

----------------------------------------
　

半支烟发表于：ASP 　

留言内容（共有条）

{CommentAuthor}评论说：
{CommentContent}

--- {CommentTime} {CommentUrl}

流年--似水

也说--几句

　来来--往往

快速--登陆
*用户名：
*密码：
防止超时

日志--搜索

踩上--几脚