Intraweb中上传文件如何限制上传文件的大小和文件类型

Intraweb中上传文件如何限制上传文件的大小和文件类型
1.用到的控件：IWFile1、IWButton1、IWEdit1
2.IWButton1的ScriptEvents的onMouseDown中加入以下代码，获取IWFile1控件中选取的完整文件名，并赋值给IWEdit1：
  IWEDIT1IWCL.value=IWFILE1.document.forms[0].IWFILE1.value;
3.IWButton1的OnClick事件使用以下代码：
 
var
   f: file of Byte;
   size: Longint;
begin
 if FileExists(IWEdit1.Text) then
    begin
       AssignFile(f, IWEdit1.Text);
       Reset(f);
       try
         size := FileSize(f);
       finally
         CloseFile(f);
       end;
//提示准备上传的文件大小
//       lablFileInfo.Caption :=IWEdit1.Text+'File size in bytes: ' + IntToStr(size);
      if ((UpperCase(rightstr(IWEdit1.Text,4))<>'.JPG') and (UpperCase(rightstr(IWEdit1.Text,4))<>'.BMP') and (UpperCase(rightstr(IWEdit1.Text,4))<>'.GIF')) then
         webapplication.ShowMessage('只能上传*.bmp,*.jpg和*.gif类型的相片文件！')
      else
        if size/1024/1024>2 then
           webapplication.ShowMessage('文件太大，请上传小于2M的文件！')
        else
         begin
          IWFIle1.SaveToFile(ExtractFilePath(ParamStr(0)) +'\UpLoads\'+usersession.T_zkzh+rightstr(iwfile1.Filename,4));
          IWEdit1.Text:= IWEdit1.Text+'成功上传到服务器！ ';
         end;
    end
 else
    webapplication.ShowMessage('未找到选定的文件，请检查该文件是否存在！');
//   lablFileInfo.Caption :=iwfile1.Filename;
 
end;