quanben.asp

小说站源代码文件

<!--开始-->
<%
if trim(Request("booktype2"))="" then
booktype2=0
else
booktype2=replace(trim(Request("booktype2")),"'","")
CheckSqlnum(booktype2)
booktype2=int(booktype2)
end if
if OpenInhtml=1 and booktype2=0 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/"

file2=server.mappath( ""&viewFolder&"Quanben_"&CurrentPage&"."&htmlphe&"" )
set tfo=Server.CreateObject("Scripting.FileSystemObject")
if tfo.FileExists(file2) = True Then
response.write "<meta http-equiv=Refresh content='0; URL="&viewFolder&"listupdate_"&CurrentPage&"."&htmlphe&"'>"
	Response.redirect(""&viewFolder&"listupdate_"&CurrentPage&"."&htmlphe&"")
	Response.end
end if

end if
%><table cellSpacing="0" width="100%" align="center" border="0">
							<tr>
								<td align="middle">
								<table cellSpacing="0" cellPadding="0" width="100%" border="0" valign="top">
									<form method="get" action="quanben.asp">
										<tr>
											<td class="xt"><span class="zt">&nbsp;&nbsp;<font size="4">□</font>
											&nbsp;&nbsp;全本作品</span>&nbsp;&nbsp;&nbsp;&nbsp;按<%if booktype2=0 then
response.write "更新时间"
elseif booktype2=1 then
response.write "总点击"
elseif booktype2=2 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">
											<select name="booktype2">
											<option value="0" selected>排行方式</option>
											<option value="1">总点击</option>
											<option value="2">总推荐</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>
								</td>
							</tr>
						</table>
						<table cellSpacing="0" width="100%" align="center" border="0">
							<tr>
								<td>
								<table cellSpacing="0" borderColorDark="white" width="99%" align="center" border="0" valign="top">
									<tr align="middle" height="24">
										<td class="xt" style="BORDER-LEFT-COLOR: rgb(204,204,204); BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="12%">
										<b><font color="#003399">类别</font></b></td>
										<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="20%">
										<b><font color="#003399">书名</font></b></td>
										<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="35%">
										<b><font color="#003399">最新章节</font></b></td>
										<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="15%">
										<b><font color="#003399">更新时间</font></b></td>
										<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204)" vAlign="center" align="middle" width="10%">
										<b><font color="#003399">作者</font></b></td>
										<td class="xt" style="BORDER-BOTTOM-COLOR: rgb(204,204,204); BORDER-TOP-COLOR: rgb(204,204,204); BORDER-RIGHT-COLOR: rgb(204,204,204)" vAlign="center" borderColorLight="#666666" align="middle" width="8%">
										<b><font color="#003399">状态</font></b></td>
									</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
    CurrentPage=Cint(Request("Page"))
Else
    CurrentPage=1
End if
set rsbclass=server.createobject("adodb.recordset")
if booktype2=0 then
	sqlbclass="select id,list_lei,list_name,list_user,list_tai,list_gxdate,newviewid,newviewname from list_book where list_tai=6 and Lock_book = 0  order by list_gxdate desc"
elseif booktype2=1 then
	sqlbclass="select id,list_lei,list_name,list_user,list_tai,list_gxdate,newviewid,newviewname from list_book where list_tai=6 and Lock_book = 0  order by list_hit desc"
elseif booktype2=2 then
	sqlbclass="select id,list_lei,list_name,list_user,list_tai,list_gxdate,newviewid,newviewname from list_book where list_tai=6 and Lock_book = 0  order by list_jian desc"
elseif booktype2=3 then
	sqlbclass="select id,list_lei,list_name,list_user,list_tai,list_gxdate,newviewid,newviewname from list_book where list_tai=6 and Lock_book = 0  order by list_cang desc"
elseif booktype2=4 then
	sqlbclass="select id,list_lei,list_name,list_user,list_tai,list_gxdate,newviewid,newviewname from list_book where list_tai=6 and Lock_book = 0  order by list_size desc"
elseif booktype2=5 then
	sqlbclass="select id,list_lei,list_name,list_user,list_tai,list_gxdate,newviewid,newviewname from list_book where list_tai=6 and Lock_book = 0  order by list_abc desc"
elseif booktype2=6 then
	sqlbclass="select id,list_lei,list_name,list_user,list_tai,list_gxdate,newviewid,newviewname from list_book where list_tai=6 and Lock_book = 0  order by list_gxdate desc"
end if
'MySQL需要如下语句
conn.CursorLocation=3
		rsbclass.open sqlbclass,conn,1,1
		if rsbclass.eof and rsbclass.bof then
			response.write "<tr bgColor=#ffffff height=24><td align=center>暂无任何作品</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 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
	response.write rs1("list_classname")
end if
rs1.close
set rs1=nothing
%></td>
										<td class="xt" vAlign="top" align="left">
										<a href="look_book.asp?id=<%=rsbclass("id")%>">
										<%=rsbclass("list_name")%></a></td>
										<td class="xt" vAlign="top" align="left">
										<a href="view_book.asp?id=<%=rsbclass("newviewid")%>">
										<font color="#5d5d5d"><%if rsbclass("newviewname")<>"" then%><%=rsbclass("newviewname")%><%else%>暂无更新<%end if%></font></a></td>
										<td class="xt" vAlign="top" align="middle">
										<%=formatdatetime(rsbclass("list_gxdate"),2)%></td>
										<td class="xt" vAlign="top" align="middle">
										<%=rsbclass("list_user")%></td>
										<td class="xt" vAlign="top" align="middle">
										已完成...</td>
									</tr>
<%      i=i+1
      If i>=MaxPerPage Then  Exit  Do
      Rsbclass.MoveNext
   Loop
End If
Rsbclass.Close
Set  Rsbclass=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("Quanben.asp?booktype2="&booktype2&"",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
											</tr>
										</table></td>
									</tr>
								</table>
								</td>
							</tr>
						</table>
<!--结束-->