100分求助文件上传问题，在线等待

Question

我要做个上传文件的系统，把文件保存到SQL-Server数据库中。注意是文件所有类型的文件就好像邮件中的附件一样，怎么做？字段类型应该是什么，有没有什么函数？

Answer 1

delphi俺不知道
asp我就晓得怎么搞

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOTable1.Append;
   TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
   ADOTable1.Post;
end;