adminperson.asp

问吧程序 问吧程序 问吧程序 问吧程序

<%if session("admin")="" then
response.write"你没有登陆或是非法用户!<meta http-equiv=refresh content='1;url=../index.asp'>"
response.End()
end if%>
<!--#include file=conn.asp-->
<link href=../style.css rel=stylesheet type=text/css>
<table width="80%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="20" colspan="10" align="center" bgcolor="#99CC00"><span style="color: #3300FF"><font style="font-size:14px">删除用户</font></span></td>
  </tr>
  <%if request("del")="删除" then
  '删除用户以及相关问题和回复
  rs.open"select * from person where id="&cint(request("id")),conn,1,3
  rs2.open"select * from reply where replyer='"&rs("name")&"'",conn,1,3
  while not rs2.eof
  rs2.delete
  rs2.movenext
  wend
  rs2.close
  rs2.open"select * from question where sender='"&rs("name")&"'",conn,1,3
  while not rs2.eof
  rs3.open"select * from reply where replyid="&rs2("id"),conn,1,3
  while not rs3.eof
  rs3.delete
  rs3.movenext
  wend
  rs3.close
  rs2.movenext
  wend
  rs2.close
  rs.delete
  rs.close
  '
  response.write"<tr><td colspan=10>用户删除成功!</td></tr><meta http-equiv=refresh content='1;url=adminperson.asp'>"
  response.End()
  end if%>
  <tr>
    <td>用户名</td><td>用户qq</td>
    <td>用户email</td>
    <td>积分</td>
    <td>头衔</td>
    <td>发表问题数</td>
    <td>回复问题数</td>
    <td>解决问题数</td>
    <td>注册时间</td>
    <td>操作</td>
  </tr>
  <%rs.open"select * from person order by jifen desc",conn,1,1
  if rs.eof then
  %>
  <tr>
    <td colspan="10">暂时没有用户!</td>
  </tr>
  <%else
  maxnum=rs.recordcount
  rs.pagesize=15
  maxpage=rs.pagecount
  if request("p")="" then
  p=1
  else
  p=cint(request("p"))
  end if
  if p>maxpage then
  p=maxpage
  end if
  if p=0 then
  p=1
  end if
  if p<>1 then
  rs.move (p-1)*rs.pagesize
  end if
  for i=1 to rs.pagesize%>
  <form method=post action=adminperson.asp?id=<%=rs("id")%>>
  <tr>
    <td><a href=../showperson.asp?id=<%=rs("id")%> target=_blank><%=rs("name")%></a></td><td><%=rs("qq")%></td>
    <td><%=rs("email")%></td>
    <td><font color=green><%=rs("jifen")%></font></td>
    <td><%=rs("touxian")%></td>
    <td><%=rs("asknum")%></td>
    <td><%=rs("replynum")%></td>
    <td><%=rs("helpnum")%></td>
    <td><%=rs("time")%></td>
    <td><input name="del" type="submit" id="del" value="删除"></td>
  </tr>
  </form>
  <%rs.movenext
  if rs.eof then exit for
  next%><tr>
    <td colspan="10">共有<font color=red><%=maxnum%></font>个用户，15个每页，页次:<font color=red><%=p%></font>/<%=maxpage%>
	<a href=adminperson.asp?p=1>首页</a>
	<a href=adminperson.asp?p=<%=p-1%>>上页</a>
	<a href=adminperson.asp?p=<%=p+1%>>下页</a>
	<a href=adminperson.asp?p=<%=maxpage%>>尾页</a></td>
  </tr>
  <%end if
  rs.close%>
</table>