📄 bookread.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp"-->
<%
on error resume next '找不到站点资料时忽略错误
bookid=request("bookid")
sqlb="select * from book where bookid="&bookid&" "
Set rsb = Server.CreateObject("ADODB.Recordset")
sqlb="update book set hit=hit+1 where bookid="&bookid&" "
rsb.open sqlb,conn,1,1
bookname=request("bookname")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=bookname%>-目录</title>
<style type="text/css">
<!--a{color:#009966; text-decoration: none}
a:hover{color:#FF00CC; text-decoration: none}-->
<!--
body,td,th {
font-size: 14px;
color: #009966;
}
body {
background-color: #FFFFFF;
background-image: url(image/bg.gif);
}
-->
</style>
</head>
<!--#include file="middle.asp"-->
<!--#include file="bookmiddle.asp"-->
<table width=420 height=32 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr><td> <b><i>目 录</i> </b>
</td></tr></table>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''
on error resume next '找不到站点资料时忽略错误
bookid=request("bookid")
bookname=request("bookname")
sql="select * 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
%>
<%
zhengwen=rs("zhengwen")
if len(zhengwen)<5 then
%>
<table width=420 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")%></b></td>
</td></tr></table>
<%
else
%>
<table width=540 border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td width="420" colspan="2" style="word-break:break-all">
<a href="read.asp?bookid=<%=Rs("bookid")%>&id=<%=Rs("id")%>" target="_blank"><b><%=Rs("biaoti")%></b></a></td>
<td width="114">
<%=Rs("zuozhe")%>
</td></tr></table>
<%
end if
%>
<%
Rs.movenext
loop
%>
</td>
</tr>
</table><br>
<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=bookread.asp?bookid=<%=bookid%>&page=<%=go%>><%=go%></a>
<%next%>
页
<% if page=1 then %>
<%else%>
<a href=bookread.asp?bookid=<%=bookid%>&page=<%=page-1%>>上一页</a>
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=bookread.asp?bookid=<%=bookid%>&page=<%=page+1%>>下一页</a>
<%else%>
<%end if%>
<%
bookid=rs("bookid")
Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
if fso1.FileExists(Server.MapPath("/notdownload/"&bookid&".rar")) then
bookid=bookid+300
%>
<a href="down.asp?bookid=<%=bookid%>" target="blank">电子书下载</a>
<%end if%>
<br>
<a href="http://www.dangdang.com/league/leagueref.asp?from=P-2008951&backurl=http://www.dangdang.com/default.asp" target="_blank"><b>潇湘提示：</b>请购买正版书籍，以实际行动支持作者，点这里邮购精美打折正版书！</a>
</td></tr></table><br>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -