📄 viewall_book.asp
字号:
<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"-->
<!--#include file="hitcount.asp"-->
<%
dim id,UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect "index.asp"
response.End
end if
id=int(id)
viewRootFolder="HTML/" 'HTML存放目录
view_localpath0 = left(id,2) '一级分类目录
view_localpath1 = left(id,4) '二级分类目录
view_localpath2 = left(id,6) '作品分类目录
view_localpath3 = id '作品目录
view_localpath = view_localpath0&"/"&view_localpath1&"/"&view_localpath2&"/"&view_localpath3&"/"
viewFolder = viewRootFolder&""&view_localpath
file=server.mappath( ""&viewFolder&"ReadALL"&id&".html" )
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(file) = 1 Then
Response.redirect(""&viewFolder&"ReadALL"&id&".html")
Response.end
end if
set rs2=server.CreateObject("ADODB.recordset")
sql2="select * from list_book where id="&id
rs2.open sql2,conn,1,1
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
file2=server.mappath( ""&viewFolder&"index.html" )
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(file2) = 1 Then
response.Redirect ""&viewFolder&"index.html"
response.End
end if
bookcount(id)
classid=rs2("list_class")
set rs3=server.CreateObject("ADODB.recordset")
sql3="select * from list_type where typeid="&classid
rs3.open sql3,conn,1,1
%> <%
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")
%>
<!--#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=<%=id%>"><%=rs2("list_name")%></a>》</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=<%=id%>">
全文阅读</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=<%=id%>">
加入书签</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=<%=id%>">
加入书架</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=<%=id%>&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=<%=id%>">
返回书页</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></td>
</tr>
</table>
<%
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from list_cook where list_bookid="&id&" order by list_bookid"
rs1.open sql1,conn,1,1
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white">
<%do while not rs1.eof%>
<tr height="26">
<td colspan="4" align="center" bgcolor="#e3e3e3"><a href="#cook<%=rs1("list_cookid")%>">
<%=rs1("list_cookname")%></a></td>
</tr>
<tr height="26">
<%
c_id=rs1("list_cookid")
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_size,view_date,view_type,view_get 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 height="26" align="left" width="33%">
<a href="#<%=rs4("id")%>" title='本章字数：<%=rs4("view_size")%>
更新日期：<%=rs4("view_date")%>' ><%=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.movenext
loop
rs1.close
set rs1=nothing
%><%
rs9.close
set rs9=nothing
%>
<%
rs3.close
set rs3=nothing
%>
</table>
<%
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from list_cook where list_bookid="&id&" order by list_bookid"
rs1.open sql1,conn,1,1
do while not rs1.eof
%><table align="center" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white">
<tr height="26">
<td colspan="4" align="center" bgcolor="#e3e3e3"><a name="#cook<%=rs1("list_cookid")%>"><%=rs1("list_cookname")%></a></td>
</tr>
</table>
<%
c_id=rs1("list_cookid")
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_size,view_size,view_date,view_type,view_ok2,view_SaveToTXT,view_get,view_ok from [list_view] where list_cookid="&c_id&" order by id"
rs4.open sql4,conn,1,1
%> <%do while not rs4.eof%>
<table align="center" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle" class="font"><br>
<span style="font-size:13pt;"><a name="<%=rs4("id")%>"><%=rs4("view_type")%></a><br>
（ 本章字数：<%=rs4("view_size")%> 更新时间：<%=rs4("view_date")%>）</span></td>
</tr>
</table>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="96%">
<tr>
<td><br>
<div align="left" id="content"><font face="<%=fontface%>" color="<%=fontcolor%>">
<span style="font-size:<%=fontsize%>pt;line-height:150%;"><%if rs4("view_get")<>0 and rs4("view_ok2")<>"" then
if rs4("view_SaveToTXT")=0 then%><%=rs4("view_ok2")%><%else
viewRootFolder="HTML/" 'HTML存放目录
view_localpath0 = left(id,2) '一级分类目录
view_localpath1 = left(id,4) '二级分类目录
view_localpath2 = left(id,6) '作品分类目录
view_localpath3 = id '作品目录
view_localpath = view_localpath0&"/"&view_localpath1&"/"&view_localpath2&"/"&view_localpath3&"/"
viewFolder = viewRootFolder&""&view_localpath
%> <script src='<%=viewFolder%>TXT/<%=rs4("id")%>.txt'></script><%end if%><%else
if rs4("view_ok")<>"" then%><script src='<%=rs4("view_ok")%>'></script><%else response.write "内容暫缺"
end if%>
<%end if%></span></font>
</div>
<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>
<br>
<%
rs4.movenext
loop
rs4.close
set rs4=nothing
%><%rs1.movenext
loop
rs1.close
set rs1=nothing
%><%
rs2.close
set rs2=nothing
%>
<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 + -