UC知道怎样限制文件大小！
来源：百度知道 编辑：UC知道 时间：2024/06/11 02:01:04
我要限制上传的图片大小为200K。
下面是我上传的代码，没有限制。
<% dim a,b,c,xname,txt,xdata
xname=request("xname")
txt=request("txt")
xdata=request("xdate")
a=request("f1")
for i=1 to len(a)
b=mid(a,len(a)-i+1,1)
if b="\" then
exit for
end if
c=b+c
next
%>
<%
set fs=server.CreateObject("scripting.filesystemobject")
s1=a
t2=server.MapPath("images/upload/"&c)
fs.copyfile s1,t2
dim rs,rs3
dim rs4
set rs=conn.execute("select * from newpic where picname='"&c&"'")
if rs.eof then
set rs3=conn.execute("insert into newpic(picname,title,content,dtime) values('"&c&"','"&xname&"','"&txt&"','"&xdata&"')")
log4j("发布新闻成功")
下面是我上传的代码，没有限制。
<% dim a,b,c,xname,txt,xdata
xname=request("xname")
txt=request("txt")
xdata=request("xdate")
a=request("f1")
for i=1 to len(a)
b=mid(a,len(a)-i+1,1)
if b="\" then
exit for
end if
c=b+c
next
%>
<%
set fs=server.CreateObject("scripting.filesystemobject")
s1=a
t2=server.MapPath("images/upload/"&c)
fs.copyfile s1,t2
dim rs,rs3
dim rs4
set rs=conn.execute("select * from newpic where picname='"&c&"'")
if rs.eof then
set rs3=conn.execute("insert into newpic(picname,title,content,dtime) values('"&c&"','"&xname&"','"&txt&"','"&xdata&"')")
log4j("发布新闻成功")
在这两行之间加个判断：
t2=server.MapPath("images/upload/"&c)
dim f,fsize
set f=fs.getfile(server.MapPath(a))
fsize=f.size
set f=nothing
if fsize>200*1024 then
response.write "图片大小不能超过200K"
response.end
end if
fs.copyfile s1,t2