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

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 err0 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("文件上传成功！")
%>