asp利用文件上传组件实现文件上传

<%if act="upfile" then '上传相关%>





<%
dim upload,file,formpath,icount,filename,fileext
dim formname,uploadsuc,forum_upload,forumupload,upf,f_type,f_name,f_ftn,rannum
set upload=new upload_5xsoft '建立上传对象
'********************************列出所有上传文件***************************************************
for each formname in upload.objfile
set file=upload.file(formname)
if file.filesize>0 then
    '********************************检测文件类型****************************************************
    fileext=ucase(right(file.filename,4))
    uploadsuc=false
    forum_upload="rar|zip|swf|jpg|png|gif|doc|txt|chm|pdf|ace|mp3|wma|wmv|midi|avi|rm|ra|rmvb|mov|xls"
    forumupload=split(forum_upload,"|")
    for i=0 to ubound(forumupload)
        if fileext="."&trim(forumupload(i)) then
            uploadsuc=true
            exit for
        else
            uploadsuc=false
        end if
    next
    if uploadsuc=false then
        response.write "文件格式不正确[继续上传]"
        response.end
    end if
    '********************************建立文件上传的目录文件夹****************************************
    set upf=server.createobject("scripting.filesystemobject")
    if err<>0 then
        err.clear
        response.write("您的服务器不支持fso")
        response.end
    end if
    f_type= replace(fileext,".","")
    f_name= year(now)&"-"&month(now)
    if upf.folderexists(server.mappath("upload/"&f_name))=false then
       upf.createfolder server.mappath("upload/"&f_name)
    end if
    f_ftn="upload/"&f_name
    set upf=nothing
    '********************************保存上传文件至文件夹*****************************************
    randomize
    rannum=int(90000*rnd)+10000
    filename=f_ftn&"/"&day(now)&"-"&rannum&"-"&file.filename
    file.saveas server.mappath(filename)  '保存文件
        if f_type="jpg" or f_type="gif" or f_type="png" then
            response.write ""
        elseif f_type="zip" or f_type="rar" or f_type="doc" or f_type="txt" then
            response.write ""
        else
            response.write ""
        end if
        icount=icount+1
set file=nothing
end if
next
set upload=nothing '删除此对象
response.write("文件上传成功！继续上传")
%>


<%end if%>

<%call closeall%>