read_book.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"-->
<%UserID=CheckSql(request.cookies("CnEndWeb_User")("log_UserID"))
UserName=CheckSql(request.cookies("CnEndWeb_User")("log_UserName"))
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from list_cook where list_bookid="&id&" order by cook_viewid"
rs1.open sql1,conn,1,1
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
if makehtml=1 then
if htmlphem=1 then
htmlphe="htm"
elseif htmlphem=2 then
htmlphe="html"
elseif htmlphem=3 then
htmlphe="shtml"
elseif htmlphem=4 then
htmlphe="asp"
else
htmlphe="html"
end if

viewFolder = SiteSystemPath&"HTML/"&rs2("id")&"/"

file2=server.mappath( ""&viewFolder&"index."&htmlphe&"" )
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(file2) = True Then
response.write "<meta http-equiv=Refresh content='0; URL="&viewFolder&"index."&htmlphe&"'>"
response.Redirect ""&viewFolder&"index."&htmlphe&""
response.End
end if
end if
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")
Stats2="》的目录"%>
<!--#include file="top.asp"--><script language="JavaScript" src="hitcount.asp?id=<%=id%>"></script>

<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 class="view" href="index.asp">
		<%=SiteName%>首页</a>-&gt;<a class="view" href="listupdate.asp">原创书库</a>-&gt;《<a class="view" href="look_book.asp?id=<%=id%>"><%=rs2("list_name")%></a>》</td>
		<td class="333" align="right" width="50%">『 
		<a target="_blank" class="view" href="viewall_book.asp?id=<%=id%>">
		全文阅读</a>
		<a class="view" href="user_save.asp?info=boxaddbook&id=<%=id%>">
		加入书架</a>
		<a class="view" href="user_index.asp?info=box">
		打开书架</a>
		<a class="view" href="user_save.asp?info=jianbook&id=<%=id%>&us=<%=rs2("list_userid")%>">
		推荐本书</a>
		<a class="view" 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"></td>
	</tr>
</table>
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="0" style="font-family: 宋体; font-size: 10pt" id="table3">
	<tr>
		<td>
		<div align="center">
			<span class="max"><%=rs2("list_name")%></span><br>
			　</div>
		</td>
	</tr>
	<tr>
		<td height="25" align="center"><span class="min">作者: <%=rs2("list_user")%>&nbsp; 发表时间: <%=formatdatetime(rs2("list_date"),2)%>&nbsp; 
		所属类型:<%=rs9("list_classname")%></span></td>
	</tr>
</table>
<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">
			<%do while not rs1.eof%>
			<tr height="26">
				<td colspan="4" align="center" bgcolor="#e3e3e3"><%=rs1("list_cookname")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
				[
				<a target="_blank" href="view_readbook.asp?list_bookid=<%=rs1("list_bookid")%>&list_cookid=<%=rs1("list_cookid")%>">
				分卷阅读</a> ]</td>
			</tr>
			<tr>
				<td colspan="4"><%=rs1("list_cookinfo")%></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&" and view_IsVip=0 order by view_showid"
rs4.open sql4,conn,1,1
%> <%
i=1
do while not rs4.eof
%>
				<td height="26" align="left" width="33%">&nbsp;
				<a href="view_book.asp?id=<%=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
 
set rsvip=server.CreateObject("ADODB.Recordset")
sqlvip="select * from list_view where view_id="&id&" and view_IsVip=1 order by view_showid"
rsvip.open sqlvip,conn,1,1
if not(rsvip.bof and rsvip.eof) then%>
			<tr height="26">
				<td colspan="4" align="center" bgcolor="#e3e3e3">[ VIP章节 
				<a target="_blank" href="look_VIPbook.asp?id=<%=id%>">查看VIP章节</a> 
				]</td>
			</tr>
			<tr height="26">
<%
i=1
do while not rsvip.eof
%>
				<td height="26" align="left" width="33%">&nbsp;
				<a href="vip_view_book.asp?id=<%=rsvip("id")%>" title="本章字数：<%=rsvip("view_size")%>
更新日期：<%=rsvip("view_date")%>
消费金额：<%=rsvip("view_vips")%>
内容预览：
<%=left(rsvip("view_ok2"),200)%>"><%=rsvip("view_type")%></a> </td>
<%
if i mod 3=0 then response.write "</tr><tr height=26>"
i=i+1
rsvip.movenext
loop
end if
rsvip.close
set rsvip=nothing
%>
			</tr>
<%
rs2.close
set rs2=nothing
%>
		</table>
		</td>
	</tr>
</table>
<!-- #include file="foot.asp" -->

</body>

</html>