📄 adminpinglun.asp

📁 完整的九洲问吧。优秀的问答网站。由ASP+Access开发。
💻 ASP
字号:
<%if session("admin")="" then
response.write"你没有登录或是非法用户!<meta http-equiv=refresh content='1;url=../index.asp'>"
response.End()
end if%>
<!--#include file=conn.asp-->
<!--#include file="../config.asp"-->
<head>
<link href=../iknow.css rel=stylesheet type=text/css>
</head>
<table width="95%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" height="109">
  <tr>
    <td height="23" colspan="5" align="center" bgcolor="eeeeee"><font style="font-size:14px">删除评论</font></td>
  </tr>
  <%if request("del")="删除" then
  rs.open"select * from ping where id="&cint(request("id")),conn,1,3
  rs2.open"select * from person where name='"&rs("pingname")&"'",conn,1,3
  rs2("jifen")=rs2("jifen")-plkf
  temp=rs2("jifen")-plkf
  if temp<fen2 then
		  rs2("touxian")=""&ji1&" 一级"
	      elseif temp>=fen2 and temp<fen3 then
		  rs2("touxian")=""&ji2&" 二级"
		  elseif temp>=fen3 and temp<fen4 then
		  rs2("touxian")=""&ji3&" 三级"
		  elseif temp>=fen4 and temp<fen5 then
		  rs2("touxian")=""&ji4&" 四级"
		  elseif temp>=fen5 and temp<fen6 then
		  rs2("touxian")=""&ji5&" 五级"
		  elseif temp>=fen6 and temp<fen7 then
		  rs2("touxian")=""&ji6&" 六级"
		  elseif temp>=fen7 and temp<fen8 then
		  rs2("touxian")=""&ji7&" 七级"
		  elseif temp>=fen8 and temp<fen9 then
		  rs2("touxian")=""&ji8&" 八级"
		  elseif temp>=fen9 and temp<fen10 then
		  rs2("touxian")=""&ji9&" 九级"
		  elseif temp>=fen10 then
		  rs2("touxian")=""&ji10&" 十级"
		  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=adminpinglun.asp'>"
  response.End()
    end if
  %>
  <tr>
    <td align="center" height="12">评论答案</td>
    <td align="center" height="12">评论人</td>
    <td align="center" height="12">评论内容</td>
    <td align="center" height="12">评论时间</td>
    <td align="center" height="12">操作</td>
  </tr>
  <%rs.open"select * from ping order by id desc",conn,1,1
  if rs.eof then
  %><tr>
    <td colspan="5" align="center" height="12">暂时没有评论!</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=adminpinglun.asp?id=<%=rs("id")%>>
    <tr>
    <td align="center" height="25"><a href=../ping.asp?id=<%=rs("replyid")%> target=_blank>查看</a></td>
    <td align="center" height="25"><%=rs("pingname")%></td>
    <td align="center" height="25"><%=rs("ping")%></td>
    <td align="center" height="25"><%=rs("pingtime")%></td>
    <td align="center" height="25"><input name="del" type="submit" id="del" value="删除"></td>
  </tr></form>
  <%
  rs.movenext
  if rs.eof then exit for
  next%>
   <tr>
    <td colspan="5" align="center" bgcolor="#EEEEEE" height="27">
      <p align="left">共<font color=red><%=maxnum%></font>个评论，15个每页，页次:<font color=red><%=p%></font>/<%=maxpage%>
	<a href=adminpinglun.asp?p=1>首页</a>   
	<a href=adminpinglun.asp?p=<%=p-1%>>上页</a>   
	<a href=adminpinglun.asp?p=<%=p+1%>>下页</a>   
	<a href=adminpinglun.asp?p=<%=maxpage%>>尾页</a></p>  
    </td> 
  </tr>
  <%end if
  rs.close%>
</table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -