<%
if not theUser.master then
connclose()
response.redirect ("index.asp")
end if
dim xxid,lei, exec,rs
xxid=encodestr(request("id"))
lei=encodestr(request("lei"))
exec="select * from blyh where id="&xxid
set rs=conn.execute(exec)
if rs.eof then
rsclose()
connclose()
session("errmsg")="该用户不存在！！！"
response.redirect("admin_error.asp")
end if
select case lei
case "addman"
exec="update blyh set bz=1 where id=" + CStr(xxid)
conn.execute(exec)
case "delman"
exec="update blyh set bz=0 where id=" + CStr(xxid)
conn.execute(exec)
case "delete"
exec="delete from blyh where id=" + CStr(xxid)
conn.execute(exec)
exec="update const set userNum=userNum-1"
conn.execute(exec)
end select
connclose()
%>
<%=sitetitle%>