AspUpload 组件下传 安装方法及其Demo(全)

第一步：下载AspUpload v3.0，我使用的是3.0，当然你也可以下载最新版。下载后文件截图：

执行 aspuoload3.exe安装。

第二步：修改IIS配置文件，我使用的是IIS7.5，我设置了最大限制100M。

设置完后 修改C:\Windows\System32\inetsrv\config\applicationHost.config。

网上搜了一堆，都只是说修改什么web.config。我是没有找到这个文件，可能是版本问题吧。

具体修改如图：

requestLimits 默认没有需要加上这一行，属性是设置上传大小限制，我设置了100M。

?

以上设置完后，就可以使用了。

<%
On Error Resume Next
Server.ScriptTimeOut=999999
if request("act")="upload" Then
	responde.write UploadLimitSize
	dim folder,savepath
	savepath=Server.MapPath(UploadFilePath)
	CreateFolder(savepath)
	Set Upload=Server.CreateObject("Persits.Upload")
	Upload.SetMaxSize UploadLimitSize*1024, True
	Upload.OverwriteFiles = false
	if Request.QueryString("PID") = "" then
		Upload.ProgressID="010D60EB00C5AA4B"
	else
		Upload.ProgressID=Request.QueryString("PID")
	end if
	Count=Upload.Save(savepath)
	If Err.Number <> 0 Then
		Response.Write "<div style=""color:red;font-size:12px;"">出现错误: " & Err.Number & "、" & Err.Description &"<a href=""javascript:history.go(-1)"">重新上传</a></div>"
	End If
	If Err.Number = 8 Then
		Response.Write "<div style=""color:red;font-size:12px;"">你上传的文件超过限制（"& UploadLimitSize/1024 &"M）<a href=""javascript:history.go(-1)"">重新上传</a></div>" 
		response.end
	end if
	dim inputname,runum,cname 
	runum = int(999*rnd) 
	cname = year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
	dim size,rs_upfile
	For Each File in Upload.Files
		if not  CanUpload(File.ext) then
			File.Delete
			response.write "<div style=""color:red;font-size:12px;"">"&file.filename &"("& file.size &") 格式不正确！<a href=""javascript:history.go(-1)"">重新上传</a></div>"
		Else
			File.SaveAs savepath & "/" & cname & File.ext 
			response.write "<div style=""color:green;font-size:12px;""> "&file.filename &"("& file.size &") 123上传成功"%><a href="javascript:history.go(-1)">重新上传</a></div><%
		end if
	next
else
%>

??