28,406
社区成员
发帖
与我相关
我的任务
分享上传一张图片可以存到access数据库，也可以显示，，但是我想存二张图片到数据库，却不知怎么存，请高手们赐教。。。
数据库名称images ,表名也是images,里面有三个字段，id,img,img1,img和img1都是ole对象类型。
upload.asp------------------
<html>
<body>
<center>
<form name="mainform" enctype="multipart/form-data"
action="process.asp" method=post>
<input type=file name=mefile><br>
<input type=file name=mefile1><br>
<input type=file name=mefile2><br>
<input type=submit name=ok value="ok">
</form>
</center>
</body>
</html>
----------------------------------------------------------------------
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
%>
-----------------------------------------------------------------------------------
showimg.asp
<%
response.clear
db="images.mdb"
Set connGraph = Server.CreateObject("ADODB.Connection")
connectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
set rs=server.createobject("adodb.recordset")
connGraph.Open connectionString
set rec=server.createobject("ADODB.recordset")
uid=request("id")
strsql="select * from images where id=5"
rec.open strsql,connGraph,1,1
ll=rec("img").ActualSize
Response.BinaryWrite rec("img").GetChunk(ll)
lll=rec("img1").ActualSize
Response.BinaryWrite rec("img1").GetChunk(lll)
llll=rec("img2").ActualSize
Response.BinaryWrite rec("img2").GetChunk(llll)
rec.close
set rec=nothing
set connGraph=nothing
%>
upload.asp------------------
<html>
<body>
<center>
<form name="mainform" enctype="multipart/form-data"
action="process.asp" method=post>
<input type=file name=mefile><br>
<input type=file name=mefile1><br>
<input type=file name=mefile2><br>
<input type=submit name=ok value="ok">
</form>
</center>
</body>
</html>
----------------------------------------------------------------------
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
%>
-----------------------------------------------------------------------------------
showimg.asp
<%
response.clear
db="images.mdb"
Set connGraph = Server.CreateObject("ADODB.Connection")
connectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
set rs=server.createobject("adodb.recordset")
connGraph.Open connectionString
set rec=server.createobject("ADODB.recordset")
uid=request("id")
strsql="select * from images where id=5"
rec.open strsql,connGraph,1,1
ll=rec("img").ActualSize
Response.BinaryWrite rec("img").GetChunk(ll)
lll=rec("img1").ActualSize
Response.BinaryWrite rec("img1").GetChunk(lll)
llll=rec("img2").ActualSize
Response.BinaryWrite rec("img2").GetChunk(llll)
rec.close
set rec=nothing
set connGraph=nothing
%>
...全文
请发表友善的回复…
发表回复
tmpx 2005-06-08
- 打赏
- 举报
1、文件上传表单
首先需要编写一个能提供文件上传功能的表单，程序如下所示：
＜Form action="upload.asp" method=post enctype="multipart/form-data"＞
上传文件：＜Input type=file name=file1＞＜br＞
＜input type=submit name=upload value="上传"＞
＜/form＞
其中，enctype参数用来设置表单的MIME编码方式，在进行文件（或同时包含文本框）上传时，必须将其属性设置为"multipart/form-data"；upload.asp是服务器端对接收到的二进制文件流进行处理的ASP程序，在本文的后面将陆续介绍其内容。
2、上传文件格式分析
在处理文件之前，我们要先了解上传的文件的具体格式，通过编写下面一段简单的ASP程序就可以查看其二进制代码：
＜%
filesize=Request.TotalBytes '获得上传文件的大小
filedata=Request.BinaryRead(filesize) '获得上传文件的二进制数据
Response.BinaryWrite filedata '在浏览器上显示二进制数据
%＞
分析浏览器上显示的上传文件的二进制代码，发现代码包括四个部分（若同时上传多个文件或文本框，则代码按上传的先后次序排列，格式相同），每一部分的内容是用回车换行符号来进行分隔的：
1）第一部分（起始标志）
-----------------------------7d329631b04d4
2）第二部分（文件说明）
Content-Disposition: form-data; name="file1"; filename="C:Documents and SettingsAdministratorMy DocumentsInvitation.doc" Content-Type: application/msword
在此，我们可以获得上传文件的文件名称及绝对路径，也可以获得文件类型。这些信息是正确保存文件所不可缺少的。
3）第三部分（文件内容）
即文件的二进制内容，略。
4）第四部分（结束标志）
-----------------------------7d329631b04d4
结合第一部分和第四部分的内容来看，"-----------------------------7d329631b04d4"（每次上传，数值都不一样）起到了分割符的作用，它标志着一段数据（当有多个上传内容时）的开始和结束。从保存文件所需要的信息来讲，我们首先需要从第二部分数据的"filename"中获得文件名称，然后需要正确定位文件的起始位置，最后利用ASP技术将二进制文件用本来的文件名保存即可。若同时上传多个内容（如多个文本框和文件），也是按同样的方法处理，每部分的内容都包含在分割符之中，只是文本框和文件的表现形式稍有不同，这可以通过具体分析其二进制代码来了解。
3、利用ASP技术实现文件存储
上传文件代码的处理
1） 获得分割符代码
从上面的分析我们已经知道，分割符起到了分割多个数据段（包括文本框和各种类型的文件）的重要作用。前面已经分析过，分割符出现在第一个回车换行符号前。因此，通过下面这段程序就可获得分割符代码：
＜%
newline=chrB(13) & chrB(10) 'newline表示二进制的回车符
filesize=Request.TotalBytes 'filesize是上传文件的大小
filedata=Request.BinaryRead(filesize) 'filedata是上传文件的二进制数据
divider=leftB(filedata,clng(instrb(filedata,newline))-1) 'divider是分割符
%＞
注：因为这里处理的都是二进制字节码，因此，所有的函数都是使用它的二进制版本，加了"b "。
2） 获得文件（或文本框）内容
(1) 预备函数（将二进制串转化成字符串）
上传文件的内容不需要经过二进制向字符串的转换过程，直接保存就可。但是，若需提取文本框内容或文件的名称，就必须进行转换。因此，需要编写一个通用的，并且适用于汉字的转换函数。以下是该函数代码：
Function BtoS (bstr)
If not Is Null (bstr) Then
for i = 0 to lenb(bstr) - 1
bchr = midb(bstr,i+1,1)
If ascb(bchr)＞127 Then '汉字是双字节，得两个字符一起处理
temp = temp&chr(ascw(midb(bstr, i+2, 1)&bchr))
i = i+1
Else
temp = temp&chr(ascb(bchr))
End If
next
End If
BtoS = temp
End Function
(2) 获得文件（或文本框）内容
在实际的WEB应用中，上传操作可能涉及多项内容，如多个文本框、多个文件等等。文件和文本框很好区分，文件的数据中包含了"filename="字串。因此，我们写了如下的通用函数，既可用于提取文件内容，又可提取文本框内容（需进行二进制转换）：
Function getdata(byval data, byval divider, final) 'data表示二进制串；divider表示分割符；final表示数据的结束位置
filename=chrb(102)&chrb(105)&chrb(108)&chrb(101)&chrb(110)&chrb(97)&chrb(109)&chrb(101)&chrb(61)&chrb(34) '字符串"filename"的二进制表示
bncrlf=chrb(13)&chrb(10) '二进制的回车符
startpos = instrb(data,divider)+lenb(divider)+lenb(bncrlf) ' 开始位置
endpos = instrb(startpos,data, divider)-lenb(bncrlf) '结束位置
part1 = midb(data, startpos, endpos-startpos) '两个分割符之间的内容
firstline = midb(part1, 1, instrb(part1, bncrlf)-1) ' 内容之前的说明段
If (instrb(firstline,filename)=0) Then '若为文本框，获得文本框字符串内容
stemp=midb(part1,instrb(part1,bncrlf&bncrlf)+lenb(bncrlf&bncrlf),lenb(part1)-instrb(part1,bncrlf&bncrlf)+lenb(bncrlf&bncrlf))
getdata=BtoS(stemp)
Else '若为文件，获得文件二进制内容
Getdata=midb (part1, instrb (part1, bncrlf&bncrlf)+lenb (bncrlf&bncrlf), lenb (part1)
-instrb(part1,bncrlf&bncrlf)+lenb(bncrlf&bncrlf))
End If
Final=endpos
End function
在程序中直接调用该函数就可获得所需文件（或文本框）内容，如下所示：
＜%
Content=getdata (data, divider, position)
%＞
3） 获得文件名称
前面已经分析过了，上传文件数据流的"filename="字段里包含了文件的名称和绝对路 径。一般来说，我们只需提取出路径中的文件名即可，以下是程序代码：
＜%
namepos=instrrev(B2S(firstline),chr(92)) 'firstline即上面获得的说明部分数据，chr(92)
表示"/"
filename=midb(firstline,namepos+1,lenb(firstline)-namepos-1) '获得文件名称
%＞
利用ASP直接实现文件上传功能
传统的ASP程序员只能利用FILESYSTEMOBJECT对象对文本文件（.txt）进行移动、复制、删除等操作，若需处理二进制对象，则不得不采用本文前面介绍的那些方法来实现。但是，现在ASP中的ADO.STREAM对象可以同时操作文本对象和二进制对象（可以在http://www.microsoft.com/data下载），利用它就可以在ASP中直接实现文件上传功能。下面，我们就介绍其实现过程。
1）打开STREAM对象
对于SREAM对象而言，若要进行文件的保存，则必须是将该对象的全部内容进行保存。因此，我们必须要创建两个（或多个）STREAM对象，其中一个为源数据流，即接收初始的二进制数据；另一个为目的数据流，即接收来自经源数据流处理后的数据，并最终保存为所需的文件。
＜%
set str=server.CreateObject("ADODB.Stream") 'str为源数据流
str.Mode=3 '设置打开模式，3为可读可写
str.Type=1 '设置数据类型，1为二进制数据
str.Open
set desc=server.CreateObject("ADODB.Stream") 'desc为目标数据流
desc.Mode=3
Desc.Type=1
desc.Open
%＞
2）STEAM对象间内容的复制
在该部分，必须在源数据流中定位文件开始的位置，并且求出文件内容的长度，才能将文件正确的复制到目的数据流中，并且保存文件，程序代码如下：
＜%
formdata=Request.BinaryRead(Request.TotalBytes) 'formdata为上传的所有内容
str.Write formdata ' 赋值源数据流
str.position=count-lenb(result)-2 'position指出文件的开始位置
str.copyto desc, lenb(filecotent) 'lenb(filecontent)表示文件的长度
desc.SaveToFile fullpath,2 '以fullpath指定的路径及名称保存文件
%＞
3）关闭STEAM对象
编程完成后，应关闭并释放STEAM对象，如下所示：
＜%
Desc. Close
Set desc=nothing
Str. Close
Set STR=nothing
%＞
首先需要编写一个能提供文件上传功能的表单，程序如下所示：
＜Form action="upload.asp" method=post enctype="multipart/form-data"＞
上传文件：＜Input type=file name=file1＞＜br＞
＜input type=submit name=upload value="上传"＞
＜/form＞
其中，enctype参数用来设置表单的MIME编码方式，在进行文件（或同时包含文本框）上传时，必须将其属性设置为"multipart/form-data"；upload.asp是服务器端对接收到的二进制文件流进行处理的ASP程序，在本文的后面将陆续介绍其内容。
2、上传文件格式分析
在处理文件之前，我们要先了解上传的文件的具体格式，通过编写下面一段简单的ASP程序就可以查看其二进制代码：
＜%
filesize=Request.TotalBytes '获得上传文件的大小
filedata=Request.BinaryRead(filesize) '获得上传文件的二进制数据
Response.BinaryWrite filedata '在浏览器上显示二进制数据
%＞
分析浏览器上显示的上传文件的二进制代码，发现代码包括四个部分（若同时上传多个文件或文本框，则代码按上传的先后次序排列，格式相同），每一部分的内容是用回车换行符号来进行分隔的：
1）第一部分（起始标志）
-----------------------------7d329631b04d4
2）第二部分（文件说明）
Content-Disposition: form-data; name="file1"; filename="C:Documents and SettingsAdministratorMy DocumentsInvitation.doc" Content-Type: application/msword
在此，我们可以获得上传文件的文件名称及绝对路径，也可以获得文件类型。这些信息是正确保存文件所不可缺少的。
3）第三部分（文件内容）
即文件的二进制内容，略。
4）第四部分（结束标志）
-----------------------------7d329631b04d4
结合第一部分和第四部分的内容来看，"-----------------------------7d329631b04d4"（每次上传，数值都不一样）起到了分割符的作用，它标志着一段数据（当有多个上传内容时）的开始和结束。从保存文件所需要的信息来讲，我们首先需要从第二部分数据的"filename"中获得文件名称，然后需要正确定位文件的起始位置，最后利用ASP技术将二进制文件用本来的文件名保存即可。若同时上传多个内容（如多个文本框和文件），也是按同样的方法处理，每部分的内容都包含在分割符之中，只是文本框和文件的表现形式稍有不同，这可以通过具体分析其二进制代码来了解。
3、利用ASP技术实现文件存储
上传文件代码的处理
1） 获得分割符代码
从上面的分析我们已经知道，分割符起到了分割多个数据段（包括文本框和各种类型的文件）的重要作用。前面已经分析过，分割符出现在第一个回车换行符号前。因此，通过下面这段程序就可获得分割符代码：
＜%
newline=chrB(13) & chrB(10) 'newline表示二进制的回车符
filesize=Request.TotalBytes 'filesize是上传文件的大小
filedata=Request.BinaryRead(filesize) 'filedata是上传文件的二进制数据
divider=leftB(filedata,clng(instrb(filedata,newline))-1) 'divider是分割符
%＞
注：因为这里处理的都是二进制字节码，因此，所有的函数都是使用它的二进制版本，加了"b "。
2） 获得文件（或文本框）内容
(1) 预备函数（将二进制串转化成字符串）
上传文件的内容不需要经过二进制向字符串的转换过程，直接保存就可。但是，若需提取文本框内容或文件的名称，就必须进行转换。因此，需要编写一个通用的，并且适用于汉字的转换函数。以下是该函数代码：
Function BtoS (bstr)
If not Is Null (bstr) Then
for i = 0 to lenb(bstr) - 1
bchr = midb(bstr,i+1,1)
If ascb(bchr)＞127 Then '汉字是双字节，得两个字符一起处理
temp = temp&chr(ascw(midb(bstr, i+2, 1)&bchr))
i = i+1
Else
temp = temp&chr(ascb(bchr))
End If
next
End If
BtoS = temp
End Function
(2) 获得文件（或文本框）内容
在实际的WEB应用中，上传操作可能涉及多项内容，如多个文本框、多个文件等等。文件和文本框很好区分，文件的数据中包含了"filename="字串。因此，我们写了如下的通用函数，既可用于提取文件内容，又可提取文本框内容（需进行二进制转换）：
Function getdata(byval data, byval divider, final) 'data表示二进制串；divider表示分割符；final表示数据的结束位置
filename=chrb(102)&chrb(105)&chrb(108)&chrb(101)&chrb(110)&chrb(97)&chrb(109)&chrb(101)&chrb(61)&chrb(34) '字符串"filename"的二进制表示
bncrlf=chrb(13)&chrb(10) '二进制的回车符
startpos = instrb(data,divider)+lenb(divider)+lenb(bncrlf) ' 开始位置
endpos = instrb(startpos,data, divider)-lenb(bncrlf) '结束位置
part1 = midb(data, startpos, endpos-startpos) '两个分割符之间的内容
firstline = midb(part1, 1, instrb(part1, bncrlf)-1) ' 内容之前的说明段
If (instrb(firstline,filename)=0) Then '若为文本框，获得文本框字符串内容
stemp=midb(part1,instrb(part1,bncrlf&bncrlf)+lenb(bncrlf&bncrlf),lenb(part1)-instrb(part1,bncrlf&bncrlf)+lenb(bncrlf&bncrlf))
getdata=BtoS(stemp)
Else '若为文件，获得文件二进制内容
Getdata=midb (part1, instrb (part1, bncrlf&bncrlf)+lenb (bncrlf&bncrlf), lenb (part1)
-instrb(part1,bncrlf&bncrlf)+lenb(bncrlf&bncrlf))
End If
Final=endpos
End function
在程序中直接调用该函数就可获得所需文件（或文本框）内容，如下所示：
＜%
Content=getdata (data, divider, position)
%＞
3） 获得文件名称
前面已经分析过了，上传文件数据流的"filename="字段里包含了文件的名称和绝对路 径。一般来说，我们只需提取出路径中的文件名即可，以下是程序代码：
＜%
namepos=instrrev(B2S(firstline),chr(92)) 'firstline即上面获得的说明部分数据，chr(92)
表示"/"
filename=midb(firstline,namepos+1,lenb(firstline)-namepos-1) '获得文件名称
%＞
利用ASP直接实现文件上传功能
传统的ASP程序员只能利用FILESYSTEMOBJECT对象对文本文件（.txt）进行移动、复制、删除等操作，若需处理二进制对象，则不得不采用本文前面介绍的那些方法来实现。但是，现在ASP中的ADO.STREAM对象可以同时操作文本对象和二进制对象（可以在http://www.microsoft.com/data下载），利用它就可以在ASP中直接实现文件上传功能。下面，我们就介绍其实现过程。
1）打开STREAM对象
对于SREAM对象而言，若要进行文件的保存，则必须是将该对象的全部内容进行保存。因此，我们必须要创建两个（或多个）STREAM对象，其中一个为源数据流，即接收初始的二进制数据；另一个为目的数据流，即接收来自经源数据流处理后的数据，并最终保存为所需的文件。
＜%
set str=server.CreateObject("ADODB.Stream") 'str为源数据流
str.Mode=3 '设置打开模式，3为可读可写
str.Type=1 '设置数据类型，1为二进制数据
str.Open
set desc=server.CreateObject("ADODB.Stream") 'desc为目标数据流
desc.Mode=3
Desc.Type=1
desc.Open
%＞
2）STEAM对象间内容的复制
在该部分，必须在源数据流中定位文件开始的位置，并且求出文件内容的长度，才能将文件正确的复制到目的数据流中，并且保存文件，程序代码如下：
＜%
formdata=Request.BinaryRead(Request.TotalBytes) 'formdata为上传的所有内容
str.Write formdata ' 赋值源数据流
str.position=count-lenb(result)-2 'position指出文件的开始位置
str.copyto desc, lenb(filecotent) 'lenb(filecontent)表示文件的长度
desc.SaveToFile fullpath,2 '以fullpath指定的路径及名称保存文件
%＞
3）关闭STEAM对象
编程完成后，应关闭并释放STEAM对象，如下所示：
＜%
Desc. Close
Set desc=nothing
Str. Close
Set STR=nothing
%＞
