📄 look_book.asp
字号:
<!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'******************* 終點小说连载系统 ***************************
'作者:终点
'邮件:liuyanhaoxin@163.com;liuyanhaoxin@126.com
'网站:http://www.cnend.com/;http://www.cnend.com.cn/;http://www.cnend.net/;http://www.cnend.cn/
'QQ:46653654
'**********************************************************************
'----------------------------------------------------------------------
--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table border="0" cellpadding="0" cellspacing="0" valign="top" width="100%">
<tr>
<td align="left" valign="top">
<table border="0" cellpadding="0" cellspacing="0" width="100%" valign="top" align="center">
<tr>
<td width="100%" align="left" class="xt">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" class="font"><br>
<font face="隶书" size="5" color="#800000"><%=rs_s("list_name")%></font>
<hr size="3"></td>
</tr>
<tr>
<td align="center">
<table cellspacing="0" cellpadding="0" width="98%" border="0" align="center">
<tr>
<td>类别：<%=rs2("list_classname")%></td>
<td>作者：<%=rs_s("list_user")%></td>
<td>更新：<%=formatdatetime(rs_s("list_gxdate"),2)%></td>
</tr>
<tr>
<td>大类：<%=rs8("list_tpye")%></td>
<td>性质：<%if rs_s("IsVip")=1 then response.write("VIP作品") end if%>
<%if rs_s("IsVip")=0 then response.write("公众作品") end if%></td>
<td>授权：<%=rs_s("list_qianyue")%></td>
</tr>
<tr>
<td>首发：<%if rs_s("list_sftai")=0 then response.write("他站首发") end if%>
<%if rs_s("list_sftai")=1 then response.write("本站首发") end if%></td>
<td>字数：<%=rs_s("list_size")%></td>
<td>进程：<%if rs_s("list_tai")="1" then response.write("转载中...") end if%>
<%if rs_s("list_tai")="2" then response.write("连载中...") end if%>
<%if rs_s("list_tai")="3" then response.write("出版中...") end if%>
<%if rs_s("list_tai")="4" then response.write("已暂停...") end if%>
<%if rs_s("list_tai")="5" then response.write("已停止...") end if%>
<%if rs_s("list_tai")="6" then response.write("已完成...") end if%></td>
</tr>
<tr>
<td>点击：<%=rs_s("list_hit")%></td>
<td>推荐：<%=rs_s("list_jian")%></td>
<td>收藏：<%=rs_s("list_cang")%></td>
</tr>
</table>
</td>
</tr>
</table>
<hr size="1">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="125" align="center" valign="top">
<a title=" 阅 读 " href="READ_BOOK.asp?id=<%=rs_s("id")%>">
<img src="<%=rs_s("pic")%>" width="110" height="150" style="border: 1 solid #000000"></a></td>
<td align="center" valign="top">
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20"> <b>[内容简介]</b><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27" style="PADDING-BOTTOM: 5px;PADDING-top: 8px;line-height:150%;">
<%=replace(rs_s("list_all"),chr(13),"<Br>")%><br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="27">
<div style="PADDING-BOTTOM: 5px;PADDING-top: 8px;line-height:150%;" align="right">
主角检索关键字 —— <font color="#FF0000"><%=rs_s("key")%></font>
<br>
<a href="http://www.baidu.com/baidu?tn=liuyanhao&word=<%=rs_s("list_name")%>" target="_blank">
<b><font color="#006600">在百度中搜索更多本书内容</font></b></a>
</div>
</td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"><a href="read_book.asp?id=<%=rs_s("id")%>">
<img border="0" src="images/r1.gif" width="107" height="31"></a>
<a title="会员才能使用此功能，快来注册吧！" href="jian_book.asp?id=<%=rs_s("id")%>&us=<%=rs_s("list_userid")%>">
<img border="0" src="images/r3.gif" width="107" height="31"></a>
<a title="会员才能使用此功能，快来注册吧！" href="albbox.asp?action=add&id=<%=rs_s("id")%>">
<img border="0" src="images/r2.gif" width="107" height="31"></a>
<%if rs_s("list_Adminid")<>"0" then%>
<a href="show_Author.asp?id=<%=rs_s("list_Adminid")%>">
<img border="0" src="images/r4.gif" width="107" height="31"></a>
<%else%> <%end if%>
<a href="javascript:jopens('Down_book.asp?bookid=<%=rs_s("id")%>')">
<img border="0" src="images/r5.gif" width="107" height="31"></a></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><hr size="1">
<table cellspacing="0" cellpadding="0" width="99%" border="0">
<tr>
<td height="27"> <b>[最新公告]</b></td>
</tr>
<tr>
<td height="27" align="left"> <%=rs_s("list_news")%></td>
</tr>
</table><hr size="1">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27"> <b>[最新更新] <a target="_blank" href="view_book.asp?id=<%=rs_s("newviewid")%>">
<font color=#5d5d5d><%if rs_s("newviewname")<>"" then%><%=rs_s("newviewname")%></font></a>
</td>
</tr>
<tr>
<td height="27" style="PADDING-BOTTOM: 5px;PADDING-top: 8px;line-height:150%;">
<%=rs_s("newview")%>......</td>
</tr><%else response.write "暂无更新</td></tr>"%>
<%end if%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><hr size="1"></td>
</tr>
</table>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27"> <b>[ 重要提示 ]</b> <br>
</td>
</tr>
<tr>
<td height="27" style="PADDING-BOTTOM: 5px;PADDING-top: 8px;line-height:150%;">
<%
dim vipbookid
set rsvip=server.CreateObject("ADODB.Recordset")
sqlvip="select id from vip_book where list_id="&id&""
rsvip.open sqlvip,conn,1,1
%><%if not(rsvip.bof and rsvip.eof) then
vipbookid=rsvip("id")
set rsvip1=server.CreateObject("ADODB.Recordset")
sqlvip1="select id,view_name,view_date from vip_view where view_id="&vipbookid&""
rsvip1.open sqlvip1,conn,1,1
%> 本书VIP会员最新章节：<%if not(rsvip1.bof and rsvip1.eof) then%><a target="_blank" href="vip_view_book.asp?id=<%=rsvip1("id")%>"><%=rsvip1("view_name")%></a>
更新日期：<%=rsvip1("view_date")%><%else%><%response.write " 暂无更新"%><%end if
rsvip1.close
set rsvip1=nothing
%><br>
<%else%> <%end if
rsvip.close
set rsvip=nothing%> 章节阅读开通用“<font color="#0000FF">左右按键进行前后翻页阅读</font>”的功能，同时<font color="#0000FF">按回车[enter]键直接返回作品首页</font>，<font color="#0000FF">双击鼠标左键自动滚屏
，鼠标向上移动滚屏加速，鼠标向下移动滚屏减速，单击左键自动滚屏停止</font>。<br>
书友所发表的评论，并不代表本站赞同或者支持此观点，我们的立场仅限于传播更多读者感兴趣的信息。如果作品浏览，或对作品内容、版权等方面有质疑，或对本站有意见建议请到站务管理区发帖或查看<a href="readme.asp" target="_blank"><font color="blue">在线帮助</font></a>，感谢您的合作与支持
。</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><hr size="3">
<b> 关于此作品的评论（只显示10条）
[
<a href="javascript:jopens('commentlist.asp?id=<%=rs_s("id")%>')">
查看全部书评</a> ] [
<a href="javascript:jopens('goodcommentlist.asp?id=<%=rs_s("id")%>')">
查看精华书评</a> ]</b><hr size="1">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center">
<%
Set rsp1 = Server.CreateObject("ADODB.Recordset")
sql = "select * from [Comment] where bookID='"&request("id")&"' and IsTop='1' order by Commentid desc"
rsp1.open sql, conn, 1, 3
%>
<%if rsp1.eof and rsp1.bof then%>
<%else%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%do while not rsp1.eof%>
<tr>
<td style="PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;">※ <font color=#FF0000>[置顶]</font><%if rsp1("IsGood")=1 then response.write " <font color=#FF0000>[精华]</font>" end if%> <%=rsp1("Content")%></td>
<td align="right" width="130"><%=rsp1("UserName")%>〈<%=formatdatetime(rsp1("WriteTime"),2)%>〉</td>
</tr>
<tr>
<td colspan="2" bgcolor="#666666" align="center" height="1"></td>
</tr>
<%
rsp1.movenext
loop
%>
</tr>
</table>
<%end if
rsp1.close
set rsp1=nothing%>
<%
Set rsp = Server.CreateObject("ADODB.Recordset")
sql = "select top 10 * from [Comment] where bookID='"&request("id")&"' and IsTop='0' order by Commentid desc"
rsp.open sql, conn, 1, 3
%>
<%if rsp.eof and rsp.bof then%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="font">没有数据可查询</td>
</tr>
</table>
<%else%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%do while not rsp.eof%>
<tr>
<td style="PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;">※ <%if rsp("IsGood")=1 then response.write "<font color=#FF0000>[精华]</font> " end if%><%=rsp("Content")%></td>
<td align="right" width="130"><%=rsp("UserName")%>〈<%=formatdatetime(rsp("WriteTime"),2)%>〉</td>
</tr>
<tr>
<td colspan="2" bgcolor="#666666" align="center" height="1"></td>
</tr>
<%
rsp.movenext
loop
%>
</tr>
</table>
<%end if
rsp.close
set rsp=nothing%></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"><hr noshade size="1"><%if rs_s("Lock_lun")=0 then%>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="27" align="left">
<table border="0" cellspacing="0" cellpadding="0" width="98%" align="left" valign="top">
<form action="CommentSave.asp?act=add&id=<%=rs_s("id")%>" method="post" name="bookup">
<tr>
<td width="100%" class="xt" valign="top" class="font">
<input type="text" name="001" <%if username="" or isnull(wordid) then response.write("value='注册用户方可发表书评，请您先进行登录!'") else response.write("value='您已经登陆,可以发表书评!'")%> disabled size="38">
*</td>
</tr>
<tr>
<td align="left" width="100%" class="xt" valign="top" class="font">
<textarea rows="6" cols="60" name="Content" maxlength="230" class="think"></textarea><br>
<input type="button" value="计算字数" class="stbtm" onclick="javascript:alert("帖子内容长度: "+document.bookup.Content.value.length+" 个字，\n最多允许240字。");">
<input title="严禁使用任何html、javascript脚本或其他非法性字符，请少于240字！" type="submit" value="发送书评" class="stbtm" name="sendup" onclick="bookupsubmit();">
严禁使用任何html、javascript脚本或其他非法性字符
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%else%>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="150" align="center"><b><font color="#FF0000">本书评论已锁定不能发表书评，如有问题请发站内短信给管理员。</font></b></td>
</tr>
</table>
<%end if%> </td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -