adminreply.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="25" colspan="6" align="center" bgcolor="eeeeee"><font style="font-size:14px">删除回复</font></td>
  </tr>
  <%if request("del")="删除" then
  rs.open"select * from reply where id="&cint(request("id")),conn,1,3
  '修改解决数和回复数、积分
  rs2.open"select * from person where name='"&rs("replyer")&"'",conn,1,3
  if rs("isdeal")=1 then
  rs2("helpnum")=rs2("helpnum")-1
  rs2("replynum")=rs2("replynum")-1
  rs2("jifen")=rs2("jifen")-11
  temp=rs2("jifen")-11
  else
  rs2("replynum")=rs2("replynum")-1
  rs2("jifen")=rs2("jifen")-1
  temp=rs2("jifen")-1
  end if
  if temp<1000 then
		  rs2("touxian")="小孩子"
	      elseif temp>=1000 and temp<3000 then
		  rs2("touxian")="小朋友"
		  elseif temp>=3000 and temp<6000 then
		  rs2("touxian")="小学生"
		  elseif temp>=6000 and temp<10000 then
		  rs2("touxian")="中学生"
		  elseif temp>=10000 and temp<15000 then
		  rs2("touxian")="大学生"
		  elseif temp>=15000 and temp<21000 then
		  rs2("touxian")="硕士生"
		  elseif temp>=21000 and temp<28000 then
		  rs2("touxian")="博士生"
		  elseif temp>=28000 and temp<36000 then
		  rs2("touxian")="博士后"
		  elseif temp>=36000 then
		  rs2("touxian")="科学家"
		  end if
  rs2.update
  rs2.close
  rs.delete
  rs.close
  response.write"<tr><td colspan=6>回复删除成功!</td></tr><meta http-equiv=refresh content='1;url=adminreply.asp'>"
  response.End()
  end if
  %>
  <tr>
    <td align="center">回复标题</td>
    <td align="center">回复人</td>
    <td align="center">回复时间</td>
    <td align="center">回复问题</td>
    <td align="center">是否解决</td>
    <td align="center">操作</td>
  </tr>
  <%rs.open"select * from reply order by id desc",conn,1,1
  if rs.eof then
  %><tr>
    <td colspan="6" align="center">暂时没有回复!</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
  rs2.open"select * from question where id="&rs("replyid"),conn,1,1%>
  <form method=post action=adminreply.asp?id=<%=rs("id")%>>
    <tr>
    <td align="center"><a href=../showreply.asp?id=<%=rs("id")%> target=_blank><%=rs("replytitle")%></a></td>
    <td align="center"><%=rs("replyer")%></td>
    <td align="center"><%=rs("replytime")%></td>
    <td align="center"><a href=../showquestion.asp?id=<%=rs2("id")%> target=_blank><%=rs2("title")%></a></td>
    <td align="center"><%if rs("isdeal")=1 then%>是<%else%>否<%end if%></td>
    <td align="center"><input name="del" type="submit" id="del" value="删除"></td>
  </tr></form>
  <%rs2.close
  rs.movenext
  if rs.eof then exit for
  next%>
   <tr>
    <td colspan="6" align="center">共<font color=red><%=maxnum%></font>个回复，15个每页，页次:<font color=red><%=p%></font>/<%=maxpage%>
	<a href=adminreply.asp?p=1>首页</a>
	<a href=adminreply.asp?p=<%=p-1%>>上页</a>
	<a href=adminreply.asp?p=<%=p+1%>>下页</a>
	<a href=adminreply.asp?p=<%=maxpage%>>尾页</a></td>
  </tr>
  <%end if
  rs.close%>
  <tr>
    <td colspan="6" align="center">&nbsp;</td>
  </tr>
</table>