程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp限制上傳文件大小實例

asp限制上傳文件大小實例

編輯:關於ASP編程

            一款利用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"
            end if
            uploadchar = filename       
            size = clng(file.filesize)/1000
            message=3
        end if
    end if
    next
    %>
    <% if message=1 then%>
    <html>
    <head>
    <title>大小超標</title>
    <meta http-equiv="content-type" content="text/html; charset=gb2312">
    <script language=網頁特效>
    function error_size()
    {
        alert("文件大小超過1000kb,請重新選擇。");
        window.location="upload.asp";
    }
    </script>
    </head>
    <body bgcolor="#f2f2f2" leftmargin="0" topmargin="0" onload="error_size()">
    </body>
    </html>
    <% elseif message=2 then%>
    <html>
    <head>
    <title>類型不匹配</title>
    <meta http-equiv="content-type" content="text/html; charset=gb2312">
    <script language=javascript>
    function error_type()
    {
        alert("只能上傳  zip / rar / exe /mxp 文件n請選擇正確的文件類型!");
        window.location="upload.asp";
    }
    </script>
    </head>
    <body bgcolor="#f2f2f2" leftmargin="0" topmargin="0" onload="error_type()">
    </body>
    </html>
    <% elseif message=3 then%>
    <html>
    <head>
    <title>上傳成功</title>
    <meta http-equiv="content-type" content="text/html; charset=gb2312">
    <script language=javascript>
    function image_success()
    {
        alert("文件上傳成功!");
        parent.form1.url1.value="<%=uploadchar %>"
        parent.form1.size.value="<%=size%>k"
        window.location="upload.asp";
    }
    </script>
    </head>
    <body bgcolor="#f2f2f2" leftmargin="0" topmargin="0" onload="image_success()">
    </body>
    </html>
    <% end if %>
    <%
    set file=nothing
    set upload=nothing  ''刪除此對象
    %>

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved