如何修改后台中上传文件大小

￡籍の口∮ · 发表于 2009-9-15 02:26:19

我的网站是租用的服务器,后台里没设置上传文件大小那一项,但每次上传大过1M的文件时都提示有限制不能上传,我刚学做网页不知道怎么改,请教高手们,有人说在UPLOAD.ASP里改,所以把代码发出来:

<%

session("admin__user")=Request.Cookies("adminuser")
session("admin__pass")=Request.Cookies("adminpass")
session("dJ")=Request.Cookies("admindj")

adminuser=Request.Cookies("adminuser")
adminpass=Request.Cookies("adminpass")
admindj=Request.Cookies("admindj")

if adminuser="" or adminpass="" then
  Response.Redirect "szwyadmin/login.asp?id=8"
end if
%>
<%
sss=LCase(request.servervariables("QUERY_STRING"))
if instr(sss,"select")<>0 or instr(sss,"inster")<>0 or instr(sss,"delete")<>0 or instr(sss,"(")<>0 or instr(sss,"'or")<>0 then
   response.write "<BR><BR><center>你的网址不合法"
   response.end
end if

xuasmdb="data/#fdaeg35@#gds.asp"

set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(xuasmdb)
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

ON ERROR RESUME NEXT

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select zuziip from [config] where zuziip like '%"&zuziip&"%'",conn,1,1
if rs.recordcount<>0 then
zuziip=rs("zuziip")&chr(13)
zuziip=replace(zuziip," ","")
zuziip=replace(zuziip,chr(10),"")
'zuziip=replace(zuziip,".","")
'userip2=replace(userip,".","")
zzip=split(zuziip,chr(13))
'Response.Write "ubound(zzip):"&ubound(zzip)&"<BR>"
'Response.Write "zzip(0):"&zzip(0)&"<BR>"
'Response.Write "zzip(1):"&trim(zzip(1))&"<BR>"
for i=0 to ubound(zzip)
      if userip=trim(zzip(i)) then
         er=1
         'Response.Write userip&"　"&zzip(i)&"<BR>"
      end if
next

if er=1 then
      Response.Write "<BR><BR><BR><BR><Center><font style='font-size:10.5pt'>你所在IP被系统阻止！("&userip&")</font><BR><BR></center>"
      conn.close:set conn=nothing
      Response.end
end if
end if

%>
<%

user=trim(session("admin__user"))
pass=session("admin__pass")

sql = "select * from admin where [user]='"&adminuser&"' and [pass]='"&adminpass&"'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount=0 then
  Response.Redirect "login.asp?id=8"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上传图片</title>
<style type="text/css">

</style>
</head>

<body bgcolor="#F6f6f6" leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="saveupload.asp" enctype="multipart/form-data">
  <tr>
   <td align="center">
<input type="file" name="file1" size=10 class="an">
<input type="submit" name="Submit" value="上传" class="an">
</td>
  </tr>
  </form>
</table>

</body>
</html>

		自动登录	找回密码
密码			注册