<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
call saycardd("管理会员")
dim ID,rf
ID = Trim(Request.QueryString("ID"))

if ID = "" or IsNumeric(ID) = False then
  Call Error("ID无效！")
end if



dim hmduser,adminuser
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT keys,name,hmd from Users where ID = " & ID,conn,1,1
if rs.eof then
  rs.close
  set rs=Nothing
  Call Error("没有这个会员！")
end if


hmduser=rs("hmd")
adminuser=rs("name")
rs.close
set rs=nothing

Response.write "管理会员："

  Response.write adminuser

Response.write "<br/>ID号："&ID&"<br/>"



set rs=server.createobject("adodb.recordset")

rs.open "select bbsid,strsell,strrel,strmsg,strChat,strall from hmd where fl=1 And guliid="&ID,conn,1,1

if rs.eof then
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=nof&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止发贴</a><br/>"
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=noh&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止回贴</a><br/>"

Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=noj&amp;sid="&sid&"&amp;saytk="&saytk&"'>加黑用户</a><br/>"

  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=nox&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止信箱</a><br/>"
Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=nol&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止聊天</a><br/>"

else

  if rs("strsell") > 0 then
    Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=f&amp;sid="&sid&"&amp;saytk="&saytk&"'>允许发贴</a><br/>"

  else
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=nof&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止发贴</a><br/>"
  end if

  if rs("strrel") > 0 then

    Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=h&amp;sid="&sid&"&amp;saytk="&saytk&"'>允许回贴</a><br/>"

  else
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=noh&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止回贴</a><br/>"
  end if



  if rs("strall") > 0 then

    Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=j&amp;sid="&sid&"&amp;saytk="&saytk&"'>解黑用户</a><br/>"

  else
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=noj&amp;sid="&sid&"&amp;saytk="&saytk&"'>加黑用户</a><br/>"
  end if

  if rs("strmsg") > 0 then
    Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=x&amp;sid="&sid&"&amp;saytk="&saytk&"'>允许信箱</a><br/>"
  else
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=nox&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止信箱</a><br/>"
  end if
  if rs("strChat") > 0 then
    Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=l&amp;sid="&sid&"&amp;saytk="&saytk&"'>允许聊天</a><br/>"
  else
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=nol&amp;sid="&sid&"&amp;saytk="&saytk&"'>禁止聊天</a><br/>"
  end if
end if



  if hmduser=0 then
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=lock&amp;sid="&sid&"&amp;saytk="&saytk&"'>永久加黑</a><br/>"
  else
  Response.write "<a href='adminuserno.asp?ID="&ID&"&amp;ation=nolock&amp;sid="&sid&"&amp;saytk="&saytk&"'>解除加黑</a><br/>"
  end if



rs.close
set rs=nothing
conn.close
set conn=Nothing

Response.write "<br/><a href=""show.asp?ID="&ID&"&amp;sid="&sid&"&amp;saytk="&saytk&""">[会员资料]</a>" & chr(13)%>
<!--#include file="fanhui.asp"-->
<%response.write""
call headsay()%>
