admin_bookread.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<%
bookid=request("bookid")

sql = "select top 1 bookname from book where bookid="&bookid&" "
set rs= Server.CreateObject("ADODB.RECORDSET")
rs.Open Sql,Conn,1,3
%>

<table width=800 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
  <tr><td align="center">
<br>
<font size=5pt><b><%=Rs("bookname")%></b></font><br>
-----------------------------------------------------------<br>
</td></tr></table>


<%

sql="select zuozhe,biaoti,id,iszj from read where bookid="&bookid&" order by id asc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=24
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
%>

<%
if rs("iszj")=1 then
%>
<table width=620 border=0  bgcolor="DFFFEF" align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
  <tr>
<td width="410" colspan="2" style="word-break:break-all" align="center">
<b><%=Rs("biaoti")%>|||<a href="admin_edit.asp?bookid=<%=bookid%>&id=<%=Rs("id")%>">[修改]</a>
<a href="javascript:if(confirm('确定要删除此文吗?')){ window.location='admin_del.asp?bookid=<%=bookid%>&id=<%=Rs("id")%>';}">[删除]</a></b></td>　
</td></tr></table>

<%
else
%>

<table width=800 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
  <tr>
<td width="580" colspan="2" style="word-break:break-all"><b>
<a href="read.asp?bookid=<%=bookid%>&id=<%=Rs("id")%>" target="_blank"><%=Rs("biaoti")%></b></a>
</td><td width="220"><a href="admin_edit.asp?bookid=<%=bookid%>&id=<%=Rs("id")%>">[修改]</a><a href="javascript:if(confirm('确定要删除此文吗?')){ window.location='admin_del.asp?bookid=<%=bookid%>&id=<%=Rs("id")%>';}">[删除]</a>(<%=Rs("zuozhe")%>)
<br>
</td>
</tr>
</table>
<%
end if

Rs.movenext
loop
%>

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