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>'
%>