<%dim TP,ids,Action,tid,bbsid,tzname,id Action=Request.QueryString("Action") ids=usb(request("ids")) TP=usb(request("TP")) IF Action="key" Then call keydel elseif Action="log" Then call logdel else call sellacok end if sub keydel 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 keys=0,skey=0 where id=" & ids) Response.Write "

" Response.Write "撤销成功" Response.write "
[版主管理]
" Response.write "[论坛管理]
" else Response.Write "

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

" end Sub Sub logdel if TP<>"" then conn.Execute("delete from board") Response.Write "

" Response.Write "清空成功" Response.write "
[日志管理]
" else Response.Write "

" Response.Write "确认清空所有的日志？
" Response.Write "是的
" Response.Write "取消" end if Response.Write "

" end Sub sub sellacok 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 sell where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("帖子不存在！") end if rs.close set rs=Nothing conn.Execute("update sell set yc=0 where id=" & ids) Response.Write "

" Response.Write "恢复帖子成功" Response.write "
[帖子回收]
" else Response.Write "

" Response.Write "确认恢复该帖子？
" Response.Write "是的
" Response.Write "取消" end if Response.Write "

" end Sub %>