AspUpload组件上传例子代码

AspUpload 组件上传代码，下载Aspupload.dll和例子代码。

上传进度条如图所示：

uploadfile.asp代码，其它代码参见 rar 文件：

<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="Keywords" content="51windows.Net"> <meta name="Author" content="haiwa"> <title>Upload -51windows.Net</title> <style>  </style> </head> <body> <% On Error Resume Next Server.ScriptTimeOut=999999 if request("act")="upload" then 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 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 '这下面三行代码功能为改名，如果不要改名，请去掉 dim NewName NewName = year(now) & "-" & month(now) & "-" & day(now) & "-" & hour(now) & "-" & minute(now) & "-" & second(now) & File.ext File.Move savepath & "\" & NewName response.write "<div style=""color:green;font-size:12px;""> 上传成功"%><a href="javascript:history.go(-1)">重新上传</a></div><% end if next else %> <% dim SPid,PID,barref Set UploadProgress = Server.CreateObject("Persits.UploadProgress") SPid = UploadProgress.CreateProgressID() PID = "PID=" & SPid barref = "framebar.asp?to=10&" & PID %> <SCRIPT LANGUAGE="JavaScript"> function ShowProgress() { strAppVersion = navigator.appVersion; if (document.MyForm.FILE1.value != "") { if (strAppVersion.indexOf('MSIE') != -1 && strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4) { winstyle = "dialogWidth=375px; dialogHeight:175px; center:yes;status:no"; window.showModelessDialog('<% = barref %>&b=IE',window,winstyle); } else { window.open('<% = barref %>&b=NN','','width=370,height=165', true); } } return true; } function chk() { if (MyForm.FILE1.value=="") { alert("请从硬盘选择你要上传的文件..."); return false; } } </SCRIPT> <FORM NAME="MyForm" method="post" ENCTYPE="multipart/form-data" ACTION="?<% = PID %>&act=upload" OnSubmit="return ShowProgress();"> <INPUT NAME="FILE1" TYPE="FILE" SIZE="16"> <input name="Submit" type="submit" value="上传" onclick="return chk()"></FORM> <%end if%> </body> </html>

上传后改名的方法：File.Move savepath & "\" & NewName