📄 topten.asp
字号:
<%
topvalue=request("topvalue")
CheckSqlnum(topvalue)
if topvalue="" then topvalue="1"
topvalue=int(topvalue)
if topvalue>11 then
Response.Write ("<script>alert(' 操作错误!\n\n 请联系管理员。');history.back();</script>")
Response.end
End If
%>
<table width="96%" border="0" align="center" height="35">
<tr>
<td>
<div align="center">
<a href="topten.asp?topvalue=1" target="_top" class="style1">
<%if topvalue=1 then response.write "<b>" end if%> 总点击榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=2" target="_top"><%if topvalue=2 then response.write "<b>" end if%>
月点击榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=3" target="_top"><%if topvalue=3 then response.write "<b>" end if%>
周点击榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=4" target="_top"><%if topvalue=4 then response.write "<b>" end if%>
总推荐榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=5" target="_top"><%if topvalue=5 then response.write "<b>" end if%>
月推荐榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=6" target="_top"><%if topvalue=6 then response.write "<b>" end if%>
周推荐榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=7" target="_top"><%if topvalue=7 then response.write "<b>" end if%>
总收藏榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=8" target="_top"><%if topvalue=8 then response.write "<b>" end if%>
总字数榜</b></a></div>
</td>
<td>
<div align="center">
<a href="topten.asp?topvalue=9" target="_top"><%if topvalue=9 then response.write "<b>" end if%>
入站时间</b></a></div>
</td>
</tr>
</table>
<table align="center" border="0" cellspacing="0" valign="top" width="100%" bordercolor="#CCCCCC" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">
<tr bgcolor="#eeeeee" height="24">
<td class="xt" align="center" width="3%" valign="middle" style="border-top:1px solid black" nowrap>
<b><font color="#003399">NO.</font></b></td>
<td class="xt" align="center" width="10%" valign="middle" style="border-top:1px solid black" nowrap>
<b><font color="#003399">类别</font></b></td>
<td class="xt" align="center" width="16%" valign="middle" style="border-top:1px solid black" nowrap>
<b><font color="#003399">书名</font></b></td>
<td class="xt" align="center" width="30%" valign="middle" style="border-top:1px solid black">
<b><font color="#003399">最新章节</font></b></td>
<td class="xt" align="center" width="9%" valign="middle" style="border-top:1px solid black" nowrap>
<font color="#003399"><b>更新时间</b></font></td>
<td class="xt" align="center" width="15%" valign="middle" style="border-top:1px solid black" nowrap>
<b><font color="#003399">作者</font></b></td>
<td class="xt" align="center" width="10%" valign="middle" style="border-top:1px solid black" nowrap>
<b><font color="#003399">写作</font></b></td>
<td class="xt" align="center" width="10%" valign="middle" style="border-top:1px solid black" nowrap>
<b><font color="#003399"><%if topvalue=1 then response.write "总点击" end if%>
<%if topvalue=2 then response.write "月点击" end if%>
<%if topvalue=3 then response.write "周点击" end if%>
<%if topvalue=4 then response.write "总推荐" end if%>
<%if topvalue=5 then response.write "月推荐" end if%>
<%if topvalue=6 then response.write "周推荐" end if%>
<%if topvalue=7 then response.write "总收藏" end if%>
<%if topvalue=8 then response.write "总字数" end if%>
<%if topvalue=9 then response.write "入站时间" end if%>
<%if topvalue=10 then response.write "入站时间" end if%>
</font></b></td>
</tr>
<%
if OpenInJS=1 then
%> <tr>
<td class="xt" width="100%" colspan="8" style="padding-top:5">
<script lauguage="javascript">
function putlist(rs0,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8,rs9,rs10)
{
document.write("<tr height=25>");
document.write("<td align=left valign=top class=xt> "+rs0+".</td>");
document.write("<td align=center valign=top class=xt>["+rs1+"]</td>");
document.write("<td align=left valign=top class=xt><a href='look_book.asp?id="+rs2+"' target=_blank>"+rs3+"</a></td>");
document.write("<td align=left valign=top class=xt><a href='view_book.asp?id="+rs4+"' target=_blank><font color=#5d5d5d>"+rs5+"</font></a></td>");
document.write("<td align=center valign=top class=xt>"+rs6+"</td>");
document.write("<td align=center valign=top class=xt>"+rs7+"</td>");
document.write("<td align=center valign=top class=xt>"+rs8+"</td>");
document.write("<td align=center valign=top class=xt>"+rs9+"</td>");
document.write("</tr>");
}
</script>
<script src="indexjs/list_top<%=topvalue%>.js"></script>
</td>
</tr>
<%else
set rsbclass=server.createobject("adodb.recordset")
if topvalue=1 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_hit from [list_book] where Lock_book = 0 order by list_hit desc"
elseif topvalue=2 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_mhit from [list_book] where Lock_book = 0 order by list_mhit desc"
elseif topvalue=3 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_zhit from [list_book] where Lock_book = 0 order by list_zhit desc"
elseif topvalue=4 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_jian from [list_book] where Lock_book = 0 order by list_jian desc"
elseif topvalue=5 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_mjian from [list_book] where Lock_book = 0 order by list_mjian desc"
elseif topvalue=6 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_zjian from [list_book] where Lock_book = 0 order by list_zjian desc"
elseif topvalue=7 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_cang from [list_book] where Lock_book = 0 order by list_cang desc"
elseif topvalue=8 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_size from [list_book] where Lock_book = 0 order by list_size desc"
elseif topvalue=9 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate from [list_book] where Lock_book = 0 order by list_gxdate desc"
elseif topvalue=10 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_date from [list_book] where Lock_book = 0 order by list_date desc"
elseif topvalue=11 then
sqlbclass="select top 200 id,list_class,list_lei,list_name,list_user,list_tai,newviewid,newviewname,newview,list_gxdate,list_hit from [list_book] where Lock_book = 0 and listvv_good=1 order by list_hit desc"
end if
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
For i=1 To 200
If rsbclass.eof Then Exit For
%>
<tr bgColor="#ffffff" height="24">
<td align=left valign=top class=xt> <%=i%>.</td>
<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
set rs1=nothing
%>]</td>
<td class="xt" vAlign="top" align="left">
<a target="_blank" href="look_book.asp?id=<%=rsbclass("id")%>">
<%=rsbclass("list_name")%></a></td>
<td class="xt" vAlign="top" align="left"><a target="_blank" 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">
<%if rsbclass("list_tai")="1" then response.write("转载中...") end if%>
<%if rsbclass("list_tai")="2" then response.write("连载中...") end if%>
<%if rsbclass("list_tai")="3" then response.write("出版中...") end if%>
<%if rsbclass("list_tai")="4" then response.write("已暂停...") end if%>
<%if rsbclass("list_tai")="5" then response.write("已停止...") end if%>
<%if rsbclass("list_tai")="6" then response.write("已完成...") end if%></td>
<td class="xt" vAlign="top" align="middle">
<%if topvalue=1 then %><%=rsbclass("list_hit")%><% end if%>
<%if topvalue=2 then %><%=rsbclass("list_mhit")%><% end if%>
<%if topvalue=3 then %><%=rsbclass("list_zhit")%><% end if%>
<%if topvalue=4 then %><%=rsbclass("list_jian")%><% end if%>
<%if topvalue=5 then %><%=rsbclass("list_mjian")%><% end if%>
<%if topvalue=6 then %><%=rsbclass("list_zjian")%><% end if%>
<%if topvalue=7 then %><%=rsbclass("list_cang")%><% end if%>
<%if topvalue=8 then %><%=rsbclass("list_size")%><% end if%>
<%if topvalue=9 then %><%=rsbclass("list_gxdate")%><% end if%>
<%if topvalue=10 then %><%=rsbclass("list_date")%><% end if%>
<%if topvalue=11 then %><%=rsbclass("list_hit")%><% end if%>
</td>
</tr>
<%
rsbclass.movenext
Next
rsbclass.close
set rsbclass=nothing
end if
end if
%>
</table> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -