http://soft.huweishen.com/soft/47.html
AspUpload對ASP編程人員來說要實現ASP網站文件上傳功能它是首選。本文就為大家介紹一下AspUpload組件的安裝及使用方法，其中還附帶了AspUpload安裝的常見問題解答及一個使用AspUpload實現文件上傳的實例。
組件簡介：
asp上傳組件，能夠實現以下功能：
a.限制上載文件的大小
b.設置用戶的權限
c.修改文件屬性
d.同時上載多個文件
e.能夠將文件保存到數據庫中
f.支持文件刪除，自動生成與服務器上文件不同名的文件
g.擁有管理權限的用戶甚至可以使用該控件進行遠程注冊
1、AspUpload的安裝：
1）下載該軟件，軟件下載地址：http://www.027down.com/view/540.html 。
2）下載完成后，解壓到任意文件夾，點擊“AspUpload 3.0.0.6.exe”即可激活安裝向導開始安裝，AspUpload的安裝操作十分簡單，下面就簡單貼幾張安裝圖：
圖一：安裝向導啟動
圖二：輸入注冊碼，詳見“!)注冊碼.txt”文件
圖三：安裝進度顯示，安裝期間會提示需要重新啟動下IIS
圖四：安裝完成
2、AspUpload的安裝時常見的錯誤及解決方法：
1）出現“不支持 Aspupload3.0組件上傳，服務器可能未安裝該組件”錯誤：
a、原因：服務器可能不支持aspjpeg組件和水印圖片。
解決方法：登陸后台，點擊【基本設置】-【上傳設置】，將“選取生成預覽圖片組件”設置為“關閉”，再將“圖片水印設置開關”設置為“關閉水印效果”。再次上傳圖片就可能會解決你的問題了。
b、原因：可能是Aspupload組件的問題。
解決方法：1、嘗試在服務器上重新安裝這個軟件。
2、更新程序中使用的文件上傳組件，如無組上傳方式。
2）出現“無權限調用組件”的錯誤：
原因：可能是你的IIS無權限調用Aspupload組件所導致的。
解決方法：登錄服務器, 找到安裝目錄中的“AspUpload.dll”這個文件, 給它分配IIS用戶組的'讀取和運行'權限，應該就可以解決這一問題了。
二、使用AspUpload組件上傳實例：
其實使用AspUpload組件實現文件上傳挺簡單的，只需要好好利用它其中的方法就可以了，下文就為大家簡單的寫了一個上傳實例：
<!--#include file='conn.asp'-->
<!--#include file='ubb.asp'-->
<%
Set upfile = Server.CreateObject('Persits.Upload.1')
fw_size=512000
Server.ScriptTimeOut=60
dim fileE,ranNum,imgurl,img_name,fw_sort,fw_sppd
FSPath=Server.mappath('./')&'\upload\' '圖片存放的文件夾
upfile.Save '上傳載入內存
For Each File in upfile.Files '顯示有上傳的文件列表
fit=LCase(File.ImageType) '讀取圖片類型
if fit='unknown' then fit='' '不是圖片類型
if fit<>'gif' and fit<>'jpg' and fit<>'' then '文件類型判斷
set upfile=nothing
Response.Write'<script language=JavaScript>'
Response.Write'alert(''我們只支持上傳GIF或JPG圖片文件!'');'
Response.Write'javascript:history.back(1);'
Response.Write'</script>'
Response.end
end if
if File.size >fw_size then '文件大小判斷
set upfile=nothing
Response.Write'<script language=JavaScript>'
Response.Write'alert(''你上傳的文件超出我們的限制,最大'&fw_size/1024&'K!'');'
Response.Write'javascript:history.back(1);'
Response.Write'</script>'
Response.end
end if
next
For Each File in upfile.Files '開始上傳文件
fileE=LCase(File.ImageType) '讀取圖片類型
set oFile=upfile.files(File.Name)
if fileE<>'' then '圖片不為空時寫
randomize
ranNum=int(90000*rnd)+10000
filename='guest_'&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&'.'&fileE
oFile.SaveAs FSPath&FileName
imgurl=imgurl+filename&';'
end if
set oFile=nothing
next
'這里添加上傳信息
sql='select * from house'
rs.open sql,conn,1,3
rs.addnew
rs('mytype')=upfile.form('mytype')
rs('imgurl')=imgurl
rs.update
rs.close
Response.Write'<script language=JavaScript>'
Response.Write'alert(''信息發布成功'');'
Response.Write'window.location='index.asp''
Response.Write'</script>'
%>