asp限制上传文件大小实例

2019-11-02 15:10:18

字体：大中小

来源：转载

供稿：网友

一款利用asp文件上传组件把文件上传到服务器之前进行判断文件大小否超过指定大小了，本实例讲的是upload_5xsoft文件上传组件哦,file.filesize>1000000就可以限制文件为多少k。

dim upload,file,formname,formpath,icount,filename,fileext
set upload=new upload_5xsoft '建立上传对象
formpath="download/"

国内电影[www.aikan.tv/xzhtml/11/]

;     '在目录后加(/)
if right(formpath,1)<>"/" then formpath=formpath&"/"
for each formname in upload.file            '列出所有上传了的文件
set file=upload.file(formname)                '生成一个文件对象
if file.filesize>1000000 then
    message=1
else                                        '如果 filesize <20000 说明有文件数据
    fileext=lcase(right(file.filename,4))
    if fileext<>".exe" and fileext<>".zip" and fileext<>".rar" and fileext<>".mxp" then
        message=2
    else
        randomize
        rannum=int(90000*rnd)+10000
        filename=formpath& "lemongtree_" & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum&fileext
        file.saveas server.mappath(filename)    '保存文件
        if fileext=".zip" then
            uploadtype = "zip"
        elseif fileext=".rar" then
            uploadtype = "rar"
        elseif fileext=".mxp" then
                uploadtype = "mxp"
        elseif fileext=".exe" then
                uploadtype = "exe"

上一篇：PHP Hash算法：Times33算-法代码实例

下一篇：PHP中预定义的6种!接口介绍