look_vipbook.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*******************     終點小说连载系统   ***************************
'修改者:终点
'邮件:[e-mail];[e-mail]
'网站:http://www.cnend.com/;http://www.cnend.com.cn/;http://www.cnend.net/;http://www.cnend.cn/
'QQ:46653654
'**********************************************************************
'----------------------------------------------------------------------
--><%
dim ID
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect "index.asp"
response.End
end if
id=int(id)
set rs_s=server.createobject("adodb.recordset")
sql="select id,list_id,list_class,list_user,list_name,list_gxdate,pic,list_all,Lock_book from [vip_book] where list_id="&id&""
rs_s.open sql,conn,1,1
if not(rs_s.bof and rs_s.eof) then
	else
	response.write "<script language=javascript>alert('对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容 \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
if rs_s("Lock_book") = 1 then
	response.write "<script language=javascript>alert('对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
%>
		<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" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white">
							<tr>
								<td height="30" align="center" class="font">
								<font face="隶书" size="5" color="#800000"><%=rs_s("list_name")%></font>
								<hr size="3"></td>
							</tr>
						</table>
						<table border="0" cellpadding="0" cellspacing="0" valign="top" width="100%">
									<tr>
<%
dim classid
classid=rs_s("list_class")
set rs5=server.createobject("adodb.recordset")
sql5="select list_tpye from [list_type] where typeid="&classid
rs5.open sql5,conn,1,1
%>
										<td width="25%" align="center" valign="top">
										<img src="<%=rs_s("pic")%>" width="100" height="142"><br>
										</td>
										<td width="75%" align="left" valign="top" style="paddint-top:10;padding-bottom:10;line-height:180%">
										<table width="100%">
											<tr>
												<td width="50%">作品类型：<%=rs5("list_tpye")%><br>
												</td>
												<td width="50%">作者：<%=rs_s("list_user")%><br>
												</td>
											</tr>
											<tr>
												<td width="50%">最后更新：<%=rs_s("list_gxdate")%><br>
												</td>
												<td width="50%">
												<a href="look_book.asp?id=<%=rs_s("list_id")%>" target="_blank">
												点击本书阅读公众版</a><br>
												</td>
											</tr>
											<tr>
												<td colspan="2" width="100%">
												公众版最新章节：<%
set rs4=server.CreateObject("ADODB.recordset")
sql4="select newviewid,newviewname from [list_book] where id="&id&""
rs4.open sql4,conn,1,1
if rs4.eof and rs4.bof then
else%><a target="_blank" href="view_book.asp?id=<%=rs4("newviewid")%>">
<font color=#5d5d5d><%if rs4("newviewname")<>"" then%><%=rs4("newviewname")%><%else%>暂无更新<%end if%></font></a>
<%
rs4.close
set rs4=nothing
end if%>
</font></a>
<br>
												</td>
											</tr>
											<tr>
												<td colspan="2" width="100%">
												内容简介：<br>
&nbsp;&nbsp;&nbsp; <%=unhtml(rs_s("list_all"))%><br>
												<br>
												</td>
											</tr>
										</table>
										</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 noshade size="1">
				<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolordark="white" bordercolorlight="cccccc" bordercolor="white">
					<tr>
						<td height="27" align="center" valign="top">请注意：在阅读前先看一下公众版最后的章节，不要阅读已发布公众版的VIP章节<br>
						<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#EBC77D" bordercolorlight="#0D2A32" bordercolor="#EBC77D">
											<tr height=24>
					<td align=center width=40% valign=middle><b>作品现有VIP章节</b></td>
					<td align=center width=20% valign=middle><b>发布时间</b></td>
					<td align=center width=15% valign=middle><b>章节字数</b></td>
					<td align=center width=15% valign=middle><b>消费</b></td>
				</tr>
												<%
dim vipbookid
vipbookid=rs_s("id")
set rs4=server.CreateObject("ADODB.recordset")
sql4="select id,view_size,view_date,view_name,view_ok2,view_size,view_vips from [vip_view] where view_id="&vipbookid&" order by id"
rs4.open sql4,conn,1,1
if rs4.bof and rs4.eof then
response.write "<td height=26 width='95%' colspan='4' align=center><b>没有内容</b></td>"
else
do while not rs4.eof%>
												

				<tr height=26>
					<td align=center width=10% valign=middle><a href="vip_view_book.asp?id=<%=rs4("id")%>" target="_blank"><%=rs4("view_name")%></a></td>
					<td align=center width=20% valign=middle><%=rs4("view_date")%></td>
					<td align=center width=10% valign=middle><%=rs4("view_size")%></td>
					<td align=center width=15% valign=middle><%=rs4("view_vips")%></td>
				</tr>
				<tr>
					<td colspan=6 align=left width=100% style='solid;color:#666666;padding-top:5;padding-bottom:5'>　　<br>　　<%=left(rs4("view_ok2"),200)%>……</td>
				</tr>
<%
rs4.movenext
loop
end if
rs4.close
set rs4=nothing
%>
											</tr>
										</table></td>
					</tr>
				</table>
				</td>
			</tr>
		</table>
		<%
		rs5.close
		set rs5=nothing
		rs_s.close
		set rs_s=nothing
%>