admin_book.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<br><br>
<b>未审核书籍列表</b>
<br><br>
<%
	on error resume next  '找不到站点资料时忽略错误

kindid=request("kindid")

sql="select * from book where shenhe=0 order by bookid 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
%>

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

<table width=100% height=24 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
  <tr>
<td colspan="2" style="word-break:break-all"  width="500">
  <%=Rs("zuozhe")%><a href="admin_bookread.asp?bookid=<%=Rs("bookid")%>"><b>《<%=Rs("bookname")%>》</a></b>  <a href="admin_edit2.asp?bookid=<%=rs("bookid")%>&bookname=<%=Rs("bookname")%>">[编辑]</a><a href="javascript:if(confirm('确定要删除此书吗？\n注意：一经删除无法恢复！')){ window.location='admin_del.asp?action=delbook&bookid=<%=rs("bookid")%>';}">[删除]</a>/<%=rs("adder")%>
<br><blockquote><%=rs("adv")%></blockquote>
</td>
<td width="270">
   推荐度：<%=encode1(rs("tuijian"))%>　　阅读<b><%=Rs("hit")%></b>次
      <table align=center border="0" cellspacing="0" cellpadding="0" width=150>
        <tr><td width=150><form name="shenhe" method="POST" action="shenhe.asp?sh=2" >
<input type="hidden" name=bookid value="<%=rs("bookid")%>">
<select name=jiafen size=1>
<option value=80> 80</option>
<option value=90> 90</option>
<option value=100>100</option>
<option value=110>110</option>
<option value=120>120</option>
<option value=130>130</option>
<option value=140>140</option>
<option value=150>150</option>
<option value=160>160</option>
<option value=170>170</option>
<option value=180>180</option>
<option value=200>200</option>
<option value=250>250</option>
<option value=300>300</option>
</select>
<input type=submit value="审核" name="submit">
          </td>
        </tr>
       </form>
      </table>
</td>
</tr></table>

<%
Rs.movenext
loop
%>

</td>
</tr>
</table>

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