html规定上传文件的大小,如何限制上传文件的大小和类型?

你好，请参考这里：

一款利用asp文件上传组件把文件上传到服务器之前进行判断文件大小否超过指定大小了，本实例讲的是upload_5xsoft文件上传组件哦,file.filesize1000000就可以限制文件为多少k。

dim upload,file,formname,formpath,icount,filename,fileext

set upload=new upload_5xsoft '建立上传对象

formpath=download/ '在目录后加(/)

if right(formpath,1)/ then formpath=formpath&/

for each formname in upload.file '列出所有上传了的文件

set file=upload.file(formname) '生成一个文件对象

if file.filesize1000000 then

message=1

else '如果 filesize 20000 说明有文件数据

fileext=lcase(right(file.filename,4))

if fileext.exe and fileext.zip and fileext.rar and fileext.mxp then

message=2

else

randomize

rannum=int(90000*rnd)+10000

filename=formpath& lemongtree_ & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&rannum&fileext

file.saveas server.mappath(filename) '保存文件

if fileext=.zip then

uploadtype = zip

elseif fileext=.rar then

uploadtype = rar

elseif fileext=.mxp then

uploadtype = mxp

elseif fileext=.exe then

uploadtype = exe

end if

uploadchar = filename

size = clng(file.filesize)/1000

message=3

end if

end if

next

%

% if message=1 then%

html

head

title大小超标/title

meta http-equiv=content-type content=text/html; charset=gb2312

script language=网页特效

function error_size()

{

alert(文件大小超过1000kb，请重新选择。);

window.location=upload.asp;

}

/script

/head

body bgcolor=#f2f2f2 leftmargin=0 topmargin=0 οnlοad=error_size()

/body

/html

% elseif message=2 then%

html

head

title类型不匹配/title

meta http-equiv=content-type content=text/html; charset=gb2312

script language=javascript

function error_type()

{

alert(只能上传 zip / rar / exe /mxp 文件n请选择正确的文件类型！);

window.location=upload.asp;

}

/script

/head

body bgcolor=#f2f2f2 leftmargin=0 topmargin=0 οnlοad=error_type()

/body

/html

% elseif message=3 then%

html

head

title上传成功/title

meta http-equiv=content-type content=text/html; charset=gb2312

script language=javascript

function image_success()

{

alert(文件上传成功！);

parent.form1.url1.value=%=uploadchar %

parent.form1.size.value=%=size%k

window.location=upload.asp;

}

/script

/head

body bgcolor=#f2f2f2 leftmargin=0 topmargin=0 οnlοad=image_success()

/body

/html

% end if %

%

set file=nothing

set upload=nothing ''删除此对象

%

取消

评论