📄 read.asp
字号:
<HTML>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->
<%
Response.Expires = 10080
Response.CacheControl="Public"
bookid=request("bookid")
id=request("id")
sql_t="select top 1 * from book where bookid="&bookid&" "
set Rs_t = Server.CreateObject("ADODB.Recordset")
Rs_t.open sql_t,conn,1,2
if Rs_t.eof then
response.redirect"http://www.xmsk.net/wrongurl.asp?url=1"
end if
conn.execute("update book set hit=hit+1 where bookid="&bookid&" ")
sql="select * from read where id="&id&" and bookid="&bookid&" order by id asc "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
if Rs.eof then
response.redirect"http://www.xmsk.net/bookread.asp?bookid="&bookid&""
end if
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Rs_t("bookname")%>-<%=Rs("biaoti")%>-<%=Rs_t("zuozhe")%>-<%=WebTitle%></title>
<meta name="keywords" content="<%=WebTitle%>,<%=Rs_t("bookname")%>,<%=Rs("biaoti")%>,<%=Rs_t("zuozhe")%>,寻梦船,寻梦船在线书库,<%=WebTitle%>管理系统,文学,电子书免费下载>
<meta name="description" content="<%=Rs_t("bookname")%>全文阅读,免费在线书库,<%=Rs_t("zuozhe")%>">
<script language="JavaScript" src="inc/common.js" type="text/javascript"></script>
<!--#include file="head.asp"-->
<table width="760" border="1" bordercolor=#7BD676 align="center" cellpadding="20" cellspacing="0">
<tr><td valign=top background="image/bg.jpg">
<blockquote>
<%=Rs_t("zuozhe")%>：<b><A href="bookread.asp?bookid=<%=bookid%>" title="返回目录"><font color=#1884EF><%=Rs_t("bookname")%></font></a></b><br>
推荐度：<%=encode1(Rs_t("tuijian"))%>
<blockquote><blockquote>
<style type="text/css">
<!--
.article {
font-size: 24px;
font-weight: bolder;
font-family: "楷体_GB2312";
color: #FF00C0;
}
//-->
</STYLE>
<span class="article"><%=Rs("biaoti")%></span><%if Request.Cookies("user")<>"" then%>
[<a href="jiaogai.asp?bookid=<%=bookid%>&id=<%=id%>">校改</a>]<%end if%>
</blockquote></blockquote>
<p align=right>●<%=Rs("zuozhe")%>● 总被点击 <b><%=Rs_t("hit")%></b> 人次 <a href="pinglun.asp?bookid=<%=bookid%>">发表|查看评论</a></p>
</blockquote>
<%=encode(rs("zhengwen"))%><br>
（<a href=http://www.xmsk.net><span class="adder"><%=WebTitle%>·本书编辑：<%=Rs_t("adder")%><%=Rs_t("addtim")%></span></a>）
</td></tr></table>
<table width=760 align=center border=0 bgcolor=#E1F8D8><tr><td align=center>
<%
sql_sp="select top 1 id from read where bookid="&bookid&" and len(zhengwen)>5 and id<"&id&" order by id desc"
set Rs_sp = Server.CreateObject("ADODB.Recordset")
Rs_sp.open sql_sp,conn,1,1
if not Rs_sp.eof then
%>
<a href="read.asp?bookid=<%=bookid%>&id=<%=Rs_sp("id")%>">上一篇</a>
<%end if
Rs_sp.close%>
<a href="bookread.asp?bookid=<%=bookid%>">返回目录</a><%
sql_xp="select top 1 id from read where bookid="&bookid&" and len(zhengwen)>5 and id>"&id&" order by id asc"
set Rs_xp = Server.CreateObject("ADODB.Recordset")
Rs_xp.open sql_xp,conn,1,1
if not Rs_xp.eof then
%>
<a href="read.asp?bookid=<%=bookid%>&id=<%=Rs_xp("id")%>">下一篇</a>
<%end if
Rs_xp.close%>
</td></tr></table>
<%
Rs_t.close
rs.close
set rs=nothing
conn.close
set conn=nothing%>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -