<!--#include file=down_conn.asp-->
<!-- #include file="inc/const.asp" -->

<head>
<title>--管理页面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<base target="footer">
</head>

<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
Dvbbs.LoadTemplates("")
Dvbbs.Head()
dim manager,userflag,submit
	if not dvbbs.master or session("flag")="" then
		response.write "<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		response.end
	else
		   
   manager=LCase(Request("user"))
   userflag=Request("flag")
   
   submit=Trim(Request("submit"))
   
'//进行修改操作
   
   if submit="修改" then

     
         sql="update Admin set flag="&userflag&" where username='"&manager&"'"   

         conndown.Execute sql
   
         conndown.Close
         set conndown=Nothing        

         response.redirect "admin_down_adminuser.asp"
   
    end if
    
'//进行删除操作

   if submit="删除" then
      
      sql="delete from Admin where username='"&manager&"'"
      
      conndown.Execute sql
      
      conndown.Close
      set conndown=Nothing      
     
   response.redirect "admin_down_adminuser.asp"
   
   end if
end if
%>


