国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

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/"                           

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"

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 平邑县| 蓝田县| 阆中市| 卢湾区| 呼和浩特市| 东山县| 天门市| 乌鲁木齐县| 淳化县| 贺州市| 昌邑市| 公主岭市| 三都| 尚义县| 武义县| 玉溪市| 溧水县| 芒康县| 甘孜县| 元氏县| 杨浦区| 万山特区| 资兴市| 务川| 巴塘县| 东安县| 神农架林区| 青川县| 固阳县| 额敏县| 贵德县| 富民县| 广宁县| 彝良县| 平顺县| 海宁市| 侯马市| 屏边| 涟源市| 青岛市| 仪征市|