<% dim pass pass=false set upfile=new upfile_class ''建立上传对象 upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;css;php;" '设置上传类型的黑名单 upfile.GetData (10240000) '取得上传数据,限制最大上传10M if upfile.isErr then '如果出错 select case upfile.isErr case 1 Response.Write "你没有上传数据" case 2 Response.Write "你上传的文件超出限制,最大10M" end select else FPath=Server.mappath("../../uploadfile") for each formName in upfile.file '列出所有上传了的文件 set oFile=upfile.file(formname) FileName=oFile.filename ' upfile.SaveToFile formname,FPath&"\"&FileName ''保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名 FileName=upfile.AutoSave(formname,FPath&"\"&FileName) if upfile.iserr then Response.Write upfile.errmessage else pass=true '上传成功 Form_Name=upfile.form("Form_Name") UploadFile=upfile.form("UploadFile") end if set oFile=nothing next end if set upfile=nothing '删除此对象 if pass then response.Write("√ 文件上传成功！") else response.Write("[返回]") end if %>