推荐一个上传效率比较高的组件吧？？？

[muzixiaoli]

偶现在急需一个上传效率高的组件，别告诉我是LYFUPLOAD，收费的也可以。
好象有人说类也行，行的话也请高手推荐。。。

谢了。。。

[xuya]

upload

[ahalf]

iFileUpload

[zwstudio2000]

无组件上传也不是没有坏处的

[muzixiaoli]

iFileUpload这个组件的免费版好象不怎么样，我需要的是上传效率高，而且上传的文件也比较大。。。不知道大家有没有用过ASPSMARTUPLOAD，这个怎么样，不过就是不支持中文。。。

[pengzan]

我也顶一下，也想要

[Jaron]

ASPUPLOAD不错
我以前也看过一个，有VB源码，编译注册后，发现还挺稳定。
需要的话，站内短信联系我，我不一定还来看这篇贴的。

[playboy88]

我觉得lyfupload挺好的，有代码和辅助的说明

[playboy88]

为什么你不用这个呢，说明一下好吗，我只初学！

[jjgn]

可以用chinaasp的上传组件

[muzixiaoli]

lyfupload上传比较大的文件就不行了。。。

[lhtyx]

用无惧上传吧，感觉还行。

[csclove]

apscnup.dll是最好的！

[chinahuman]

我用abcupload，我也不知道这个是不要要钱的，反正我用它的时候没有发现它要我注册。
这个上传的东西还是比较大的。可以达到好几M，而且功能比较完善。

[philorlogin]

顶一下，希望更多用过的人来发言！！

[Jaron]

Option Explicit

'------------------- 声明ASP对象---------------------
Private MyScriptingContext As ScriptingContext
Private MyRequest As Request
'---------------------------------------------------

'------------------定义全局变量----------------------
Private binArray() As Byte '---全部数据的数组
Private binDjf() As Byte '---定界符数组

Private intDjfLen As Integer '---定界符数组的长度
Private lngArrayLen As Long '---全部数据数组的长度
'---------------------------------------------------

Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)

'------------------定义局部变量----------------------
Dim varByteCount
Dim I
'---------------------------------------------------

'------------------建立ASP对象-----------------------
Set MyScriptingContext = PassedScriptingContext
Set MyRequest = MyScriptingContext.Request
'---------------------------------------------------

'------------------读取客户端传来的全部数据-----------
varByteCount = MyRequest.TotalBytes
lngArrayLen = varByteCount - 1
ReDim binArray(varByteCount - 1)
binArray = MyRequest.BinaryRead(varByteCount)
'---------------------------------------------------

'--------------------获取定界符---------------------
intDjfLen = 0
Do Until binArray(intDjfLen + 1) = 13
intDjfLen = intDjfLen + 1
Loop
ReDim binDjf(intDjfLen)
For I = 0 To intDjfLen
binDjf(I) = binArray(I)
Next
'---------------------------------------------------
End Sub
Private Function FindTheDjf(lngStart As Long) As Long

'******************************参数说明
'* *
'* lngStart: 寻找的起始位置 *
'* 返回值： 成功—— 找到时的地址，失败—— -1 *
'* *
'*******************************************************************

'------------------定义局部变量----------------------
Dim I As Integer
Dim s As Long
Dim DjfOk As Integer
'---------------------------------------------------

'-----------------获取定界符的起始位置--------------------
s = lngStart
Do While 1
DjfOk = 1
For I = 0 To intDjfLen
If binDjf(I) <> binArray(s + I) Then
DjfOk = 0
Exit For
End If
Next
If DjfOk = 1 Then
FindTheDjf = s
Exit Do
Else
s = s + 1
If s >= lngArrayLen - intDjfLen Then
FindTheDjf = -1
Exit Do
End If
End If
Loop
'--------------------------------------------------------------
End Function


Private Function FindTheName(nm As String) As Long
'******************************参数说明*****************************
'* *
'* nm: 要寻找的 Form 元素名 *
'* 返回值： 成功—— 找到时的地址，失败—— -1 *
'* *
'*******************************************************************

'------------------定义局部变量----------------------
Dim s As Long
Dim e As Long
Dim I As Long

Dim binTmp() As Byte
Dim strName As String
'---------------------------------------------------

'------------------寻找要取得值的Form 元素名------------------------
s = 0
Do While 1
s = FindTheDjf(s)
If s <> -1 Then
s = s + intDjfLen + 41
e = s
Do While binArray(e + 1) <> 34
e = e + 1
Loop
ReDim binTmp(e - s)
For I = s To e
binTmp(I - s) = binArray(I)
Next
strName = StrConv(binTmp, 64)
If StrComp(nm, strName) = 0 Then
FindTheName = e + 1
Exit Do
End If
Else
FindTheName = -1
Exit Do
End If
Loop
'--------------------------------------------------------------
End Function

Public Function GetTheValue(nm As String) As String
'******************************参数说明*****************************
'* *
'* nm: 要取得值的 Form 元素名 *
'* *
'*******************************************************************

'------------------定义局部变量----------------------
Dim s As Long
Dim e As Long
Dim I As Long

Dim strTmp As String
Dim binTmp() As Byte
'-----------------------------------------------------------

'-----------------寻找数据的起始位置和结束位置-----------------
s = FindTheName(nm)
If s = -1 Then
GetTheValue = ""
Exit Function
End If
s = s + 5
e = FindTheDjf(s) - 3
'-----------------------------------------------------------

'----------------处理输入的数据为空的情况------------------
If e - s < 0 Then
GetTheValue = ""
Exit Function
End If
'-----------------------------------------------------------

'-----------------得到数据值------------------------
ReDim binTmp(e - s)
For I = s To e
binTmp(I - s) = binArray(I)
Next
strTmp = StrConv(binTmp, 64)
GetTheValue = strTmp
'-----------------------------------------------------------
End Function

[Jaron]

Public Function SaveTheFile(strTag As String, strPath As String) As String

'******************************参数说明*****************************
'* *
'* strTag: HTML FORM中要上载的文件类型INPUT标签名 *
'* strPath: 目标路径名, 末尾不带"\"。如:"c:\images\upload" *
'* 返回值： 成功——文件名，失败—— "" *
'* *
'*******************************************************************

'------------------定义局部变量----------------------
Dim s As Long '起始位置
Dim e As Long '结束位置
Dim I As Long

Dim fileNo As Integer

Dim strFileName As String
Dim strTmp As String
Dim binTmp() As Byte
Dim newfile As String
'-----------------------------------------------------------

'---------得到文件名的起始位置---------------------------
s = FindTheName(strTag)
If s = -1 Then
SaveTheFile = ""
Exit Function
End If
s = s + 13
'-----------------------------------------------------------

'----------得到文件名的结束位置---------------------------
I = s
Do While 1
If binArray(I) = 34 Then
Exit Do
End If
I = I + 1
Loop
e = I - 1
'--------------------------------------------------------

'---------------处理客户端没有上载文件的情况---------------
If e - s < 0 Then
SaveTheFile = ""
Exit Function
End If
'-----------------------------------------------------------

'-------------------得到不带源路径的文件名-------------------
For I = e To s Step -1
If Chr(binArray(I - 1)) = "\" Then
s = I
Exit For
End If
Next
ReDim binTmp(e - s)
For I = s To e
binTmp(I - s) = binArray(I)
Next
strTmp = StrConv(binTmp, 64)
newfile = Year(Now()) & Month(Now()) & Day(Now()) & "_" & Replace(Time(), ":", "") & "." & Right(strTmp, 3)
strTmp = newfile
strFileName = strTmp
'-------------------------------------------------------------

'-----------------建立目标文件名-------------------------
strTmp = strPath & "\" & strTmp
'-------------------------------------------------------------

'-----------------寻找文件数据的起始位置------------------
I = e
Do While 1
If binArray(I - 4) = 13 And binArray(I - 3) = 10 And binArray(I - 2) = 13 And binArray(I - 1) = 10 Then
s = I
Exit Do
End If
I = I + 1
Loop
'-------------------------------------------------------------

'-----------------寻找文件数据的结束位置------------------
e = FindTheDjf(s) - 3
'-------------------------------------------------------------

'----------------------把文件数据存盘---------------------
fileNo = FreeFile() '为了防止存在同名文件，就先打开一个同名文件，
Open strTmp For Binary Access Write As #fileNo '然后再删除它
Put #fileNo, , "temp"
Close #fileNo
Kill strTmp

fileNo = FreeFile()
Open strTmp For Binary Access Write As #fileNo

If e - s >= 0 Then '如果 e-s<0 , 则是一个空文件
ReDim binTmp(e - s)
For I = s To e
binTmp(I - s) = binArray(I)
Next
Put #fileNo, , binTmp
End If

Close #fileNo
'-------------------------------------------------------------

SaveTheFile = strFileName '成功，返回文件名
End Function

[Jaron]

用VB编译一下就行了。呵呵。

[hanbaojun]

推荐 chinaasp 的。

[muzixiaoli]

没人应，顶一下。。。

[muzixiaoli]

好象SA-FILEUP很不错，还只是看介绍，没有具体用过呢。。。