用纯ＡＳＰ代码实现图片上传并存入数据库中

时间 2019-12-05

标签 asp 代码实现图片上传存入数据库栏目 ASP 繁體版

原文原文链接

用ＡＳＰ编写网站应用程序时间长了，不免会遇到各式各样的问题，其中

关于如何上传文件到服务器恐怕是碰见最多的问题了，尤为是上传图片，好比

你想要在本身的社区里面实现相似网易虚拟社区提供的“每日一星”的功能，

就要提供给网友上传照片的功能。上传图片文件到服务器可使用各类免费的html

文件上传组件，使用起来功能虽然很强大，可是因为不少状况下，咱们只能使

用免费的支持ＡＳＰ的空间或者租用别人的虚拟空间，对于第一种状况，咱们

根本就没有可能来使用文件上传组件；至于第二种状况，咱们也要付出很多的

“银子”才能够。除非你拥有本身的虚拟主机，你就能够随便的在服务器上面

安装本身所须要的组件，这种状况对于大多数人来讲是可望而不可及的。那我

们就没有办法了吗？呵呵，答案是确定的（固然是确定的了，要否则我也无法

写出这篇文章啊）。下面就让咱们一块儿来使用纯ＡＳＰ代码来实现图片的上传

以及保存到数据库的功能（顺便也实现显示数据库中的图片到网页上的功

能）。 sql

首先咱们先来熟悉一下将要使用的对象方法。咱们用来获取上一个页面传

递过来的数据通常是使用Request对象。一样的，咱们也可使用Request对象

来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。而咱们要从

数据库中读出来图片的数据显示到网页上面要用到的方法是：

Request.BinaryWrite()。在咱们获得了图片的数据，要保存到数据库中的时候，

不能够直接使用Insert语句对数据库进行操做，而是要使用ADO的

AppendChunk方法，一样的，读出数据库中的图片数据，要使用GetChunk方

法。各个方法的具体语法以下：数据库

* 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

（无当前记录）。浏览器

ActualSize属性，是字段内容的长度

接下来，咱们就要来设计咱们的数据库了，做为测试咱们的数据库结构如

下（Ａｃｃｅｓｓ９７）：

字段名称　　　　类型　　　　描述

　　id 　　　自动编号　　　主键值

img OLE对象　　　用来保存图片数据　

对于在MS SQL Server7中，对应的结构以下：

字段名称　　　　类型　　　　描述

　　id 　　　　int(Identity)　主键值

img 　　image　　　　用来保存图片数据　

如今开始正式编写咱们的纯ＡＳＰ代码上传部分了，首先，咱们有一个提

供给用户的上传界面，可让用户选择要上传的图片。代码以下

（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>

注意代码中黑色斜体的部分，必定要在Form中有这个属性，不然，将无

法获得上传上来的数据。

接下来，咱们要在process.asp中对从浏览器中获取的数据进行必要的处

理，由于咱们在process.asp中获取到的数据不只仅包含了咱们想要的上传上来

的图片的数据，也包含了其余的无用的信息，咱们须要剔除冗余数据，并将处

理过的图片数据保存到数据库中，这里咱们以Ａｃｃｅｓｓ９７为例。具体代

码以下（process.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 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

%>

好了，这下咱们就把上传来的图片保存到了名为images.mdb的数据库中

了，剩下的工做就是要将数据库中的图片数据显示到网页上面了。通常在ＨＴ

ＭＬ中，显示图片都是使用<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(rec("img").ActualSize)

rec.close

set rec=nothing

set connGraph=nothing

%>

注意在输出到浏览器以前必定要指定Response.ContentType = "image/*"，

以便正常显示图片。

最后要注意的地方是，个人process.asp中做的处理没有考虑到第一页

(upload.htm)中还有其余数据，好比<INPUT type=tesxt name=userid>等等，若是

有这些项目，你的process.asp就要注意处理掉没必要要的数据。

怎么样，其实上传图片并保存到数据库很简单吧，这样不再用为本身的

空间没法使用各种的上传组件发愁了吧。还等什么？赶快试一试吧。

（以上全部程序均在WinNT4.0英文版，IIS4，Access97/MS SQL Server7.0中运

行经过）服务器