今晚不错。改写了一个文件上传的类 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.