deladmin.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="user.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="bottom.asp"-->
<%
Response.Write "<table width=99% align=center border=0 align=center cellspacing=0><tr class=120b><td>&nbsp;</td><td>"

if uzhiwu=100 then '不是管理员不能操作

delmin=request("del")
if Trim(delmin)=Trim(idy) then '不能删除自己
Response.Write"<br><div align=center><font color=FF0000><a href=showadmin.asp>管理员不能删除自己，否则不能进行管理，返回，以另一个管理员登陆再进行操作</a></font></div><br>"
else
conn.Execute("update user set zhiwu = 0  where idy="&delmin&"")
response.redirect"showadmin.asp"
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 ""&asptbcopy&""
Response.Flush
 %>