vip_view_book.asp

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

<!-- #include file="conn.asp" -->
<!--#include file="inc/config.asp"-->
<!--#include file="hitcount.asp"-->
<%
dim id,a,b,c,bgcolor,fontcolor,fontsize
dim 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)

set rs=server.CreateObject("ADODB.recordset")
sql="select * from vip_view where id="&id
rs.open sql,conn,1,1
if rs.eof then
	Response.Write ("<script>alert(' 访问错误!\n\n 您访问的文件不存在或已经删除！\n\n 点击确定返回 ');history.back();</script>")
	Response.end
end if
view_vips=rs("view_vips")
%>
<%
dim UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
If UserID="" or UserName="" or UserID=null or UserName=null or IsNull(WordID) Then
	Response.Write ("<script>alert(' 操作错误! \n\n 可能您还没有登陆或者登陆超时! \n\n 如果您没有成为会员请先进行会员注册！ \n\n 如果您已经是注册会员请重新登陆！ ');history.back();</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sqlu="select * from [User] where ID="&UserID&""
rsu.open sqlu,conn,1,3
Usermene=rsu("Usermene")
if rsu("LockUser")=1 then
	Response.Write ("<script>alert(' 操作错误! \n\n 您的帐户已被锁定，如果您对您的帐户有异议请联系站长！ ');history.back();</script>")
	Response.End
End If
if rsu("IsVipUser")=0 then
	Response.Write ("<script>alert(' 操作错误! \n\n 您不是VIP会员，如果您想阅读本章节内容！ \n\n 请按照本站要求先注册成为VIP会员！ ');history.back();</script>")
	Response.End
End If
if Usermene - view_vips < 0 then
	Response.Write ("<script>alert(' 操作错误! \n\n 您的帐户金额不足无法进行阅读！ \n\n 如果您想阅读本章节内容，请先对您的帐户进行冲值！ \n\n 如果您对您的帐户余额有异议请联系站长！ ');history.back();</script>")
	Response.End
Else
rsu("Usermene")=Usermene - view_vips
rsu.update
End If
%>
<%'文章设置开始
dim list_bookid,list_class
list_bookid=rs("view_id")
set rs3=server.createobject("adodb.recordset")
sql3="select id,list_id,list_userid,Lock_book,list_name,list_user from vip_book where id="&list_bookid
rs3.open sql3,conn,1,1
if not(rs3.bof and rs3.eof) then
	else
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品不存在或已经被删除! \n\n 可能该作品不存在或包含国家或者本站禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if
if rs3("Lock_book") = 1 then
	response.write "<script language=javascript>alert(' 对不起,您要查看的作品已经被锁定! \n\n 可能该作品包含国家或者本站所禁止的内容. \n\n 您如果是该作品的管理员或作者,请联系站长!');history.back(-1);</script>"
	response.end 
end if

Stats0="VIP 作品阅读"
Stats1=rs3("list_name")
Stats2=rs3("list_user")
Stats3=rs("view_type")%>
<!--#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>-&gt;<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="vip_index.asp">VIP 专区</a>-&gt;《<a style="font-style: normal; font-variant: normal; font-weight: normal; line-height: 160%; font-size: 12px; color: #666666; text-decoration: none" href="look_vipbook.asp?id=<%=rs3("list_id")%>"><%=rs3("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=<%=rs3("list_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=<%=rs3("list_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=<%=rs3("list_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="look_VIPbook.asp?id=<%=rs3("list_id")%>">
		返回VIP 版书页</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=<%=rs3("list_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 width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr bgColor="#333333">
		<td height="1" align="center">
		</td>
	</tr>
	<tr>
		<td align="center"><table width='85%' border='0' align='center' cellpadding='0' cellspacing='0'>
              <tr>
            <td height="1" align="center">
            <table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0" background="images/barbottomback.jpg">
                <tr>
                    <td align="center"><img border="0" src="images/barbottomback.JPG" width="750" height="1"></td>
                </tr>
            </table></td>
          </tr><tr>
        <td align='center'><font face="隶书"><b><span style="font-size:20pt;"><%=rs("view_name")%></span></b></font><br><br>
        本章字数：<%=rs("view_size")%>&nbsp;&nbsp;更新时间：<%=rs("view_date")%>&nbsp;&nbsp;消费金额：<%=rs("view_vips")%><br><br>
            <DIV align='left' id=content><%=rs("view_ok2")%><br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
            </div>
        </td>
    </tr>
</table>
<%
rs.close
set rs=nothing
%><%
rsu.close
set rsu=nothing
%> <%
rs3.close
set rs3=nothing
%>
</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" -->