list_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,booktype1,booktype2
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect "index.asp"
response.End
end if
id=int(id)
if trim(Request("booktype1"))="" then
booktype1=0
else
booktype1=replace(trim(Request("booktype1")),"'","")
CheckSqlnum(booktype1)
booktype1=int(booktype1)
end if
if trim(Request("booktype2"))="" then
booktype2=0
else
booktype2=replace(trim(Request("booktype2")),"'","")
CheckSqlnum(booktype2)
booktype2=int(booktype2)
end if
set rsclass=server.CreateObject("ADODB.recordset")
sqlclass="select * from list_type where typeid="&id
rsclass.open sqlclass,conn,1,1
set rs=server.CreateObject("ADODB.recordset")
sql="select * from list_class where list_typeid="&rsclass("typeid")
rs.open sql,conn,1,1
%>
<table cellspacing="0" cellpadding="0" width="100%" border="0" valign="top">
	<form method="get" action="list_vipbook.asp">
		<tr>
			<td class="xt"><span class="zt">&nbsp; <font size="4">□</font>
			<font color="red"><%=rsclass("list_tpye")%></font>&nbsp; <%if booktype1<>0 then%>
			<%set rs2=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&booktype1
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then
	response.write "分类被删除"
else
%><%=rs2("list_classname")%><%end if
rs2.close
%><%else
%>本类全部<%end if%></span>&nbsp;&nbsp;&nbsp; 按<%if booktype2=0 then
response.write "更新时间"
elseif booktype2=3 then
response.write "总收藏"
elseif booktype2=4 then
response.write "总字数"
elseif booktype2=5 then
response.write "字首拼音"
elseif booktype2=6 then
response.write "更新时间"
end if%>排序 </td>
			<td class="xt" align="right">
			<input type="hidden" name="id" id="id" value="<%=id%>">
			<select name="booktype1">
			<option value="0" selected>本类全部</option>
			<%Do while not rs.eof%>
			<option value="<%=rs("list_classid")%>"><%=rs("list_classname")%>
			</option>
			<%
	rs.MoveNext
	Loop
	rs.close

%></select><select name="booktype2">
			<option value="0" selected>排行方式</option>
			<option value="3">总收藏</option>
			<option value="4">总字数</option>
			<option value="5">字首拼音</option>
			<option value="6">更新时间</option>
			</select> <input type="submit" value="提交"></td>
		</tr>
	</form>
</table>
<table cellspacing="0" width="100%" align="center" border="0" valign="top">
	<tr align="middle" height="24">
		<td valign="center" align="middle" width="12%">
		<b>类别</b></td>
		<td valign="center" align="middle" width="20%">
		<b>书名</b></td>
		<td valign="center" align="middle" width="35%">
		<b>最新章节</b></td>
		<td valign="center" align="middle" width="15%">
		<b>更新时间</b></td>
		<td valign="center" align="middle" width="10%">
		<b>作者</b></td>
		<td valign="center" align="middle" width="8%">
		<b>预览</b></td>
	</tr>
	<%
dim classid,page1
classid=rsclass("typeid")
page1=clng(request("page"))
		set rsbclass=server.createobject("adodb.recordset")
if booktype1=0 then
	if booktype2=0 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and Lock_book = 0  order by list_gxdate desc"
	elseif booktype2=3 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and Lock_book = 0  order by list_cang desc"
	elseif booktype2=4 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and Lock_book = 0  order by list_size desc"
	elseif booktype2=5 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and Lock_book = 0  order by list_abc desc"
	elseif booktype2=6 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and Lock_book = 0  order by list_gxdate desc"
	end if
else
	if booktype2=0 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0  order by list_gxdate desc"
	elseif booktype2=3 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0  order by list_cang desc"
	elseif booktype2=4 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0  order by list_size desc"
	elseif booktype2=5 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0  order by list_abc desc"
	elseif booktype2=6 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [vip_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0  order by list_gxdate desc"
	end if
end if
		rsbclass.open sqlbclass,conn,1,1
		if rsbclass.eof and rsbclass.bof then
			response.write "<tr height=24><td align=center colspan=6>暂无任何作品</td></tr>"
		else
%> <%
rsbclass.pagesize=100
if page1=0 then page1=1
pages=rsbclass.pagecount
if page1 > pages then page=pages
rsbclass.AbsolutePage=page1

for j=1 to rsbclass.pagesize
%>
	<tr bgcolor="#ffffff" height="24">
		<td class="xt" valign="top" align="middle"><%set rs1=server.CreateObject("ADODB.recordset")
sql="select list_classname from list_class where list_classid="&rsbclass("list_lei")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
	response.write "被删除"
else
%><%=rs1("list_classname")%><%end if
rs1.close
%></td>
		<td class="xt" valign="top" align="left">
		<a target="_blank" href="look_vipbook.asp?id=<%=rsbclass("list_id")%>"><%=rsbclass("list_name")%></a></td>
		<td class="xt" valign="top" align="left"><%
set rsvclass=server.createobject("adodb.recordset")
	sqlvclass="select id,view_name,view_size,view_date from [vip_view] where view_id="&rsbclass("id")&" order by view_date desc"
	rsvclass.open sqlvclass,conn,1,1
	if rsvclass.eof and rsvclass.bof then
		response.write "暂无更新"
	else
%><font color=#5d5d5d> <%=rsvclass("view_name")%></font></a><%
	end if
rsvclass.close
%></td>
		<td class="xt" valign="top" align="middle"><%=rsbclass("list_gxdate")%></td>
		<td class="xt" valign="top" align="middle"><%=rsbclass("list_user")%></td>
		<td class="xt" valign="top" align="middle">
		<a target="_blank" href="look_book.asp?id=<%=rsbclass("list_id")%>">公众版</a></td>
	</tr>
	<%
rsbclass.movenext
if rsbclass.eof then exit for
next
%>
	<tr>
		<td class="xt" align="center" colspan="6">
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
			<tr>
				<td>　</td>
			</tr>
			<tr>
				<td height="24" align="center"><%if Page1<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=list_vipbook.asp?id="&id&"&booktype1="&booktype1&"&booktype2="&booktype2&"&page=1>首页</a>&nbsp;"
    response.write "<a href=list_vipbook.asp?id="&id&"&booktype1="&booktype1&"&booktype2="&booktype2&"&page=" & (page1-1) & ">上一页</a>&nbsp;"
  end if
  if rsbclass.pagecount-page1<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=list_vipbook.asp?id="&id&"&booktype1="&booktype1&"&booktype2="&booktype2&"&page=" & (page1+1) & ">"
    response.write "下一页</a> <a href=list_vipbook.asp?id="&id&"&booktype1="&booktype1&"&booktype2="&booktype2&"&page="&rsbclass.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&page1&"</font>/"&rsbclass.pagecount&"</strong>页 "
   response.write "&nbsp;共<b><font color='#FF0000'>"&rsbclass.recordcount&"</font></b>条记录 <b>"&rsbclass.pagesize&"</b>条记录/页"   
%></td>
			</tr>
		</table>
		<% end if %><%
rsbclass.close
set rsbclass=nothing
%><%
rsclass.close
set rsclass=nothing
%></td>
	</tr>
</table>