哪位大师提供一段图片上传的code！顺便还有第三方的上传组件！谢谢！

[customer]

[cpplus]

无组件文件上传代码实例（支持多文件上传及文件和input域混合上传）

关于无组件文件上传的文章已经很多了，所以在这里我不想再解释无组件文件上传的原理。在ASP中无法将二进制文件数据直接保存成文件，所以我们一般还是利用数据库来保存用户上传的文件。

1。数据库表结构(Access)：
UserID:Text(保存上传文件的用户ID)
FileContentType:Text(用来保存上传文件的类型，eg:"Application/msword"，主要用来使用户能正确下载此文件）
FileContent:OLE Object（保存文件数据）

2。HTML文件
muploadfile.htm
<Form name="upload_file" enctype="multipart/form-data" action="muploadfile.asp" method=post>
<input type=hidden name="UserID" value="abc">
<input type=hidden name="FileUploadStart"> '这里用来表示开始文件数据上传
File to send: <BR>
<INPUT TYPE="file" name="file_up" size="30"><br>
<INPUT TYPE="file" name="file_up" size="30"><br>
<input type=hidden name="FileUploadEnd"> '这里用来表示文件数据结束
<input type=submit value=Submit>
</Form>

3。ASP文件
muploadfile.asp

<%
Response.Expires=0
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag

skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function


varByteCount = Request.TotalBytes
bnCRLF = chrB( 13 ) & chrB( 10 )
binHTTPHeader=Request.BinaryRead(varByteCount)
Divider = LEFTB( binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF ) - 1 )

'开始读非文件域的数据
Do while lenB(binHTTPHeader)>46

binHeaderData = LeftB(binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)
strHeaderData=bin2str(binHeaderData)

lngFieldNameStart=Instr(strHeaderData,"name="&chr(34))+Len("name="&chr(34))
lngFieldNameEnd=Instr(lngFieldNameStart,strHeaderData,chr(34))


strFieldName=Mid(strHeaderData,lngFieldNameStart,lngFieldNameEnd-lngFieldNameStart)
strFieldName=Trim(strFieldName)
strFieldName=Replace(strFieldName,vbcrlf,vbnullstring)

'判断文件数据时候开始
If strComp(strFieldName,"FileUploadStart",1)=0 Then
binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))
exit do
End if

DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4
DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )
strFieldValue=bin2str(binFieldValue)
strFieldValue=Trim(strFieldValue)
strFieldValue=Replace(strFieldValue,vbcrlf,vbnullstring)

'非文件上传域变量赋值
execute strFieldName&"="""&strFieldValue&""""


binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))

loop

'开始处理文件数据
Do while lenB(binHTTPHeader)>46


binHeaderData = LeftB(binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)

strHeaderData=bin2str(binHeaderData)

'读取上传文件的Content-Type
lngFileContentTypeStart=Instr(strHeaderData,"Content-Type:")+Len("Content-Type:")
strFileContentType=Trim(Mid(strHeaderData,lngFileContentTypeStart))
strFileContentType=Replace(strFileContentType,vbCRLF,vbNullString)

'读取上传的文件名
lngFileNameStart=Instr(strHeaderData,"filename="&chr(34))+Len("filename="&chr(34))
lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34))
strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd-lngFileNameStart)
strFileName=Trim(strFileName)
strFileName=Replace(strFileName,vbCRLF,vbNullString)

'读取上传文件数据
DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4
DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

If strFileName<>"" Then

binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )

'将上传的文件写入数据库
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=abc"

SQL="select * from User_File"
set rs=server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,3
rs.addnew
rs("UserID")=UserID
rs("FileContentType")=strFileContentType
rs("FileContent").AppendChunk binFieldValue
rs.update
rs.close
set rs=Nothing
conn.Close
set conn=Nothing

End if

binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))

loop
%>

4。下载用户上传的文件
<%
Response.Buffer = true
Response.Clear

UserID=request("UserID")

Set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "DSN=UploadFile"
rs.open "select * from User_File where UserID='"&UserID&"'",conn,3,3
Response.ContentType = rs("FileContentType")

lngOffset=0
conChunkSize=1024
lngPictSize=rs("FileContent").ActualSize
Do While lngOffset < lngPictSize
varChunk = rs("FileContent").GetChunk(conChunkSize)
Response.BinaryWrite varChunk
lngOffset = lngOffset + conChunkSize
If lngOffset > lngPictSize Then Exit Do
Loop

rs.close
set rs=Nothing
conn.close
set conn=nothing
%>

[希偌]

现在ＪＳＰ被越来越多的人应用在后台程序的开发及动态网页的制作上了，今天就来介绍一下如何用ＪＳＰ来实现文件的上载。

　　一、ＲＦＣ１８６７规范

　　在过去的Ｈｔｍｌ中，表单不能实现文件的上传，这多少限制了一些网页的功能。ＲＦＣ１８６７规范（即Ｈｔｍｌ中实现基于表单的文件上传）对表单作出了扩展，增加了一个表单元素&:ltｉｎｐｕｔ ｔｙｐｅ＝ｆｉｌｅ＞。通过使用这个元素，浏览器会自动生成一个输入框和一个按钮，输入框可供用户填写本地的文件名和路径名，按钮可以让浏览器打开一个文件选择框供用户选择文件。具体的表单实现如下：

　　＜ＦＯＲＭ ＡＣＴＩＯＮ＝ｕｐｌｏａｄ．ｊｓｐ ＥＮＣＴＹＰＥ＝″ｍｕｌｔｉｐａｒｔ／ｆｏｒｍ－ｄａｔａ″ ＭＥＴＨＯＤ＝ＰＯＳＴ＞
　　Ｐｌｅａｓｅ ｉｎｐｕｔ ｙｏｕｒ ｎａｍｅ
　　＜ｉｎｐｕｔ ｔｙｐｅ＝ｔｅｘｔ ｎａｍｅ＝ｕｓｅｒ＞＜ｂｒ＞ Ｐｌｅａｓｅ ｇｉｖｅ ｕｓ ｔｈｅ ｆｉｌｅ
　　＜ＩＮＰＵＴ ＴＹＰＥ＝ＦＩＬＥ ＮＡＭＥ＝ｆｉｌｅ１＞
　　＜ｉｎｐｕｔ ｔｙｐｅ＝ｓｕｂｍｉｔ ｖａｌｕｅ＝″Ｓｅｎｄ ｆｉｌｅ″＞
　　＜／ＦＯＲＭ＞

　　特别需要指出的是，只有Ｎｅｔｓｃａｐｅ ３和ＩＥ３．０２以后的版本才支持此规范，而且我们实践下来发现文件选择按钮是浏览器自动生成的，因而按钮的文字和浏览器版本有很大的关系，如果是中文的ＩＥ，按钮的文字是“打开．．．”；英文的Ｎｅｔｓｃａｐｅ则显示“Ｂｒｏｗｓｅ．．．”；如果是Ｏｐｅｒａ，则只有″．．．″。用户没办法自己设定按钮文字，不能不说是一种遗憾。除了浏览器，网络服务器也要能支持此规范，好在现在市面上绝大部分服务器软件都没有问题，微软的ＩＩＳ在增加一个插件后也能很好地支持此规范。

　　 二、组件的安装

　　在用户端实现文件上传后，就要用ＪＳＰ来处理用户的上传请求。我们可以去ｗｗｗ．ｊｓｐｓｍａｒｔ．ｃｏｍ下载一个免费的组件来实现这一功能。在安装之前先确认你的ＪＳＰ服务器软件支持ＪＤＫ１．２．２和ＪＳＰ１．１，然后只要在Ｓｅｒｖｅｒ的ｃｌａｓｓ路径中加入该组件所在的目录就可以了。

　　三、程序实现

　　１．文件上传

　　＜％＠ ｐａｇｅ ｌａｎｇｕａｇｅ＝″ｊａｖａ″ ｉｍｐｏｒｔ＝″ｃｏｍ．ｊｓｐｓｍａｒｔ．ｕｐｌｏａｄ．″％＞
　　 ＜ＨＴＭＬ＞
　　 ＜ＢＯＤＹ ＢＧＣＯＬＯＲ＝″ｗｈｉｔｅ″＞
　　 ＜Ｈ１＞ｊｓｐＳｍａｒｔＵｐｌｏａｄ ＜／Ｈ１＞
　　 ＜ＨＲ＞
　　 ＜％ ｉｎｔ ｃｏｕｎｔ＝０ ／／设置变量 ＳｍａｒｔＵｐｌｏａｄ ｍｙＳｍａｒｔＵｐｌｏａｄ＝ｎｅｗ ＳｍａｒｔＵｐｌｏａｄ
 ｍｙＳｍａｒｔＵｐｌｏａｄ．ｉｎｉｔｉａｌｉｚｅｐａｇｅＣｏｎｔｅｘｔ ／／初始化
　　 ｍｙＳｍａｒｔＵｐｌｏａｄ．ｕｐｌｏａｄ ／／上传 ｒｙ
　　ｃｏｕｎｔ ＝ ｍｙＳｍａｒｔＵｐｌｏａｄ．ｓａｖｅ″／ｕｐｌｏａｄ″ ／／把上传的文件保存在／ｕｐｌｏａｄ目录下 ｏｕｔ．ｐｒｉｎｔｌｎｃｏｕｎｔ ＋ ″ ｆｉｌｅｓ ｕｐｌｏａｄｅｄ．″ ／／显示上传了多少个文件
　　 ｃａｔｃｈ Ｅｘｃｅｐｔｉｏｎ ｅ  ｏｕｔ．ｐｒｉｎｔｌｎｅ．ｔｏＳｔｒｉｎｇ ％＞
　　 ＜／ＢＯＤＹ＞
　　 ＜／ＨＴＭＬ＞

　　需要注意：调试的时候要确认上传文件所存储的目录有可写属性。

　　２．表单处理

　　由于上传文件的表单使用了 ＥＮＣＴＹＰＥ＝″ｍｕｌｔｉｐａｒｔ／ｆｏｒｍ－ｄａｔａ″属性，所以在ＪＳＰ中处理表单传递的值的时候不能再简单地使用ｒｅｑｕｅｓｔ．ｇｅｔＰａｒａｍｅｔｅｒ了，而应该这样来处理：

　　＜％＠ ｐａｇｅ ｌａｎｇｕａｇｅ＝″ｊａｖａ″ ｉｍｐｏｒｔ＝″ｃｏｍ．ｊｓｐｓｍａｒｔ．ｕｐｌｏａｄ．″％＞
　　 ＜ＨＴＭＬ＞
　　 ＜ＢＯＤＹ ＢＧＣＯＬＯＲ＝″ｗｈｉｔｅ″＞
　　 ＜Ｈ１＞ｊｓｐＳｍａｒｔＵｐｌｏａｄ ＜／Ｈ１＞
　　 ＜ＨＲ＞
　　 ＜％ ＳｍａｒｔＵｐｌｏａｄ ｍｙＵｐｌｏａｄ＝ｎｅｗ ＳｍａｒｔＵｐｌｏａｄ ｍｙＵｐｌｏａｄ．ｉｎｉｔｉａｌｉｚｅｐａｇｅＣｏｎｔｅｘｔ ｍｙＵｐｌｏａｄ．ｕｐｌｏａｄ ｏｕｔ．ｐｒｉｎｔｌｎ″Ｎｕｍｂｅｒ ｏｆ ｆｉｌｅｓ ＝ ″ ＋ ｍｙＵｐｌｏａｄ．ｇｅｔＦｉｌｅｓ．ｇｅｔＣｏｕｎｔ ＋ ″＜ＢＲ＞″ ｏｕｔ．ｐｒｉｎｔｌｎ″
　　 ＜ＢＲ＞
　　 ＜ＢＲ＞
　　 ＜ＳＴＲＯＮＧ＞Ｄｉｓｐｌａｙ ｉｎｆｏｒｍａｔｉｏｎ ａｂｏｕｔ Ｒｅｑｕｅｓｔｓ＜／ＳＴＲＯＮＧ＞
　　 ＜ＢＲ＞″
　　 Ｓｔｒｉｎｇ［ ］ｖａｌｕｅｓ ＝ ｍｙＵｐｌｏａｄ．ｇｅｔＲｅｑｕｅｓｔ
．ｇｅｔＰａｒａｍｅｔｅｒＶａｌｕｅｓ″ｆｏｒｍｔａｇ″ ／／ｆｏｒｍｔａｇ为表单中元素的ｎａｍｅ，返回的值为字符数组中第一个元素。 ｏｕｔ．ｐｒｉｎｔｋｅｙ ＋ ″ ＝ ″＋ｖａｌｕｅｓ０
 ％＞
　　 ＜／ｂｏｄｙ＞
　　 ＜／ｈｔｍｌ＞

　　３．其他ＡＰＩ ｍｙＵｐＬｏａｄ．ｓｅｔＡｌｌｏｗｅｄＦｉｌｅｓＬｉｓｔ″ｔｘｔｄｏｃｘｌｓ″

 设定可以上传的文件的后缀名； ｍｙＵｐＬｏａｄ．ｓｅｔＤｅｎｉｅｄＦｉｌｅｓＬｉｓｔ″ｂａｔｅｘｅｃｏｍｊｓｐ″ 设定不能上传的文件的后缀名；

　　ｍｙＵｐＬｏａｄ．ｓｅｔＭａｘＦｉｌｅＳｉｚｅ１０００００ 设定单个文件的最大字节数；

　　 ｍｙＵｐＬｏａｄ．ｓｅｔＴｏｔａｌＭａｘＦｉｌｅＳｉｚｅ１０００００ 设定所有上传文件的最大字节数；

　　 ｍｙＵｐｌｏａｄ．ｕｐｌｏａｄＩｎＦｉｌｅ″／ｍｙＤａｔａ．ｔｘｔ″ 把表单的内容全部存储到ｍｙＤａｔａ．ｔｘｔ保存；

　　ｍｙＵｐｌｏａｄ．ｇｅｔＦｉｌｅｓ．ｇｅｔＣｏｕｎｔ 获得上传的文件的个数；

　　ｍｙＵｐｌｏａｄ．ｇｅｔＦｉｌｅｓ．ｇｅｔＳｉｚｅ 获得上传的文件的总字节数；

　　 ｍｙＵｐｌｏａｄ．ｇｅｔＦｉｌｅｓ．ｇｅｔＦｉｌｅｉｄ．ｇｅｔＦｉｌｅＮａｍｅ 获得指定ＩＤ号文件的文件名；

　　 ｍｙＵｐｌｏａｄ．ｇｅｔＦｉｌｅｓ．ｇｅｔＦｉｌｅｉｄ．ｇｅｔＦｉｌｅＰａｔｈＮａｍｅ 获得指定ＩＤ号文件的路径名；

　　 ｍｙＵｐＬｏａｄ．ｇｅｔＦｉｌｅｓ．ｇｅｔＦｉｌｅ０．ｉｓＭｉｓｓｉｎｇ 返回一布尔值以确定用户是否上传了文件。

　　四、其他功能 ＪｓｐＳｍａｒｔＵｐｌｏａｄ除了能把上传文件保存到硬盘，还能直接把文件插入到数据库，同时还能实现文件下载的功能，相信随着大家的深入研究，一定能将这一功能更好地应用到自己的实践中去。

[customer]

我把 表User_File 建立好之后，并且建立了abc 的 Dsn ，但是执行是出现错误
Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'conn'

/muploadfile.asp，行110
是 '开始处理文件数据 里面的conn
什么原因？

[customer]

cpplus(百合_长发披肩) 我上面的问题是针对你的！
beyond_xiruo(希偌) ，谢谢你哦，我用的是ASP的，下次用到JSP的时候我参考你的！