showadmin.asp

可以做论坛

<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="admingongneng.asp"-->
<%
Response.Write "<table width=775 align=center border=0 align=center cellspacing=0><tr><td>&nbsp;</td><td>"
if uzhiwu=100 then '不是管理员不能操作

cadm="select * from user  where zhiwu=100" 
set rsadm=server.createobject("adodb.recordset")
rsadm.open cadm,conn,1,1
Response.Write"<br>"
do while not rsadm.eof
Response.Write"<div align=center><table width=60% border=0 align=center  class=td1><tr><td>当前管理员："&rsadm("bm")&"  <a href=deladmin.asp?del="&rsadm("idy")&">撤消管理员</a></td><td>至少有一个管理员，否则不能进行管理</td></tr></table></div>"
rsadm.MoveNext
Loop
%>
<table width="60%" border="0" align="center" cellspacing="0"   class="td1">
  <tr>
    <td>填加管理员：</td>
    <td><form name="form1" method="post" action="showadmin.asp">
        <input type="text" name="aadmin">
        <input type="submit" name="Submit2" value="提交">
      </form></td>
    <td>管理员不宜多,加一到两个即可</td>
  </tr>
</table>

<%

aadmin=request.form("aadmin")
aadm="select * from user  where bm='"&aadmin&"'" 
set rsaadm=server.createobject("adodb.recordset")
rsaadm.open aadm,conn,1,1
if not rsaadm.eof then
conn.Execute("update user set zhiwu = 100  where bm='"&aadmin&"'")
Response.Write"<br><div align=center>["&aadmin&"]<font color=FF0000>管理员填回成功</font></div>"
aadmin=""
else 
Response.Write"<br><div align=center>注意：管理员应使用昵称</div>"
end if
else '不是管理员
Response.Write"非管理员不能操作<a href=index.asp>请回首页</a>"
end if'不是管理员
Response.Write "</td></tr><tr class=110b><td width=1>&nbsp;</td><td>&nbsp; </td></tr></table>"
Response.Write"<table width=99% border=0 align=center cellspacing=0 class=tableguang1><tr> <td class=biaotibg>&nbsp;</td></tr></table>"
Response.Write""&asptbcopy&""
%>