<!--#include file="down_conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="down_function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
body  { margin:0px; font:normal 10px 宋体;
SCROLLBAR-FACE-COLOR: #899AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1; 
SCROLLBAR-SHADOW-COLOR: #599AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1; 
SCROLLBAR-3DLIGHT-COLOR: #999AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #AABFEC;border-collapse: collapse;
}
A{text-decoration:none;color:black}
A:hover {COLOR: #ff0000; TEXT-DECORATION: underline}
body{font-size: 9pt;}
td{font-size:9pt;}
.buttonface{  FONT-SIZE: 9pt;  HEIGHT: 20px; }
.smallInput{FONT-SIZE: 9pt;  HEIGHT: 20px; }
.b2{font-size: 7pt; font-family:"Verdana", "Arial", "宋体";}


</style>

<%


if not Dvbbs.founduser then
  	FoundErrs "您没有<a href=login.asp target=_blank>登录</a>。"
      ShowErrs(Dvbbs.Stats)
End If

dim flagd,Uploadflag
set rss=conndown.execute("select * from [showpage]")
set rs=conndown.execute("select * from [admin] where username='"&Dvbbs.membername&"'")
Uploadflag=rss("Upload") Mod 10
if Uploadflag=1  then
if dvbbs.master then
call show0()
else
response.write" +++++++++ <font color=red>系统关闭上传功能</font> ++++++++"
end if
elseif Uploadflag=2 then
if flagd<4 then
call show0()
else
response.write" +++++++++ <font color=red>只开放给普通管理员以上级别上传</font> ++++++++"
end if
elseif not(rs.eof and rs.bof) and Uploadflag=0 then
flagd=rs("flag")
if flagd=4 then
response.write" +++++++++ <font color=red>你已经被限制上传功能</font> ++++++++"
else
call show0()
end if
else
call show0()
end if
rs.close
rss.close

%>
<%sub show0()%>



<body text="#000000" leftmargin="0" topmargin="0">
<form name="form" method="post" action="down_upfile.asp?act=<%=request("act")%>" enctype="multipart/form-data" >
<input type="hidden" name="filepath" value="<%=downpath%>">
<input type="hidden" name="act" value="upload">
<input type="hidden" name="fname">
<input type="file" name="file1" size=16>
<input type="submit" name="Submit" value="上传" onclick="fname.value=file1.value;"> 

</form>

<%end sub%>

<%
conn.close
set conn=nothing

%>