哈哈。终于找到问题了。写错方法了。呵呵

来源：互联网发布：勇者之塔圣痕激化数据编辑：程序博客网时间：2024/05/17 01:54

今晚不错。改写了一个文件上传的类 UP_LOADCS.PAS

unit up_loadcs;

interface
uses System.Collections, System.ComponentModel,System.IO,System.Web, System.Web.SessionState,
System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls;
type
Tup_loadcs = class(System.Web.UI.Page)
private

{ Private Declarations }
public

constructor Create;
function up(file2:System.Web.UI.HtmlControls.HtmlInputFile): string;

end;

implementation

constructor Tup_loadcs.Create;
begin
inherited Create;
end;

function Tup_loadcs.up(file2:System.Web.UI.HtmlControls.HtmlInputFile): string;
var ty,ss:string;

begin
      //if (File2.PostedFile.ContentLength.ToString() ='0')
            // TODO: 在此处添加构造函数逻辑
            //

if (File2.PostedFile.ContentLength.ToString ='0') then
begin

                 Result:= '上传失败或指定的文件不存在';
      end
          else
              begin
              //获取文件名称

              ss :=System.DateTime.Now.ToString().Replace('-','').Replace(' ',
                '').Replace(':','')+Path.GetExtension(File2.PostedFile.FileName);
              if (File2.PostedFile.ContentLength/1024>10240)   then
              Result:= '您的文件过大，不能上传！'
              else
                    begin
                       ty:=File2.PostedFile.ContentType;
                      if (ty='image/gif') or (ty='image/pjpeg') then
                        begin
                        File2.PostedFile.SaveAs(
                          System.Web.HttpContext.Current.Server.MapPath('../' +
                            'UpLoad/') + ss);
                        Result:= ss;
                        //Up= ss;
                        end
                        else
                          begin
                          Result:= '限制上传！';
                          end;
                      end;
                end;

end;

end.