📄 bookread.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->
<%Response.Expires = 180
bookid=request("bookid")
bookid=replace(bookid, ".htm", "")
set Rs_t = conn.execute("select top 1 * from book where bookid="&bookid&"")
if Rs_t.eof then
response.redirect"wrongurl.asp?url=1"
end if
conn.execute("update book set hit=hit+1 where bookid="&bookid&" ")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Rs_t("bookname")%>[<%=Rs_t("zuozhe")%>]-寻梦书库</title>
<meta name="keywords" content="<%=Rs_t("bookname")%>,<%=Rs_t("zuozhe")%>,寻梦书库,寻梦船,寻梦船在线书库,寻梦书库管理系统,古典文学,现代文学,世界名著,人物传记,电子书免费下载>
<meta name="description" content="<%=Rs_t("bookname")%>书籍目录,作者<%=Rs_t("zuozhe")%>">
<!--#include file="head.asp"-->
<table width="760" border="1" bgcolor=#7BD676 align="center" cellpadding="0" cellspacing="3">
<tr><td valign=top width="160" bgcolor=#F0F7FF style="word-break:break-all">
<%
Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
if fso1.FileExists(Server.MapPath("/title/"&bookid&".jpg")) then
%><img src="title/<%=bookid%>.jpg" border=0 width=160 height=240><%else%>
<table align=center width=160 height=240 cellpadding=0 cellspacing=0><tr>
<td valign=top width=100% background="image/noimg.jpg">
<span class="title"><%=Rs_t("bookname")%></span>
<br><br>
<p align=center>●<%=Rs_t("zuozhe")%>●</p>
</td></tr></table>
<%end if
strn=Rs_t("strn")
strn=formatnumber(strn/1000,0,-1)%><table align="center" width="100%" border="0" height="2" bgcolor=#7BD676><tr><td align="center"></td></tr></table>
<table width="95%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr bgcolor=#F0F7FF><td>
阅读：<b><%=Rs_t("hit")%></b> 人次<br>
字数：<%=strn%> 千字<br>
推荐度：<%=encode1(Rs_t("tuijian"))%><br>
<a href="pinglun.asp?bookid=<%=bookid%>"><b>发表|查看评论</b></a><br>
<a href=# onClick="window.external.addFavorite('http://www.xmsk.net/bookread.asp?bookid=<%=bookid%>','<%=Rs_t("zuozhe")%>-<%=Rs_t("bookname")%>')">收藏本书</a><br>
<br><br><span class="adder">本书编辑：<a href="other.asp?action=alluser" target="blank"><%=Rs_t("adder")%></a><br><%=Rs_t("addtim")%></span>
</td></tr></table>
</td><td valign="top" background="image/bg.jpg" bgcolor=#FFF8F0>
<br>
<%=Rs_t("zuozhe")%>：<b><font color=#FF0000><%=Rs_t("bookname")%></font></b>
<br>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr><td style="word-break:break-all">
<%=Rs_t("adv")%><%if Rs_t("Btype")=2 then%><font color=#28C212>〖本站原创·未经许可，请勿转载〗</font><%else if Rs_t("Btype")=1 then%><font color=#F97BF5>〖本站首发·转载请注明出处〗</font><%end if end if%>
</td></tr></table>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr><td style="word-break:break-all">
<%
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=18
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
iszj=rs("iszj")
if iszj=1 then
%>
<table width=100% border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td width="100%" colspan="2" style="word-break:break-all">
<font color=#000000> <i>□□□</i> <b><%=Rs("biaoti")%></b></font>
</td></tr></table>
<%
else
%>
<table width=100% border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all">
<tr>
<td width="100%" colspan="2" style="word-break:break-all">
<a href="read.asp?bookid=<%=Rs("bookid")%>&id=<%=Rs("id")%>" title="作者：<%=Rs("zuozhe")%>"><b><%=Rs("biaoti")%></b></a>
</td></tr></table>
<%
end if
Rs.movenext
loop
%>
<%if Rs.eof and Rs_t("lzai")=0 then%>
<br><center><span class="adder">[本书连载中，欢迎稍后阅读本书其他章节！]</span></center>
<%end if%>
</td></tr></table>
</td></tr></table>
<table width=760 bgcolor=#E1F8D8 border=0 cellpadding=0 cellspacing=1 align="center">
<tr><td align="center">
<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%>
</td></tr></table>
<%Rs.close
set Rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -