" if TP<>"" then if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("ID不存在！") end if rs.close set rs=Nothing conn.Execute("delete from myfriend Where did=" & ids) Response.Write "好友解除成功！" Response.Write "
好友列表" else Response.Write "删除该好友？
" Response.Write "是的" Response.Write "
取消" end if end sub sub hait Response.Write "

" if TP<>"" then if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("ID不存在！") end if rs.close set rs=Nothing conn.Execute("delete from myhait Where bid=" & ids) Response.Write "黑名单解除成功！" Response.Write "
黑名单列表" else Response.Write "解除该黑名单？
" Response.Write "是的" Response.Write "
取消" end if end sub sub photodel Response.Write "

" if TP<>"" then if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if '检查文件是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM Upfile where id="&ids&" and fid="&myid,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("相片不存在！") end if rs.close set rs=Nothing conn.Execute("delete from Upfile Where id=" & ids) Response.Write "相片删除成功！" Response.Write "
我的相册" else Response.Write "删除该相片？
" Response.Write "是的" Response.Write "
取消" end if end sub sub zoneout Response.Write "

" dim id id=trim(request.querystring("id")) if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if if keys=1 or skey=abs(id) or adminzone=abs(id) then else Call Error("权限不足！") end if if TP<>"" then if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if if myid=clng(ids) then Call Error("不能踢自己！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("ID不存在！") end if rs.close set rs=Nothing conn.Execute("update users set zoneid=0 Where id=" & ids) Response.Write "踢出群组成功！" Response.Write "
返回上级" else Response.Write "把该会员踢出群组？
" Response.Write "是的" Response.Write "
取消" end if end sub sub keyout bbsid=trim(request.querystring("bbsid")) if keys=1 then else if bbsid="" or Isnumeric(bbsid)=False then Call Error("

权限不足！") end if if bbsid<>"" and adminzone=abs(bbsid) then Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where skey="&bbsid&" and id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("

该版主不存在！") end if rs.close set rs=Nothing else Call Error("

权限不足！") end if end if if TP<>"" then if clng(ids)=myid then Call Error("

你不能撤除自己！") end if if ids="" or Isnumeric(ids)=False then Call Error("

ID无效！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("

ID不存在！") end if rs.close set rs=Nothing conn.Execute("update users set skey=0 where id=" & ids) Response.Write "

" Response.Write "撤销成功" if bbsid<>"" then Response.write "
返回版务
" else Response.write "
管理团队
" end if Response.write "社区首页
" else Response.Write "

" Response.Write "确认撤销该会员的职务？
" Response.Write "是的
" Response.Write "取消" end if end Sub sub photoview Response.Write "

" if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if '检查文件是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id,photoview FROM Upfile where id="&ids&" and fid="&myid,conn,1,2 if rs.eof then rs.close set rs=Nothing Call Error("相片不存在！") end if if rs("photoview")=1 then rs("photoview")=0 else rs("photoview")=1 end if rs.update rs.close set rs=Nothing Response.Write "相片设置操作成功！" Response.Write "
查看相片" Response.Write "
我的相册" end sub conn.close set conn=nothing%>