<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
Call saycarda("管理会员")


if keys=0 and skey=0 then
  Call Error("你没有这个权限！")
end if

dim ation,ID
ation = trim(Request.QueryString("ation"))
ID    = trim(Request.QueryString("ID"))

if ID="" or ation="" then
  Call Error("错误操作！")
end if

if ation = "nof" or ation = "f" or ation = "noh" or ation = "h" or ation = "nox" or ation= "x" or ation = "nol" or ation= "l" or ation= "noj"  or ation= "j" or ation= "nolock"  or ation= "lock" then
else
  Call Error("操作无效！")
  end if

if keys<>1 or keys<>2 then
if ation = "nox" or ation= "x" or ation= "nol"  or ation= "l" then
  Call Error("权限不足！")
  end if
end if

if Clng(id)=myid then
  Call Error("不能管理自己！")
end if

set rs=server.createobject("adodb.recordset")
rs.open "select keys,skey from Users where ID="&ID,conn,1,1
if rs.eof then
  Call Error("没有这个会员！")
end if
if keys=1 then
if rs(keys)=1 then
  Call Error("同等权限不能管理！")
end if
end if
if skey>0 then
if rs("skey")>0 then
  Call Error("同等权限不能管理！")
end if
end if
rs.close
set rs=nothing
if saytk=>2 then
	Response.write "<form name=""form"" method=""post"" action=""adminuserok.asp?sid="&sid&"&amp;saytk="&saytk&""">"
end If
Response.write format(ation)&"<br/>"
%>
<%if len(ation) =3 then%>
操作原因：
<br/><input type="text" emptyok="false" name="liyou"/><br/>
期限:
<select name="locktian<%=tt%>" value="0">
<option value="0">1小时</option>
<option value="1">1天</option>
<option value="2">2天</option>
<option value="3">3天</option>
<option value="4">4天</option>
<option value="5">5天</option>
<option value="10">10天</option>
<option value="15">15天</option>
</select><br/>
<%end If

if saytk=>2 then
response.write "<input type=""hidden"" name=""id"" value="""&id&"""/>"

response.write "<input type=""hidden"" name=""ation"" value="""&ation&"""/>"
%>

<input type="submit" name="Submit" value="执行"></form><br/><%
else%>
<anchor>执行<go href="adminuserok.asp?sid=<%=sid%>&saytk=<%=saytk%>" method="post">
<postfield name="ID"       value="<%=ID%>"/>
<postfield name="ation"    value="<%=ation%>"/>
<%if len(ation) =3 then%>
<postfield name="locktian" value="$(locktian<%=tt%>)"/>
<postfield name="liyou" value="$(liyou)"/>
<%end if%>
</go></anchor>
<%If saytk=1 then%>
<br/><anchor><prev/>返回</anchor>
<%End If
End if
Call headsay()%>