list_vipbook.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<%
dim id,booktype1,booktype2
id=CheckSql(request("id"))
CheckSqlnum(id)
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")
Const MaxPerPage=100
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if
	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 [list_book] where list_class="&classid&" and Lock_book = 0 and IsVip=1 order by list_gxdate desc"
	elseif booktype2=3 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and Lock_book = 0 and IsVip=1 order by list_cang desc"
	elseif booktype2=4 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and Lock_book = 0 and IsVip=1 order by list_size desc"
	elseif booktype2=5 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and Lock_book = 0 and IsVip=1 order by list_abc desc"
	elseif booktype2=6 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and Lock_book = 0 and IsVip=1 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 [list_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0 and IsVip=1 order by list_gxdate desc"
	elseif booktype2=3 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0 and IsVip=1 order by list_cang desc"
	elseif booktype2=4 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0 and IsVip=1 order by list_size desc"
	elseif booktype2=5 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0 and IsVip=1 order by list_abc desc"
	elseif booktype2=6 then
		sqlbclass="select id,list_lei,list_name,list_user,list_id,list_gxdate from [list_book] where list_class="&classid&" and list_lei="&booktype1&" and Lock_book = 0 and IsVip=1 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=MaxPerPage
   Allpage=Rsbclass.PageCount
   If Currentpage>Allpage Then Currentpage=1
   Num=Rsbclass.RecordCount
   Rsbclass.MoveFirst
   Rsbclass.AbsolutePage=CurrentPage
   i=0
	Do While Not Rsbclass.Eof%>
	<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_type,view_size,view_date from [list_view] where view_id="&rsbclass("id")&" and view_isvip=1 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_type")%></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>
<%
      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rsbclass.MoveNext
   Loop
End If
Rsbclass.Close
Set  Rsbclass=Nothing
rsclass.close
set rsclass=nothing
%>
	<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"><%
Response.Write ShowPage("list_vipbook.asp?id="&id&"&booktype1="&booktype1&"&booktype2="&booktype2&"",CurrentPage,Num,MaxPerPage,True,True," 条纪录")
%></td>
			</tr>
		</table>
		</td>
	</tr>
</table>