Aspupload组件使用实例代码.doc

Aspupload组件使用实例代码.txt每个女孩都曾是无泪的天使，当遇到自己喜欢的男孩时，便会流泪一一，于是坠落凡间变为女孩，所以，男孩一定不要辜负女孩，因为女孩为你放弃整个天堂。朋友,别哭,今夜我如昙花绽放在最美的瞬间凋谢,你的泪水也无法挽回我的枯萎bar.asp%Response.Expires = -1PID = Request(PID)TimeO = Request(to)Set UploadProgress = Server.CreateObject(Persits.UploadProgress)format = 正在上传，请耐心等待.%T%t%B3%T 速度：(%S/秒) 估计剩余时间：%R %r%U / %V(%P)%l%tbar_content = UploadProgress.FormatProgress(PID, TimeO, #00007F, format)If = bar_content Then%Upload Finishedfunction CloseMe()window.parent.close();return true;meta HTTP-EQUIV=Refresh CONTENT=1;URL=Uploading Files.body,td font-family:Tahoma; font-size: 8pt td.spread font-size: 6pt; line-height:6pt td.brick font-size:6pt; height:12pxfileconfig.asp0 thenCanUpload = falseelseCanUpload = trueend ifend functionFunction CreateFolder(Filepath)Dim fso, fon error resume nextSet fso = CreateObject(Scripting.FileSystemObject)if not fso.FolderExists(Filepath) thenSet f = fso.CreateFolder(Filepath)set f = Nothingend ifset fso = NothingEnd Function%framebar.asp正在上传.td font-family:Tahoma; font-size: 8pt IFRAME src=bar.asp?PID= title=Uploading noresize scrolling=noframeborder=0 framespacing=10 width=369 height=115取消上传uploadfile.aspUpload -51windows.Net%On Error Resume NextServer.ScriptTimeOut=999999if request(act)=upload thendim folder,savepathsavepath=Server.MapPath(UploadFilePath)CreateFolder(savepath)Set Upload=Server.CreateObject(Persits.Upload)Upload.SetMaxSize UploadLimitSize*1024, TrueUpload.OverwriteFiles = falseif Request.QueryString(PID) = thenUpload.ProgressID=010D60EB00C5AA4BelseUpload.ProgressID=Request.QueryString(PID)end ifCount=Upload.Save(savepath)If Err.Number 0 ThenResponse.Write 出现错误: & Err.Number & 、 & Err.Description &重新上传End IfIf Err.Number = 8 ThenResponse.Write 你上传的文件超过限制（& UploadLimitSize/1024 &M）重新上传 response.endend ifdim inputnamedim size,rs_upfileFor Each File in Upload.Filesif not CanUpload(File.ext) thenFile.Deleteresponse.write &file.filename &(& file.size &) 格式不正确！重新上传elsedim NewNameNewName = year(now) & - & month(now) & - & day(now) & - & hour(now) & - & minute(now) & - & second(now) & File.extFile.Move savepath & & NewNameresponse.write 上传成功%重新上传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(&b=IE,window,winstyle);elsewindow.open(&b=NN,width=370,height=165, true);return true;function chk()if (MyForm.FILE1.value=)alert(请从硬盘选择