📄 view_readbook.asp
字号:
<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"-->
<!--#include file="hitcount.asp"-->
<%
dim list_bookid,list_cookid
dim UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
list_bookid=CheckSql(request("list_bookid"))
CheckSqlnum(list_bookid)
if list_bookid="" then
response.Redirect "index.asp"
response.End
end if
list_bookid=int(list_bookid)
list_cookid=CheckSql(request("list_cookid"))
CheckSqlnum(list_cookid)
if list_cookid="" then
response.Redirect "index.asp"
response.End
end if
list_cookid=int(list_cookid)
if list_cookid=0 then
response.write "<script language=javascript>alert(' 访问错误!\n\n 已经到达首页或尾页或访问的文件不存在！\n\n 点击确定返回');history.back(-1);</script>"
response.end
end if
bookcount(list_bookid)
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from list_cook where list_cookid="&list_cookid
rs1.open sql1,conn,1,1
if not(rs1.bof and rs1.eof) then
else
response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
response.end
end if
set rs2=server.CreateObject("ADODB.recordset")
sql2="select * from list_book where id="&list_bookid
rs2.open sql2,conn,1,3
if not(rs2.bof and rs2.eof) then
else
response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
response.end
end if
if rs2("isuserread")=1 then
If UserName="" or UserID="" or IsNull(WordID) Then
response.write "<script language=javascript>alert('对不起,您要查看的作品只允许注册会员阅读! \n\n 如果您是会员可能您还没有登陆或者登陆超时! \n\n 如果您没有成为会员请先进行会员注册！ \n\n 如果您已经是注册会员请重新登陆！');history.back(-1);</script>"
response.end
end if
end if
if rs2("Lock_book") = 1 then
response.write "<script language=javascript>alert(' 对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
response.end
end if
%><%
dim list_classid
list_classid=rs2("list_lei")
set rs9=server.CreateObject("ADODB.Recordset")
sql9="select * from list_class where list_classid="&list_classid&""
rs9.open sql9,conn,1,1
%><%
Stats0="分卷阅读"
Stats1=rs2("list_name")
Stats2=rs2("list_user")
Stats3=rs1("list_cookname")%>
<!--#include file="top.asp"-->
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0" style="font-family: 宋体; font-size: 10pt" id="table2">
<tr bgcolor="#333333">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td class="333" width="50%" height="25">
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="index.asp">
<%=SiteName%>首页</a>-><a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="listupdate.asp">原创书库</a>->《<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="look_book.asp?id=<%=list_bookid%>"><%=rs2("list_name")%></a>》-><%=rs1("list_cookname")%></td>
<td class="333" align="right" width="50%">『
<a target="_blank" style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="viewall_book.asp?id=<%=list_bookid%>">
全文阅读</a>
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="albbox.asp?action=add&id=<%=list_bookid%>">
加入书签</a>
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="albbox.asp?action=add&id=<%=list_bookid%>">
加入书架</a>
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="jian_book.asp?id=<%=list_bookid%>&us=<%=rs2("list_userid")%>">
推荐本书</a>
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="look_book.asp?id=<%=list_bookid%>">
返回书页</a> 』</td>
</tr>
<tr bgcolor="#333333">
<td colspan="2" height="1"></td>
</tr>
<tr bgcolor="#cccccc">
<td colspan="2" height="2"></td>
</tr>
<tr>
<td colspan="2" height="10"><iframe src=adlist.asp width=100% height=40 border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" scrolling="no"></iframe></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgColor="#333333">
<td height="1" align="center">
</td>
</tr>
<tr>
<td align="center"><br><span class="max"><%=rs2("list_name")%></span>
<br><span class="min">作者: <%=rs2("list_user")%> 发表时间:
<%=rs2("list_date")%> 所属类型:<%=rs9("list_classname")%></span>
<br><br>
<table id=table14 cellspacing=0 cellpadding=10 width="100%" align=center border=0>
<tr>
<td>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white">
<tr height=26>
<td colspan="4" align="center" bgcolor="#e3e3e3"><%=rs1("list_cookname")%></td>
</tr>
<tr height=26>
<%
c_id=rs1("list_cookid")
set rs4=server.CreateObject("ADODB.recordset")
sql4="select * from [list_view] where list_cookid="&c_id&" order by id"
rs4.open sql4,conn,1,1
%><%
i=1
do while not rs4.eof
%>
<td align="left" width="25%"> <a href="#<%=rs4("id")%>"><%=rs4("view_type")%></a></td>
<%
if i mod 3=0 then response.write "</tr><tr height=26>"
i=i+1
rs4.movenext
loop
rs4.close
set rs4=nothing
%>
</tr>
<%
rs1.close
set rs1=nothing
%><%
rs9.close
set rs9=nothing
%>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<!-- 章节列表 SQL参数Best_Sql、Best_Num --><%
Dim Best_rs,Best_Num,Best_Sql,Best_bgcolor
Best_Sql="select ID,view_type,view_ok2,view_date,view_lock,view_size,view_SaveToTXT,view_get,view_ok from [list_view] where list_cookid="&list_cookid&""
Best_Num=300
Set Best_rs=conn.execute(Best_Sql)
For i=1 To Best_Num
If Best_rs.eof Then Exit For
Best_bgcolor="#f9f9f9"
If i mod 2 = 0 Then
Best_bgcolor="F9F9F9"
Else
Best_bgcolor="F5F5F5"
End If
%>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td align="center" valign="middle" class="font"><br><font face="隶书">
<span style="font-size:18pt; font-weight:700"><a name=<%Response.Write (Best_rs(0))%>><%Response.Write (Best_rs(1))%></a></span></font><br>（本章字数：<%Response.Write (Best_rs(5))%> 更新时间：<%Response.Write (Best_rs(3))%>）</td>
</tr>
</table><table align="center" border="0" cellpadding="0" cellspacing="0" width="96%">
<tr>
<td><br><%if Best_rs(4)=0 then%><DIV align='left' id=content><font face="<%=fontface%>" color="<%=fontcolor%>"><span style="font-size:<%=fontsize%>pt;line-height:150%;">
<%if Best_rs(7)<>0 and Best_rs(2)<>"" then
if Best_rs(6)=0 then%><%Response.Write (Best_rs(2))%><%else
viewRootFolder="HTML/" 'HTML存放目录
view_localpath0 = left(list_bookid,2) '一级分类目录
view_localpath1 = left(list_bookid,4) '二级分类目录
view_localpath2 = left(list_bookid,6) '作品分类目录
view_localpath3 = list_bookid '作品目录
view_localpath = view_localpath0&"/"&view_localpath1&"/"&view_localpath2&"/"&view_localpath3&"/"
viewFolder = viewRootFolder&""&view_localpath
%><script src='<%=viewFolder%>TXT/<%Response.Write (Best_rs(0))%>.txt'></script><%end if%><%else
if Best_rs(8)<>"" then%><script src='<%Response.Write (Best_rs(8))%>'></script><%else response.write "内容暫缺"
end if%>
<%end if%></span></font></DIV><%else
response.write "对不起,您要查看的作品已经被锁定! 可能该作品包含国家或者本站所禁止的内容.您如果是该作品的管理员或作者,请联系站长!"
end if%><br></td>
</tr>
</table>
<br><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr align="center">
<td height=20 align="right" bgcolor="dddddd" class="font">[ <a href=#top>置 顶 返回目录</a> ]
</td>
</tr>
</table>
<br> <%
Best_rs.movenext
Next
Best_rs.close
Set Best_rs=NOTHING
%><!-- 章节列表 结束 -->
<%
rs2.close
set rs2=nothing
%><table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" style="font-family: 宋体; font-size: 10pt" id="table3">
<tr bgColor="#333333">
<td height="1" align="center">
</td>
</tr>
<tr>
<td colSpan="2" height="8"></td>
</tr>
<tr>
<td>
<div align="center">
<%
dim c_idpage,idpage,rspage3,rspage4,ppage,b_idpage
c_idpage=list_cookid
set rspage=server.CreateObject("ADODB.recordset")
sqlpage="select list_cookid from [list_cook] where list_bookid="&list_bookid&" and list_cookid<"&c_idpage&" order by list_cookid desc"
rspage.open sqlpage,conn,1,1
if rspage.recordcount>0 then
ppage=rspage("list_cookid")
else
ppage=0
end if
rspage.close
set rspage=nothing
%><%
dim npage
set rspage1=server.CreateObject("ADODB.recordset")
sqlpage1="select list_cookid from [list_cook] where list_bookid="&list_bookid&" and list_cookid>"&c_idpage&" order by list_cookid"
rspage1.open sqlpage1,conn,1,1
if rspage1.recordcount>0 then
npage=rspage1("list_cookid")
else
npage=0
end if
rspage1.close
set rspage1=nothing
%><script language="javascript">
document.onkeydown=nextpage
var prevpage="view_readbook.asp?list_bookid=<%=list_bookid%>&list_cookid=<%=ppage%>"
var nextpage="view_readbook.asp?list_bookid=<%=list_bookid%>&list_cookid=<%=npage%>"
var bookpage="read_book.asp?id=<%=list_bookid%>"
function nextpage() {
if (event.keyCode==13) location=bookpage
if (event.keyCode==37) location=prevpage
if (event.keyCode==39) location=nextpage
}
</script> <a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="javascript:document.location=prevpage" target="_top">上一卷</a>
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="javascript:document.location=bookpage" target="_top">
返回书目</a>
<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="javascript:document.location=nextpage" target="_top">下一卷</a></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colSpan="2" height="6"></td>
</tr>
<tr bgColor="#333333">
<td height="1" align="center">
</td>
</tr>
<tr>
<td align="center"><%=adsfoot%></td>
</tr>
<tr bgColor="#333333">
<td height="1" align="center">
</td>
</tr>
</table>
<!-- #include file="foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -