不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

老表们，推荐你们认为最好的asp文件上传控件，主要对大文件的上传，好的得高分啊！！！

楼主znjgress（四空和尚）2005-07-07 13:25:33 在 Web 开发 / ASP 提问

同志们，请推荐你们认为最好的，
asp文件上传控件，主要对大文件的上传，
好的得高分啊！！！问题点数：100、回复次数：38Top

1 楼life360（wenjian）回复于 2005-07-07 13:41:46 得分 2

aspuploadTop

2 楼znjgress（四空和尚）回复于 2005-07-07 13:49:53 得分 0

请关注，欢迎upTop

3 楼xuqingz（10分）回复于 2005-07-07 13:51:04 得分 4

SAfileup老好用了,多大都能上传,分都给我吧Top

4 楼znjgress（四空和尚）回复于 2005-07-07 14:34:23 得分 0

请关注，欢迎up
Top

5 楼dulong007（）回复于 2005-07-07 14:50:13 得分 2

稻香老农:upload_5xsoftTop

6 楼surferc（(大妹子，缘分啊！)）回复于 2005-07-07 17:53:16 得分 9

我推荐铁匠的IronSoft经过测试传上百兆的也没有问题。楼主可以试一下。

http://blog.ironsoft.net/Top

7 楼bjncut（阿当）回复于 2005-07-07 18:12:18 得分 15

还有很关键的一条必须考虑,大文件上传,必须使用状态进度条,否则实际使用过程中用户会误认为死机而产生各种误操作.asp自身的无组件上传不支持进度条,根据你的情况,强烈建议采用SAfileup,网上太多该组件的使用方法了，不用多讲。Top

8 楼zhaolj1983（小小）回复于 2005-07-07 18:48:09 得分 1

我只有帮顶的份了~1Top

9 楼kingkuf（捷克）回复于 2005-07-07 18:56:35 得分 2

我建议使用无组建上传，用这中方法安全，并且适合于任何的环境。Top

10 楼doveph（Dove）回复于 2005-07-07 19:19:29 得分 0

帮你顶，我也要Top

11 楼patchclass（黑翼）回复于 2005-07-07 19:23:58 得分 5

.asp自身的无组件上传不支持进度条
???
完全错误
楼主可以去看看宝玉的上传类Top

12 楼wanghui0380（放歌）回复于 2005-07-08 05:00:11 得分 2

abcuploadTop

13 楼白夜花寒（远藤花已谢,白夜花未寒）回复于 2005-07-08 07:24:08 得分 4

宝玉的,是用xmlload技术,比较取巧

8过百兆那都是瞎呗的,在http下,这些都不好,还是自己做控件用ftp技术吧Top

14 楼白夜花寒（远藤花已谢,白夜花未寒）回复于 2005-07-08 07:25:51 得分 2

无组件用于稳定的上传是个大玩笑.....只适合于小公司的,如果偏重于技术实力的话,还是要自己写组

件的Top

15 楼znjgress（四空和尚）回复于 2005-07-08 09:22:06 得分 0

多谢各位，我也想写一个组件，可是感觉写个不好的也没有意思，
写个好的感觉能力又不大够。
公司急用的。
对大文件的上传。

请继续关注。Top

16 楼pengxin_hyq（顽石）回复于 2005-07-08 10:12:40 得分 2

SAfileupTop

17 楼liujian098（飞天）回复于 2005-07-08 10:35:20 得分 0

楼主，是江西的吧~只有江西人才江西老表呢！Top

18 楼LGEN（）回复于 2005-07-08 10:54:39 得分 1

自己写才是最好的Top

19 楼znjgress（四空和尚）回复于 2005-07-08 14:37:49 得分 0

江西的Top

20 楼phuson（寂寞沙洲）回复于 2005-07-08 15:06:17 得分 2

无惧上传类Top

21 楼znjgress（四空和尚）回复于 2005-07-08 15:41:18 得分 0

upTop

22 楼tian_yj（天涯）回复于 2005-07-08 16:47:44 得分 1

好问题，大虾我顶你大腿一下。Top

23 楼白夜花寒（远藤花已谢,白夜花未寒）回复于 2005-07-08 18:45:04 得分 2

Option Explicit

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _
ByVal SProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _
(ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean

Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _
(ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean

Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _
ByVal dwContent As Long) As Long

Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
(ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long

Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
dwFilAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type

Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Sub Command1_Click()
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "ip地址", 0, _
"用户名", "密码", 1, 0, 0)
If lnginetconn Then
blnRC = FtpGetFile(lnginetconn, "website/address.asp", "c:\address.asp", 0, 0, 1, 0)
If blnRC Then
MsgBox "download ok!!!"
End If
InternetCloseHandle lnginetconn
InternetCloseHandle lnginet
MsgBox "close ok!!!"
Else
MsgBox "can't connect"
End If
Else
MsgBox "ftp wrong"
End If
End Sub

Private Sub Command2_Click()
Dim pData As WIN32_FIND_DATA
Dim lngHINet As Long
Dim intError As Integer
Dim strTemp As String
Dim blnRC As Boolean
pData.cFileName = String(260, 0)
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "IP地址", 0, _
"用户名", "密码", 1, 0, 0)
If lnginetconn Then
lngHINet = FtpFindFirstFile(lnginetconn, "*.*", pData, 0, 0)
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
Do
pData.cFileName = String(260, 0)
blnRC = InternetFindNextFile(lngHINet, pData)
If Not blnRC Then
Exit Do
Else
strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
End If

Loop
Text1.Text = strTemp
End If
End If
InternetCloseHandle lngHINet

InternetCloseHandle lnginetconn
InternetCloseHandle lnginet

End Sub

Top

24 楼runtu（闰土/无锡）回复于 2005-07-09 13:19:49 得分 10

aspupload~
带进度条，可以上传百兆以上的东西，速度很快~
需要留个E-mailTop

25 楼znjgress（四空和尚）回复于 2005-07-11 11:21:44 得分 0

谢谢：runtu(闰土)
xxjkzcf@163.comTop

26 楼znjgress（四空和尚）回复于 2005-07-12 15:52:13 得分 0

请继续关注Top

27 楼dfzx（）回复于 2005-07-15 21:32:25 得分 0

谢谢：runtu(闰土)
caizi-1@163.com
Top

28 楼itera（恍恍惚惚浑浑噩噩）回复于 2005-07-15 23:57:59 得分 0

谢谢：runtu(闰土)
itera@163.comTop

29 楼lireng（离人）回复于 2005-07-16 03:25:40 得分 4

就基于浏览器来说,少考虑这种大容量上传的事.组件解决了,IE也是个瓶颈.Top

30 楼hacker18（高手，终于逮到你了！）回复于 2005-07-16 09:28:46 得分 0

upload_5xsoftTop

34 楼yjm1102（）回复于 2005-07-22 09:58:35 得分 0

谢谢
yjujm1102@163.comTop

35 楼abandonship（焚酒煮剑）回复于 2005-07-22 10:14:57 得分 10

这要看你想要哪种了，有很多传大文件很快的组件：
aspcnup, abcupload(需注册), SiteGalaxyUpload的组件

upload_5xsoft无组建上传的话就相对较慢，且超过20M要等n年，并且还要将页面的执行时间加长，
否则会过期Top

36 楼abandonship（焚酒煮剑）回复于 2005-07-22 10:16:51 得分 10

若需要进度条的话就用abcupload 组件吧Top

37 楼cuixiping（无心●愚公）回复于 2005-07-22 10:19:14 得分 10

大家不要把控件和组件混为一谈，虽然是很容易混。
在web程序中，控件和组件有差别的：
控件：控件主要是只运行于客户端浏览器上的，一般有交互界面。很典型的是yahoo相册的上传工具、MSN社区的图片上传工具。
组件：主要是指运行于服务器上的，一般无交互界面。aspUpload属于此类。

当然，从广义上说，控件也是组件的一种。Top

38 楼chenhexi（和希陈）回复于 2005-07-22 11:03:50 得分 0

谢谢：runtu(闰土)
chenhexi_1982@126.comTop