第一步:下载AspUpload v3.0,我使用的是3.0,当然你也可以下载最新版。下载后文件截图:
第二步:修改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
%>