无组件上传文件，一个函数搞定

.zip
'返回值：返回上传信息，也可自己根据须要设定返回值
'前提：set upload=new upload_5xsoft ''建立上传对象
' set file1=upload.file("file1") ''生成一个文件对象
'Designer:suercool
function upfile(file1,savepath,maxsize,savetype)
if file1.filename="" and file1.filesize<=0 then
upfile="<script language='javascript'>alert('文件不存在!')</script>"
exit function
end if

if maxsize<>"0" and file1.filesize>clng(maxsize)*1024 then
upfile="<script language='javascript'>alert('文件大小超过了限制，最大只能上传" & cstr(maxsize) & "Kb的文件！')</script>"
exit function
end if

dim filename,filetype
filename=file1.filename
filetype=getfiletype(filename)

if savetype<>"0" then
dim arrtype,i,foundtype
arrtype=split(savetype,"

关键词：无组件上传文件，一个函数搞定