让你同时上传 1000 个文件（二）(2)

原作者:admin 添加时间:2007-05-20 原文发表:2007-05-20 人气:2

本文章共3029字，分2页，当前第2页，快速翻页：

    $writed=param($parampath);

    &upfile;
    &g_body;
}

&g_bott;

#<<<<<<<<<<<<<<<<<<<<<以下为自定义过程<<<<<<<<<<<<<<<<<<<<<<<<<

sub upfile
{
    $maxdata = 512000;
#    $writed = '../www/test/tmp/';

    $strRFname=reverse $xfile;
    $intIndex=index($strRFname,'\');
    $strNetFname=substr($strRFname,0,$intIndex);
    $strNetFname=scalar reverse $strNetFname;


    if((stat $xfile)[7]>$maxdata){
        print "Status: 411 Size Not Allowedn" .
            "Content-Type: text/htmlnAllow: POSTnn" .
            "<html><head><title>411 411 Size Not Allowed</title></head><body><h1> You got big problem.  Try again.</h1></body></html>n";
        exit 0;
    }


    binmode $xfile;
    use File::Copy;
    copy($xfile,$writed.$strNetFname);
}

sub g_head{
    print '<table border=1 align=center>';
    print '<tr><td colspan=3 align=center>文件上传结果(Upload Result)</td></tr>';
    print '<tr align=center>';
    print '    <td>SourceFile:</td>';
    print '    <td>DestFile:</td>';
    print '    <td>Upload</td>';
    print '</tr>';
}

sub g_body{
    print '<tr>';
    print '    <td>'.$xfile .'</td>';
    print '    <td>'.$writed.$strNetFname.'</td>';
    print '    <td>OK!</td>';
    print '</tr>';
}

sub g_bott{
    print '</table>';
}
----------------------------------------------------------------------
如有好的建议请 Email: gearsoft@netease.com

本文章更多内容：<<上一页 - 1 - 2

本页地址

• 让你同时上传 1000 个文件（一）

• JSP基础_IIS 配置JSP环境全攻略-jsp

• JSP基础_JDBC 入门(一)-jsp

• JSP基础_JSP由浅入深(5)—Scriptlets和HTML

• JSP基础_JSP由浅入深(1)—— 熟悉JSP服务器

• JSP基础_JDBC 入门(三)-jsp

• JSP基础_IIS 配置JSP环境全攻略-jsp

• JSP基础_在linux上建jsp環境-jsp

• jsp Servlet基础入门学习篇一、Servlet和J

• 珍藏的实用代码

• 正则表达式中的特殊字符一览