最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp限制上传文件大小实例
时间:2010-11-01 编辑:简简单单 来源:一聚教程网
'一款利用asp文件上传组件把文件上传到服务器之前进行判断文件大小否超过指定大小了,本实例讲的是upload_5xsoft文件上传组件哦,file.filesize>1000000就可以限制文件为多少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.filesize>1000000 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%>
<% elseif message=2 then%>
<% elseif message=3 then%>
<% end if %>
<%
set file=nothing
set upload=nothing ''删除此对象
%>
-
上一个: asp js QQ客服代码
-
下一个: asp 字节转换kb mb GB函数
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14