admin_pl.asp

是运行在asp环境下寻梦书库管理系统

<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<!--#include file="inc/fun.asp"-->
<br><table width=720 border="2" bordercolor=#009966 align=center>

<%
sh=request("sh")
''''''''''''''''''''''''''''''''''''''''''''''''''''''
	on error resume next  '找不到站点资料时忽略错误

sql="select * from pinglun where shenhe="&sh&" order by id desc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=10
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page

dim k
do while not Rs.eof
k = k + 1
if k > Rs.pagesize then
exit do
end if
%>

  <tr><td style="word-break:break-all"><a href="bookread.asp?bookid=<%=Rs("bookid")%>" target="blank"><%=Rs("name")%></a>：<%=encode(rs("text"))%><Br><%=Rs("sj")%>|<%=Rs("ip")%>
<%if sh=1 then%>
<a href="javascript:if(confirm('取消审核?')){ window.location='shenhe.asp?sh=30&id=<%=Rs("id")%>';}">取消审核</a>/<a href=pl_edit.asp?id=<%=Rs("id")%>>编辑</a><%else%>
<a href="javascript:if(confirm('通过审核?')){ window.location='shenhe.asp?sh=3&id=<%=Rs("id")%>';}">审核</a>/<a href=pl_edit.asp?id=<%=Rs("id")%>>编辑</a>/<a href="javascript:if(confirm('删除?')){ window.location='admin_del.asp?action=delpl&id=<%=Rs("id")%>';}">删除</a>
<%end if%>
   </td></tr>

<%
Rs.movenext
loop
%>

</table>

<table align="center" border=0 cellpadding=0 cellspacing=1 width=100%>
<tr><td align="center" style="line-height: 150%">
  <%=page%>/<%=Rs.pagecount%>页 跳到第
      <% for go=1 to Rs.pagecount
%>
      <a href=admin_pl.asp?sh=<%=sh%>&page=<%=go%>><%=go%></a>
      <%next%>
      页&nbsp;
      <% if page=1 then %> 
      <%else%>
      <a href=admin_pl.asp?sh=<%=sh%>&page=<%=page-1%>>上一页</a>&nbsp;
      <%end if%>
      <% if Rs.pagecount-page <> 0 then %>
      <a href=admin_pl.asp?sh=<%=sh%>&page=<%=page+1%>>下一页</a>&nbsp;
      <%else%> 
      <%end if%>
  </td></tr></table>

<%rs.close%>